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 !!!