Programatically insert an attachment, subject line, etc. into an email message

[acantor]

I have a macro that inserts a particular attachment (plus subject line and boilerplate body text) into an Outlook message. It works exactly as I want when I trigger the macro from an Outlook main page (e.g., the Inbox); but when I activate it from within a message that I am composing, the macro creates a new message.

Is there a way to modify the code so the magic happens within the message I am composing? I am willing to lose the ability to trigger the macro from the Inbox.



Sub AddAttachment()
Dim myItem As Outlook.MailItem
Dim myAttachments As Outlook.Attachments

Dim AttachmentName, BodyText, SubjectText As String

Let AttachmentName = "c:\test.pdf"
Let BodyText = "Thank you for writing. The attachment contains a full explanation."
Let SubjectText = "Reply to your Question."

Set myItem = Application.CreateItem(olMailItem)
Set myAttachments = myItem.Attachments
myAttachments.Add AttachmentName
myItem.Subject = SubjectText
myItem.Body = BodyText
myItem.Display
End Sub

[westconn1]

try changing


' Set myItem = Application.CreateItem(olMailItem)
Set myItem = ActiveInspector.CurrentItem

[acantor]

Thank you! It works!