17-10-12, 02:40 PM
كاتب الموضوع : Norhan Adel
Declarationكود :
' No special decelerations
' Just make sure that Microsoft Outlook 2000 or 2003 is installed.
' Outlook Error parser by: Elton House
كود :
Function SendMail(Recipient, MailSubject, TextBody, FileAttachment)
Set Outlook = CreateObject("Outlook.Application")
Set OutlookMail = Outlook.CreateItem(0)
Set Attachment = OutlookMail.Attachments
OutlookMail.To = Recipient
OutlookMail.Subject = MailSubject
OutlookMail.Body = TextBody
Attachment.Add FileAttachment, 1, 1, "File Attachment"
'OutlookMail.Send
OutlookMail.Display
SendKeys "%{s}", True
End Function