Send mail from outlook with an attachment
You can send mail from outlook with an attachment to intended persons.
Function SendMail(SendTo, Subject, Body, Attachment) Set olook=CreateObject("Outlook.Application") Set Mail=olook.CreateItem(0) Mail.to=SendTo Mail.Subject=Subject Mail.Body=Body If (Attachment <> "") Then Mail.Attachments.Add(Attachment) End If Mail.Send olook.Quit Set Mail = Nothing Set olook = Nothing End Function
You can call this function as shown below.
Call SendMail("[email protected]","Sample Mail","This is a code check","D:\Code\Sample.txt")