Outlook using QTP

[dsharma]

Hi
I am trying to send a mail using outlook programatically.
Every time the script tries to send mail, outlook brings up a security error message. How to bypass this msg?
Thanks

[Rajashekar Gouda]

[quote=dsharma]
Hi
I am trying to send a mail using outlook programatically.
Every time the script tries to send mail, outlook brings up a security error message. How to bypass this msg?
Thanks

One my colleagues was facing same issue, he used a third party tool to click OK button which was there on error message.

Need to search in Google for the third part tool and it was a freeware.

Regards
Raj

[dsharma]

Thanks but I need to do this without using any third party tool. Is it possible?

[Rajashekar Gouda]

no idea on that yaar

[chrism2202]

hello,

Basically, you have three choices for scripting emails from QTP;
1. Have QTP access a PHP script that has email functionality.
2. Have QTP use outlook objects to send email.
3. Have QTP create an email object without either of the above.

The first method works, if you can create a PHP page with a script mailer. The downside is, that it uses an web page, but it is effective.

The second method is not ideal, in my opinion. What if the PC you are executing the script on does not have outlook installed? What if the outlook isnt configured with an account? (Bad idea).

The third option seems to be the best and has worked out wonderfully. Sample function code bleow:

'**************** Send Email Function *****************************

Code:

Function SendMail(EmailAddress, MessageBody, MsgAttachment) Dim objMessage Set objMessage = CreateObject("CDO.Message") objMessage.Subject = "QTP Results - Automated Testing" objMessage.From = "QTPTesting@address.com" ' Change this for your own from address objMessage.To = EmailAddress objMessage.TextBody = MessageBody ' ==Include File attachments here == objMessage.AddAttachment MsgAttachment '==This section provides the configuration information for the remote SMTP server. objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 '==Name or IP of Remote SMTP Server objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "<Server Address Here>" ' "someserver.domain.com" '==Server port (typically 25) objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objMessage.Configuration.Fields.Update '==End remote SMTP server configuration section== objMessage.Send End Function

Hope this helps,

Chris

[keyurpathak]

Hi Chris,

I am getting error while using this:

Run Error The transport failed to connect to the server.

Line (25): "objMessage.Send". Failed 4/3/2008 - 16:08:19

Also is there way to use the Quality Center for using the email.

Thanks.

[vamshiram]

sAME MESSAGE FOR ME ...

[vamshiram]

Do u know what is the third party tool

[quote=dsharma]
Hi
I am trying to send a mail using outlook programatically.
Every time the script tries to send mail, outlook brings up a security error message. How to bypass this msg?
Thanks

One my colleagues was facing same issue, he used a third party tool to click OK button which was there on error message.

Need to search in Google for the third part tool and it was a freeware.

Regards
Raj

[navyasatish]

Do u know what is the third party tool

[quote=dsharma]
Hi
I am trying to send a mail using outlook programatically.
Every time the script tries to send mail, outlook brings up a security error message. How to bypass this msg?
Thanks

One my colleagues was facing same issue, he used a third party tool to click OK button which was there on error message.

Need to search in Google for the third part tool and it was a freeware.

Regards
Raj

[navyasatish]