View Single Post
 
Old 09-24-2017, 08:18 PM
russkris russkris is offline Windows 8 Office 2016
Novice
 
Join Date: Sep 2017
Location: Hobart, Tasmania, Australia
Posts: 3
russkris is on a distinguished road
Default

Also, Your way works too.
Code:
With EmailItem
    .Subject = ActiveDocument.SelectContentControlsByTitle("commodity")(1).Range.Text
    .To = "TEST@EMAIL.COM"
    .Importance = olImportanceNormal
    .Attachments.Add Doc.FullName
    .Display
Reply With Quote