I use the following code without issue in Excel/Outlook 2016 and Office 365. When someone tries to run the code on Excel/Outloo 2013 the code failed initially at the "signature" line with a runtime 287 error. Having removed that line the code initially ran but did not import the PageEditor section to the email. Can amyome shed any light on why this works without issue but not in 2013??
Dim Outlook As Object, newEmail As Object, xInspect As Object, pageEditor As Object Dim signature As String Dim MyRng as range Set MyRng = 'range varies each loop of code Set Outlook = CreateObject("Outlook.Application") Set newEmail = Outlook.CreateItem(0) Who = [email protected] ' may be others at later stage MyRng.copy Set newEmail = Outlook.CreateItem(0) With newEmail .display signature = newEmail.htmlbody .To = Who .subject = "Info for Staff " & Dte .htmlbody = "Email text goes here" .ReadReceiptRequested = False Set xInspect = newEmail.GetInspector Set pageEditor = xInspect.WordEditor pageEditor.Application.Selection.Start = Len(.htmlbody) pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start pageEditor.Application.Selection.pasteandformat (wdformatplaintext) .display .htmlbody = .htmlbody & signature Set pageEditor = Nothing Set xInspect = Nothing Application.CutCopyMode = False End With