ExcelBanter - Some Error on e-mail

ExcelBanter (https://www.excelbanter.com/)

- Excel Programming (https://www.excelbanter.com/excel-programming/)

- - Some Error on e-mail (https://www.excelbanter.com/excel-programming/420615-some-error-e-mail.html)

Some Error on e-mail

I use the following code to send e-mail.
It is work for most of my colleague. But some of my colleague got problem in
€œ.send €œ
Please help...Thanks a lot.

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = EmailAddr
.Cc = CcAddr
.Subject = esubject
.Body = ebody
.Attachments.Add (folder & SPfilename)
.Send ' <-- Problem in here!!!
End With

Some Error on e-mail

Try replacing the ".send" line with ".display" and check if the
displayed mail is ok.
HTH
Daniel

I use the following code to send e-mail.
It is work for most of my colleague. But some of my colleague got problem in
€œ.send €œ
Please help...Thanks a lot.

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = EmailAddr
.Cc = CcAddr
.Subject = esubject
.Body = ebody
.Attachments.Add (folder & SPfilename)
.Send ' <-- Problem in here!!!
End With