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("Shekhar.Sharma@outlook.com","Sample Mail","This is a code check","D:\Code\Sample.txt")
Questions/Suggestions
Have any question or suggestion for us?Please feel free to post in Q&A Forum

Shekhar Sharma

Shekhar Sharma is founder of testingpool.com. This website is his window to the world. He believes that ,"Knowledge increases by sharing but not by saving".

You may also like...