Sending emails from QTP

[sshukla12]

Hi,

I had used Outlook to send the mail.Use the below code for reference if its useful 2 u:

Code:

call sendmail("sshukla12@gmail.com","Test Mail","This is a test mail")


Function sendmail(mailto,subject,body)
   Set oMailobj=CreateObject("Outlook.Application")
   Set oSendmailobj=oMailobj.CreateItem(0)
   oSendmailobj.To=mailto
   oSendmailobj.Subject=subject
   oSendmailobj.Body=body
   oSendmailobj.Send
   Set oMailobj=Nothing
   Set oSendmailobj=Nothing
End Function

Regards,
Sankalp