VBScript Procedures in QTP

Shawn — Thu, 29 Sep 2011 14:31:29 +0000

Tips & Tricks Series – VBScript Procedures Overview

If you are using QuickTest Pro, then QTP uses VBScript as the programming language and there are basically two types of procedures in VBScript - Functions and Subroutines. The main difference between them is that a Function performs some actions and returns a value while a subroutine is used to perform some actions but does not return a value.

There is also a concept of private versus public. If you create a Function or Subroutine at the top of your test script in QTP, then it is private and only that script can call the procedure(s) and use it. If you add it to a Function Library and add the Function Library reference to the Resources tab in the Test Settings window in QTP, then all the scripts/actions in the test suite (including all called action & reusable actions) can call all the procedures stored in that Function Library (thus it is considered public).

QTP: Send Outlook Email

Shawn — Fri, 22 Jan 2010 16:32:19 +0000

QuickTest Pro sample code – sending an email using Outlook

This QuickTest Pro code sample shows how you can create a subroutine that will send an email using Microsoft Outlook. The subroutine is defined and can either be placed at the top of your script (must be executed first before it is called in order for the script to know about the subroutine) or it can be placed in a Function Library and associated with the test script.

The reason to use a subroutine is to isolate the process code that creates and sends the Outlook email to a common subroutine in order to take advantage of reuse. This way every time a test script needs to send an email it just needs to have the bottom three lines of code shown below in the code image (lines 35 – 37). It utilizes the “CreateObject” to create an instance of the Outlook application in order to create the actual email. The data used in the email is passed into the subroutine using an array and then each element is referenced within the subroutine code.

Here is the result of sending the email, the email was received and it looks like this:

This is kind of a neat feature that you may find a need for.

In addition to the images above, here is a snippet of the code for easier readability and the ability to copy the code for your own use:





Sub CreateEmail (emailInfo)

Dim objOutl, objMailMsg, objNameSpace, intRecipientCounter, strEmailAddressConst olMailItem = 0      ’ Constants for new items
Const olAppointmentItem = 1
Const olContactItem = 2
Const olTaskItem = 3
Const olJournalItem = 4
Const olNoteItem = 5
Const olPostItem = 6intRecipientCounter=1      ’Start the email address counter at 1Set objOutl=CreateObject (“Outlook.Application”)   ’Create an Outlook object
Set objMailMsg=objOutl.CreateItem(olMailItem)      ’Create a new Outlook mail object
objMailMsg.Recipients.Add(emailInfo(0))         ’Add the email address to the recipient list of the message
objMailMsg.Subject=emailInfo(1)            ’Set the subject of the message
objMailMsg.Body=emailInfo(2)            ’Set the body of the mail message
objMailMsg.Send               ’Send the mail message‘Free up the memory
Set objOutl=Nothing
Set objMailMsg=NothingEnd Sub‘Script code to actually call the subroutine with data to be used in the email that will be sent
Dim emailInfo
emailInfo = Array(“test@hotmail.com”,”Subject: QTP Test email”,”Desc: This is a test email sent by QTP”)
CreateEmail (emailInfo)

Good Luck.

ASI » subroutine

VBScript Procedures in QTP

QTP: Send Outlook Email