QTP – Outlook Application

QTP – Outlook Application

Aim: To send out a mail soon after the QTP – Automation test ends.

ü  Copy this code, use it in a notepad or any text editors

ü  Save as oMail.vbs.

ü  Before adding this, make sure, you have added sufficient information to SendTo, Subject, Body contents and so.

ü  Add this file to your framework / multi test manager scripts as the last script

ü  It runs as part of your scripts (at the end) and sends out a mail to the loop of the email ids that are added to SendTo with the Subject, Body contents that are specified.

'#############################################################

'@        QTP – Outlook Application

'#############################################################

Dim SendTo, Subject, Body, Attachment

SendTo=" QuickTestQTP@gmail.com"

Subject="QuickTest QTP Info"

Body=" Here are the Automation Test Results; Thanks, G A Reddy"

Call SendMail(SendTo, Subject, Body, Attachment)

'##############################################################

'@Function   :  SendMail

'@Purpose    :  To send a mail with QTP - Automation Test Status

'@Input Paramters: SendTo, Subject, Body, Attachment

'@Output Paramters: None.

'###############################################################

Function SendMail(SendTo, Subject, Body, Attachment)

Set oOutlook=CreateObject("Outlook.Application")  

‘Outlook object is created

Set oMail=oOutlook.CreateItem(0)

oMail.To=SendTo        ‘ Added SendTo address to oMail Obj

oMail.Subject=Subject        ‘ Added Subject to oMail Obj

oMail.Body=Body        ‘ Added Body Contents to oMail Obj

If (Attachment <> "") Then    

oMail.Attachments.Add(Attachment)

‘ Checks if there are any attachments

End If

oMail.Send      ‘ Sending out mail here

oOutlook.Quit            

‘ comment this if you want your outlook not to be closed

Set oMail = Nothing

Set oOutlook = Nothing

End Function

There is also another method using CDO (Collaboration Data Objects)

Make sure that you have installed the CDONTS in your OS before running this script

Info on CDONTS:

CDONTS stands for 'Collaboration Data Objects for Windows NT Server' and as the name suggest it is for NT, sorry Win9x users you don't have this component. The CDONTS component is installed when you install IIS on NT4 and Windows 2000. Although the component will run on Windows XP, Microsoft have decided to remove the component from IIS 5.1 on Windows XP, so you will have to track down a copy of the cdonts.dll and register it on the IIS web server

To use this component to send e-mail you also need the SMTP Server that ships with IIS 4 or 5 installed on the web server. The SMTP server is usually installed by default with the standard IIS installation.

'#############################################################

'@Function   :  SendMail

'@Purpose    :  To send a mail with QTP - Automation Test Status

'@Input Paramters: SendFrom, SendTo, Subject, Body, Attachment

'@Output Paramters: None.

'##############################################################

Function SendMail(SendFrom, SendTo, Subject, Body)

Set oMail=CreateObject("CDONTS.Newmail")

oMail.From = SendFrom

oMail.To = SendTo

oMail.Subject = Subject

oMail.Body = Body

oMail.Send

Set objMail = Nothing

End Function

If you are unable to install this CDONTS the try with CDO

'###########################################################

'@Function : SendMail1

'@Purpose : To send a mail with QTP - Automation Test Status

'@Input Paramters:  SendFrom, SendTo, Subject, Body, Attachment

'@Output Paramters: None.

'#############################################################

Function SendMail1(SendFrom, SendTo, Subject, Body)

Set ObjMail=CreateObject("CDO.Message")

ObjMail.From = SendFrom

ObjMail.To = SendTo

ObjMail.Subject = Subject

ObjMail.TextBody = Body

ObjMail.Send

set objMail = Nothing

End Function

Posted in: QTP – Outlook Application