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