Sending Mail through QTP

[papu]

Hi All,
I Am trying to send mail using QTP(9.2) .I have used "outlook.application" and also "CDONTS.Newmail".
In both cases am geting an error in the line 'Set Ol = Createobject("Outlook.Application")', saying Activex can't create object "Outlook.Application".Similar in "CDONTS.Newmail".

I have also copied the same code provided by qtp in the samplecode folder,.vbs file.But the result is same.

Please help.

[tarunlalwani]

You need to install CDonts library first. Search on microsoft.com for CDONTS library and install the same

[papu]

Thanks a lot.But what about outlook ? It is there in my machine and before executing the QTP script , have also opened outlook.

[tarunlalwani]

You are not using OUtlook here. CDONTS is a different library and it does not come with outlook.

[chaitanyaponangi]

Why install CDONTS and all???
u can use outlook.application
and also u can also use CDO.Message if u know the SMTP server name....
here are the scripts for both the cases::


1.

Code:

OUTLOOK.APPLICATION Set objapp = createobject("outlook.application") Set obj = objapp.createitem(0) obj.subject = "QTP test mail" obj.to = "<email>" 'obj.CC = "<email>" obj.body = "This mail is send through QTP"&chr(13)&"Regards,"&chr(13)&"Test" 'obj.attachments.add("<filepath>") obj.send

2.

Code:

CDO.MESSAGE 'Script to send an email through QTP nice one Set oMessage = CreateObject("CDO.Message") '==This section provides the configuration information for the remote SMTP server. '==Normally you will only change the server name or IP. oMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Name or IP of Remote SMTP Server oMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="<mail server url>" 'Server port (typically 25) oMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 oMessage.Configuration.Fields.Update oMessage.Subject = "Test Mail" oMessage.Sender = "<email>" oMessage.To ="<email>" 'oMessage.CC = "<email>" 'oMessage.BCC = "<email>" oMessage.TextBody = "Test Mail from QTP"&vbcrlf&"Regards,"&vbcrlf&"Test" oMessage.Send Set oMessage = Nothing[hr] For working on either of the above methods, ActiveX is not sufficient. Check the Visual Basic Add in at startup of QTP

[v890115]

Hi everyone,

I wanted QTP to email me when there's a problem found during testing. I got the email codes but how do I call those codes to send email emails? Do I have to add those send email function into the testing script? Or keep the send email in a separate vbs file?

I hope this makes sense if not please let me know so I can explain more what I am seeking

Thanks...

[basanth27]

v890115 -
Please ensure you do not Reopen Posts which are old. If you have a question kindly first search the forum and if you could not find what you were looking for then open a new post.
It is imperative that you follow the forum guidelines so that everyone can help you.

Thread locked !!!