VBA Macro - Word

[MartinEbner]

Hi,

Issue
I have modified a macro (please see below) - it encompasses all of the functionality that I require with one exception. I require it to reference an email address that is written in the word document.

Macro
Sub eMailActiveDocument()
Dim OL As Object
Dim EmailItem As Object
Dim Doc As Document

Application.ScreenUpdating = True
Set OL = CreateObject("Outlook.Application")
Set EmailItem = OL.CreateItem(olMailItem)
Set Doc = ActiveDocument
Doc.Save
With EmailItem
.Subject = "Subject"
.Body = "Dear Whoever,
.To = "User.Domain.Com"
.Importance = olImportanceNormal 'Or olImprotanceHigh Or olImprotanceLow
.Attachments.Add Doc.Fullname
.Display
End With

Application.ScreenUpdating = True

Set Doc = Nothing
Set OL = Nothing
Set EmailItem = Nothing

End Sub

-----------

Instead of it having a prescribed email in the macro, I need it to be flexible in the sense that from time to time the email address will change and as such it is impractical go into the macro every time - It needs to source it from the word document itself.

Any help would be greatly appreciated.

Regards,
Martin

 

[MartinEbner]

Thank you Paul and thank you for your patience. With regards to this, shall I simply append it onto my old code so that it pushes through to Outlook?

 

[Macropod]

The code I posted is entirely stand-alone. From what you've posted, you don't need to append it to anything. All you need do is change:
"Email_Address"
to whatever your email address field name is and, change:
"Subject_Line"
to whatever your subject field name is. If you don't have a subject field, replace:
.DataSource.DataFields("Subject_Line")
with whatever static text you want to use as the subject line.

And, if you change:
.MailAsAttachment = True
to:
.MailAsAttachment = False
the merge will be sent as the email message body rather than as an attachment.