Home
Articles
- All
- Automation Frameworks
- DOTNetFactory
- QTP
- QTP/DP
- QTP/Siebel
- QTP/Web
- QTP/Windows
- VB.NET
- VBScript
Links
About
- Idhasoft
- Relevant Codes
Contact Me
Subscribe

Relevant Codes

A Test Development Resource for HP QuickTest Professional.

CDO: Send Email from Yahoo, Hotmail, Live, AOL or GMail

by Anshoo Arora on August 10, 2009

This article discusses 2 ways of sending e-mail from your Yahoo, Hotmail, Gmail, Live or AOL e-mail accounts using the ‘clsSendMail’ class:

Calling the Method with the Body Message
Retrieve body-messages from text files

This can be quite handy during regression cycles – you can use this code to send yourself an e-mail whenever a step in the test process fails. You can even keep a count of the number of times this procedure executes in your script and even stop your test if too many steps fail.

Calling the Method with the Body Message
The code snippets below shows the syntax to send an HTML and plain text e-mails:

'TEXT

'Call Email( Sender's_ID, Sender's_Password, Send_To, CC_To, Subject, Message )
Email "XYZ@AOL.com", "myPassword", "ABC@Gmail.com", _
        "", "Subject", "Hello, this is a test mail."

'HTML

'Call Email( Sender's_ID, Sender's_Password, Send_To, CC_To, Subject, Message )
Email "XYZ@AOL.com", "myPassword", "ABC@Gmail.com", "", _
        "Subject", "<h1>Hello</h1><p>Test Mail</p>"

Retrieve body-messages from text files
You can create a text file with the body message, and use the file path in the method to send the e-mail. Below is an example of an HTML body inserted into a text file:

'Call Email( Sender's_ID, Sender's_Password, Send_To, CC_To, Subject, Message )
Email "XYZ@AOL.com", "myPassword", "ABC@Gmail.com", "", _
        "Subject", "C:\MyTestMail.txt"

Sample Text File

Similarly, mails can be sent to multiple recipients using “;” between Recipient’s emails. Example:

Email "Me@MeEmail.Com", "mePassword", "You@YouEmail.Com;Them@TheirEmail.Com", _
    "CC@YouCC.Com;CC@MeCC.Com", "Test Subject", "Test Message"

You can find the download links to this class towards the end of this post.

How its done:

'Public Class clsSendMail
Class clsSendMail
 
    Private oMessage    'CDO.Message Object
    Private strFrom     'Sender's Email ID: XX@YY.COM
    Public Body         'Body Text from Text File

    '—————————————————————————————————————————————  
    ' Name: Sub Email (Public)
    ' 
    ' Purpose: Send Email Using CDO
    ' 
    ' Parameters:
    '    sEmailID: Sender's Mail ID String
    '    sPassword: Sender's Password String
    '    sTo: Recipient's Mail ID String (Primary)
    '    sCC: Recipient's Mail ID String (CC)
    '    sSubject: Subject String
    '    sBody: Body Message String
    ' 
    ' Return: -
    '————————————————————————————————————————————— 
    Public Sub Send( sEMailID, sPassword, sTo, sCC, sSubject, sBody )
    '————————————————————————————————————————————— 
        Dim oRegExp     'RegEx Object
        Dim sDetails    'Report Details
        Dim intStatus   'Report Status
        Dim sStepName   'Report Step
        
        'Sender ID has Class scope
        Me.From = sEmailID
        'Message Body
        If sBody <> "" Then Me.Body = sBody
 
        intStatus = micPass
        sStepName = " Sent"
 
        Set oRegExp = New RegExp
        oRegExp.Global = True
        oRegExp.Pattern = "<\w>|<\w\w>|<\w\d>"
        Set oMatches = oRegExp.Execute( Me.Body )
 
        'Build Message
        With oMessage
            .Subject = sSubject
            .From = sEmailID
            .To = sTo
            .CC = sCC
            'BCC Property can be added as well:
            '.BCC = sBCC
            'If HTML Tags found, use .HTMLBody
            If oMatches.Count > 0 Then
                .HTMLBody = Me.Body
            Else
                .TextBody = Me.Body
            End If
        End With
 
        Set oMatches = Nothing
        Set oRegExp = Nothing
 
        With oMessage.Configuration.Fields
            'Sender's Mail ID
            .Item("http://schemas.microsoft.com/cdo/configuration/" &_
            "sendusername") = sEmailID
            'Sender's Password
            .Item("http://schemas.microsoft.com/cdo/configuration/" &_
            "sendpassword") = sPassword
            'Name/IP of SMTP Server
            .Item("http://schemas.microsoft.com/cdo/configuration/" &_
            "smtpserver") = cdoSMTPServer
            'Server Port
            .Item("http://schemas.microsoft.com/cdo/configuration/" &_
            "smtpserverport") = cdoOutgoingMailSMTP
            'Send Using: (1) Local SMTP Pickup Service (2) Use SMTP Over Network
            .Item("http://schemas.microsoft.com/cdo/configuration/" &_
            "sendusing") = cdoSendUsing
            'Authentication Used: (1) None (2) Basic (3) NTLM
            .Item("http://schemas.microsoft.com/cdo/configuration/" &_
            "smtpauthenticate") = cdoAuthenticationType
            'SMTP Server Requires SSL/STARTTLS: Boolean
            .Item("http://schemas.microsoft.com/cdo/configuration/" &_
            "smtpusessl") = cdoUseSSL
            'Maximum Time in Seconds CDO will try to Establish Connection
            .Item("http://schemas.microsoft.com/cdo/configuration/" &_
            "smtpconnectiontimeout") = cdoTimeout
            'Update Configuration Entries
            .Update
        End With
 
        'Report Details
        sDetails = "SMTP Server: " & cdoSMTPServer & vbLf
        sDetails = sDetails & "Sender: " & sEMailID & vbLf
        sDetails = sDetails & "Recipient: " & sTo & vbLf
        sDetails = sDetails & "Server Port: " & cdoOutgoingMailSMTP & vbLf
        sDetails = sDetails & "SSL Used: " & cdoUseSSL & vbLf
        sDetails = sDetails & "Authentication Type: " & cdoAuthenticationType & vbLf
        sDetails = sDetails & "SMTP Service Type: " & cdoSendUsing & vbLf & vbLf
        sDetails = sDetails & "Subject: " & sSubject & vbLf & vbLf
        sDetails = sDetails & "Body: " & sBody
 
        On Error Resume Next
            'Send Message
            oMessage.Send
            If Err.Number <> 0 Then
                intStatus = micWarning
                sStepName = " Not Sent"
                sDetails = sDetails & vbLf & "Error Description: " & Err.Description
            End If
        On Error Goto 0
 
        'If you're not using QTP, please disable the statement below:
        Reporter.ReportEvent intStatus, "EMail" & sStepName, sDetails
    End Sub
 
    '—————————————————————————————————————————————  
    ' Name: Sub LoadBodyMessage (Public)
    ' 
    ' Purpose: Loads BodyText from a Text File
    ' 
    ' Parameters:
    '    sCompleteFilePath: Complete Path to the Text File (Eg: "C:\MyDocs\MyMail.txt")
    ' 
    ' Return: -
    '—————————————————————————————————————————————  
    Public Sub LoadBodyMessage( sCompleteFilePath )
    '————————————————————————————————————————————— 
        CONST ForReading = 1 
        Dim oFSO, oFile
 
        Set oFSO = CreateObject( "Scripting.FileSystemObject" )
        Set oFile = oFSO.OpenTextFile( sCompleteFilePath, ForReading )
        Me.Body = oFile.ReadAll
        oFile.Close: Set oFile = Nothing
 
        Set oFSO = Nothing
    End Sub
 
    '—————————————————————————————————————————————  
    ' Name: Class_Initialize (Private)
    ' 
    ' Purpose: Binds to the CDO Object
    ' 
    ' Parameters: -
    ' 
    ' Return: -
    '—————————————————————————————————————————————  
    Private Sub Class_Initialize
    '—————————————————————————————————————————————  
        Set oMessage = CreateObject( "CDO.Message" )
    End Sub
 
    '—————————————————————————————————————————————  
    ' Name: Class_Initialize (Private)
    ' 
    ' Purpose: Release the CDO Object
    ' 
    ' Parameters: -
    ' 
    ' Return: -
    '—————————————————————————————————————————————     
    Private Sub Class_Terminate
    '————————————————————————————————————————————— 
        Set oMessage = Nothing
    End Sub
 
    '—————————————————————————————————————
    ' Name: Property cdoSendUsing (Private)
    ' 
    ' Purpose: Readonly property configuration for SMTP Service
    '—————————————————————————————————————
    Private Property Get cdoSendUsing  'As Integer
    '—————————————————————————————————————    
        cdoSendUsing = 2    'Use SMTP Over The Network
        'cdoSendUsing = 1    'Use Local SMTP Service Pickup Directory
    End Property
 
    '—————————————————————————————————————
    ' Name: Property cdoTimeout (Private)
    ' 
    ' Purpose: Maximum time in seconds CDO will try to establish a connection
    '—————————————————————————————————————
    Private Property Get cdoTimeout  'As Integer
    '—————————————————————————————————————    
        'cdoTimeout = 15    'Seconds
        cdoTimeout = 45    'Seconds
        'cdoTimeout = 75    'Seconds
    End Property
 
    '—————————————————————————————————————
    ' Name: Property cdoAuthenticationType (Private)
    ' 
    ' Purpose: Type of Authentication to be used
    '—————————————————————————————————————    
    Private Property Get cdoAuthenticationType  'As Integer
    '—————————————————————————————————————    
        'cdoAuthenticationType = 0    'No Authentication
        cdoAuthenticationType = 1    'Basic Authentication
        'cdoAuthenticationType = 2    'NTML Authentication
    End Property
 
    '—————————————————————————————————————
    ' Name: Property cdoOutgoingMailSMTP (Private)
    ' 
    ' Purpose: Server Port
    '—————————————————————————————————————    
    Private Property Get cdoOutgoingMailSMTP  'As Integer
    '—————————————————————————————————————    
        If InStr(1, Lcase(Me.From), "@gmail") <> 0 Then
            cdoOutgoingMailSMTP = 465
        ElseIf InStr(1, LCase(Me.From), "@aol") <> 0 Then
            cdoOutgoingMailSMTP = 587
        Else
            cdoOutgoingMailSMTP = 25
        End If
    End Property
 
    '—————————————————————————————————————
    ' Name: Property cdoSMTPServer (Private)
    ' 
    ' Purpose: Name/IP of SMTP Server
    '—————————————————————————————————————    
    Private Property Get cdoSMTPServer  'As String
    '—————————————————————————————————————    
        If InStr(1, LCase(Me.From), "@yahoo") <> 0 Then
            cdoSMTPServer = "smtp.mail.yahoo.com"
        ElseIf InStr(1, LCase(Me.From), "@gmail") <> 0 Then
            cdoSMTPServer = "smtp.gmail.com"
        ElseIf InStr(1, LCase(Me.From), "@hotmail") <> 0 Or _
               InStr(1, LCase(Me.From), "@live") <> 0 Then
            cdoSMTPServer = "smtp.live.com"
        ElseIf InStr(1, LCase(Me.From), "@aol") <> 0 Then
            cdoSMTPServer = "smtp.aol.com"
        End If    
    End Property
 
    '—————————————————————————————————————
    ' Name: Property cdoUseSSL (Private)
    ' 
    ' Purpose: Setting for SMTP Server's use of SSL (Boolean)
    '—————————————————————————————————————        
    Private Property Get cdoUseSSL  'As Boolean
    '—————————————————————————————————————    
        cdoUseSSL = True
        If InStr(1, LCase(Me.From), "@aol") <> 0 Then
            cdoUseSSL = False
        End If
    End Property
 
    '—————————————————————————————————————
    ' Name: Property From (Public)
    ' 
    ' Purpose: Sender's Email ID
    '—————————————————————————————————————
    Public Property Let From( ByVal Val )
           strFrom = Val
    End Property
    Public Property Get From 'As String
           From = strFrom
    End Property
 
End Class
 
'—————————————————————————————————————————————  
' Name: Sub Email (Public)
' 
' Purpose: Sends an Email Using CDO to a recipient
' 
' Parameters:
'    sEmailID: Sender's Mail ID String
'    sPassword: Sender's Password String
'    sTo: Recipient's Mail ID String
'    sSubject: Subject String
'    sBody: Body Message String
' 
' Return: -
'————————————————————————————————————————————— 
Public Function Email( EmailID, Password, Recipient, CC, Subject, Body )
'————————————————————————————————————————————— 
    Set Email = New clsSendMail
    With Email
        .Send EmailID, Password, Recipient, CC, Subject, Body
    End with 
End Function
 
'—————————————————————————————————————————————  
' Name: Sub EmailFromFile (Public)
' 
' Purpose: Sends an Email Using CDO to a recipient
' 
' Parameters:
'    sEmailID: Sender's Mail ID String
'    sPassword: Sender's Password String
'    sTo: Recipient's Mail ID String
'    sSubject: Subject String
'    sCompleteFilePath: Text File containing the Body Message
' 
' Return: -
'————————————————————————————————————————————— 
Public Function EmailFromFile( EmailID, Password, Recipient, CC, Subject, sCompleteFilePath )
'————————————————————————————————————————————— 
    Set EmailFromFile = New clsSendMail
    With EmailFromFile
        .LoadBodyMessage sCompleteFilePath
        .Send EmailID, Password, Recipient, CC, Subject, ""
    End with 
End Function

You can use this code as a .VBS file, but, please remember to remove/comment the Reporter.ReportEvent statement on Line 113.

Download for QTP
Download for executing as .VBS

If you have any questions, please ask them in the comments section. If your query is confidential, please use the Contact Form to send me an e-mail instead.

Tagged as: CDO, Email, Email QTP, QTP AOL, QTP Check Email, QTP Email, QTP GMail, QTP Hotmail, QTP Live, QTP Yahoo, Send Email, VBScript

{ 30 comments… read them below or add one }

1 Anonymous August 11, 2009 at 9:07 pm

Hi
Anshoo this is good Work
Your code is well documented

It would be nice if you could explain me the concept of keyword “me” like me.Form

Relevant Codes

CDO: Send Email from Yahoo, Hotmail, Live, AOL or GMail

Default Widget

Default Widget

Tags

Recent Comments

Subscribe