添付ファイルをダウンロードした後にファイルを削除する

Question

電子メールから添付ファイルをダウンロードするマクロを作成しようとしています。その後、電子メールを削除します。

添付ファイルをダウンロードするマクロがありますが、ダウンロード後に電子メールを削除する方法はわかりません。ルールを使用すると、添付ファイルをダウンロードする前に電子メールが削除されます。ここで

は、私が持っているものです：

Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem) 
Dim oAttachment As Outlook.Attachment 
Dim sSaveFolder As String 
sSaveFolder = "S:\Training and Curriculum\Staff Training Files\01 scans\" 
For Each oAttachment In MItem.Attachments 
oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName 
Next 
End Sub 

Answer 1

私はそのサブに伝えることができるものから、あなたは私が正しくあなたの質問を読んでいる場合、アイテムあなたですOutlook.MailItemオブジェクトとしてMItemを渡しています削除したいループの中でnextの後、MItem.Deleteを実行するだけで、ファイルを保存した後でその特定の項目が削除されます。ここで

Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem) 

Dim oAttachment As Outlook.Attachment 
Dim sSaveFolder As String 
sSaveFolder = "S:\Training and Curriculum\Staff Training Files\01 scans\" 

For Each oAttachment In MItem.Attachments 
    oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName 
Next 

MItem.Delete 'This is the delete command 

End Sub 

MailItem.Delete上のMSDNドキュメントである - MSDN MailItem Delete Method