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")