送信したアイテムからメールを送信した後、添付ファイルを自動的に削除するにはどうすればよいですか？

一部の添付ファイル付きの電子メールを送信する場合、添付ファイルはデフォルトで電子メールとともに送信済みアイテムフォルダーに保存されます。 PSTファイルのサイズを小さくするには、電子メールの送信後に、送信されたアイテムから添付ファイルを自動的に削除することをお勧めします。この記事では、Outlookでこのタスクについて説明します。

送信済みアイテムからメールを送信した後、添付ファイルを自動的に削除します

送信済みアイテムからメールを送信した後、添付ファイルを自動的に削除します

次のVBAコードは、Outlookから電子メールを送信した後に添付ファイルを自動削除するのに役立ちます。次のようにしてください。

1。を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2. アプリケーション向け Microsoft Visual Basic ウィンドウ、ダブルクリック このOutlookSession Project1（VbaProject.OTM） ペインでモードを開き、次のコードをコピーして空のモジュールに貼り付けます。

VBAコード：送信されたアイテムから電子メールを送信した後、添付ファイルを自動的に削除します。

Public WithEvents SentMailItems As Outlook.Items
    Private Sub Application_Startup()
    Set SentMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail).Items
    End Sub
    Sub SentMailItems_ItemAdd(ByVal Item As Object)
    Dim xSentMail As Outlook.MailItem
    Dim xAttachments As Outlook.Attachments
    Dim xAttachment As Outlook.Attachment
    Dim xAttachmentInfo As String
    On Error Resume Next
    If Item.Class = olMail Then
       Set xSentMail = Item
    End If
    Set xAttachments = xSentMail.Attachments
    For i = xAttachments.Count To 1 Step -1
        Set xAttachment = xAttachments.Item(i)
        xAttachmentInfo = "<HTML><BODY>" & xAttachment.DisplayName & _
                          "</BODY></HTML>" & vbCrLf & xAttachmentInfo
        xAttachment.Delete
    Next
    xSentMail.HTMLBody = "<HTML><BODY><font color=#FF0000>Attachment Removed: </font><br/></BODY></HTML>" & _
                         xAttachmentInfo & "<HTML><BODY><br/></BODY></HTML>" & xSentMail.HTMLBody
    xSentMail.Save
End Sub