With EmailItem .Subject = ActiveDocument.SelectContentControlsByTitle("commodity")(1).Range.Text .To = "TEST@EMAIL.COM" .Importance = olImportanceNormal .Attachments.Add Doc.FullName .Display