Jobs
Author: Fortunato Estorgio Jr. Date Submitted: 10/26/2007 Category: Internet Compatibility: VB 6,Vbscript This code has been accessed 4973 times.
Email Yourself this snippet:
' No special decelerations ' Just make sure that Microsoft Outlook 2000 or 2003 is installed. ' Outlook Error parser by: Elton House
Code
On Error Resume Next 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
