Anhang zu einer bestehenden E-Mail hinzufügen

Question

Der folgende Code fügt einen Anhang hinzu, erstellt jedoch eine neue E-Mail.

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 

Gibt es eine Möglichkeit, einen Anhang zur aktuell geöffneten E-Mail hinzuzufügen?

Answer 1

Ersetzen Sie die Zeile

Set myItem = Application.CreateItem(olMailItem) 

mit

Set myItem = Application.ActiveInspector.CurrentItem 

, wenn das Element in einem Inspektor oder mit der folgenden geöffnet wird, wenn es in der Explorer-Nachrichtenliste ausgewählt wird:

Set myItem = Application.ActiveExplorer.Selection(1)