既存のメールに添付ファイルを追加

Question

以下のコードは添付ファイルを追加しますが、新しいメールを作成します。

Sub BA7() 
    Dim myItem As Outlook.MailItem 
    Dim myAttachments As Outlook.Attachments 
    Set myItem = Application.CreateItem(olMailItem) 
    Set myAttachments = myItem.Attachments 
    myAttachments.Add "J:\BUILDING\Email attachments\BA7word.docx", _ 
    olByValue, 1, "BA7" 
End Sub 

現在開いているメールに添付ファイルを追加する方法はありますか？

Answer 1

アイテムがインスペクタか、エクスプローラメッセージリストで選択された場合は、次で開かれている場合

Set myItem = Application.ActiveInspector.CurrentItem 

に沿っ

Set myItem = Application.CreateItem(olMailItem) 

を交換：

Set myItem = Application.ActiveExplorer.Selection(1)