Driving me NUTS
In the simple little macro below, if I do NOT include an attachment, I get an error 287 on .Send
With an attached file, the message is generated and sent as expected
Is there any way that I would not have to .Add an attachment
Win7 64bit, MS Office 2010
Thanks
Option Explicit Sub SendEmail() Dim OutApp As Object Dim OutMail As Object Dim sFile As String, sBody As String, sRecipiant sBody = "This is an email message" sFile = "C:\Users\Me\Scripts\Logs\bu2000-2015-01-20.log" sRecipiant = "me@here.net" Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With OutMail .To = sRecipiant .CC = vbNullString .BCC = vbNullString .Subject = "email test -- " & Format(Now, "General Date") .Body = sBody 'without attachment I get an error 287 on the .Send .Attachments.Add sFile .ReadReceiptRequested = False 'err 287 - application-defined or object-defined error .Send End With Set OutMail = Nothing Set OutApp = Nothing End Sub






Reply With Quote