Outlook using QTP

[deeps_aj]

Hello,
I used the same script, but i'm getting error msg as "The message could not be sent to the SMTP server. The transport error code was 0x80040217. The server response was not available"

plz tel me wats the problem... thanX in adv... Waiting for ur reply

Thanks and Regards
Deepika

[srivania]

Hi,

try this,

Code:

Public Function SendMail(SendTo, Subject, Body,Attachment) Set ol = CreateObject("Outlook.Application") Set Mail = ol.CreateItem(0) Mail.to = SendTo Mail.Subject = Subject Mail.Body = Body If(Attachment <> "") Then Mail.Attachments.Add(Attachment) End IF Mail.Send Set Mail = nothing Set ol = nothing End Function

[venkatbatchu]

Please find the below code u would be able to send the mail through qtp


'Email generation VB Script snipet.
'venkat batchu
'Pre requisite: MS Outlook apllication up running on the desktop
'----------------------------------------------------------------------------------

Code:

Dim ToAddress Dim Subject Dim Body Dim Attachment Dim oUtlookApp, nAmeSpace, newMail 'SystemUtil.Run "C:\Program Files\Microsoft Office\Office11\OUTLOOK.EXE" 'This line should be enabled if the Outlook on the desktop is not running ToAddress = "venkat.batchu@xxxx.com" ' Message recipient Address Set oUtlookApp = CreateObject("Outlook.Application") Set nAmeSpace = oUtlookApp.GetNamespace("MAPI") Set newMail = oUtlookApp.CreateItem(0) Subject = "Test Results of Login and Signoff" 'Message Subject you can update Body = "To view the test results of login and signoff. " 'Message body you can update newMail.Subject = Subject newMail.Body = Body & vbCrLf newMail.Recipients.Add(ToAddress) newMail.Attachments.Add("C:\Documents and Settings\venkat.batchu\Desktop\Results\Log\LogFile.html") 'You can update attachment file name newMail.Send Set nAmeSpace = Nothing Set oUtlookApp = Nothing 'end of the email generation code

===================================================================


Enjoy by sending mails through qtp..