QTP:How to find an email with a subject line in MS outlook and then click on an link

[royrover]

Hey guys

I am trying to solve this problem using QTP where i need to make sure that an email is generated every time i do a successful registration on my product

So the business life cycle is something like this
1. Register on the product
2. An email is generated which i am sending to outlook

Expected result
1. An email is generated on a successful registration ( This email is in a sub folder of my inbox like Notifications_test)
2. If possible do any further validation on the To address field and the body of the email with the template it is supposed to send

Can somebody help?

Till now i have

Code:

Set olapp = createobject("outlook.application")
set inbox = olapp.getnamespace("mapi").folders

for each fold in inbox
msgbox fold.name
getsubfolders(fold)
next

msgbox Notifications_Test.count
sub getunreadmails(objfolder)
'sub getunreadmails(Notifications_Test)
set col = objfolder.items

for each mail in col

If mail.subject = "[IUSR] Validation Instructions[x@y.com]" then

msgbox mail.subject
msgbox mail.sendername
msgbox mail.body
msgbox mail.senton

end if

next

end sub

I will appreciate any help

[Arun Prakash]

Create a folder for that particular Type of mail
and check in that folder

Code:

Option Explicit

    Dim dicEmailAddresses
    Dim strLogFolder
    Dim strEmail

    strLogFolder = "C:Program FilesSpare BackupLogs"
    Set dicEmailAddresses = GetEmailAddressesFromLogs(strLogFolder)

    For Each strEmail In dicEmailAddresses.Keys()
        WScript.Echo strEmail
    Next

    Function GetEmailAddressesFromLogs(StrSource)
        Dim oFSO
        Set oFSO = CreateObject("Scripting.FileSystemObject")
        Dim oFolder
        Dim strLine
        Dim dicResults
        Dim strEmail
        Dim oFile
        Set oFile = oFSO.GetFolder(strLogFolder)


        Set dicResults = CreateObject("Scripting.Dictionary")
        For Each oFile In oFSO.GetFolder(strSource).Files
            For Each strLine In Split(oFile.ReadAll(), VbCrLf)
                If InStr(strLine, "INFO: Logging in ") > 1 Then
                    strEmail = Split(strLine, "INFO: Logging in ")(1)
                    If Not dicResults.Exists(strEmail) Then
                        dicResults.Add strEmail, ""
                    End If
                End If
            Next
        Next

    Set GetEmailAddressesFromLogs = dicResults End Function

Has this answred your question?

[royrover]

Does it require no mapi object?

My intention is to integrate with microsoft outlook and check in a particular folder in the inbox and check for that validation email to show up

[Arun Prakash]

Try to use the below code.I think this will solve your problem

Code:

Set olapp = createobject("outlook.application")
set inbox = olapp.getnamespace("mapi").folders

for each fold in inbox
    msgbox fold.name
    If fold.name = "Give The main Folder name" Then
        getsubfolders(fold)
    End If
    
next

    msgbox inbox.count
    sub getunreadmails(objfolder)

        set col = objfolder.items
    
        for each mail in col
            if mail.unread then
                msgbox mail.subject
                msgbox mail.sendername
                msgbox mail.body
                msgbox mail.senton
                mail.unread=false
            end if
        next

    end sub
    sub getsubfolders(objparentfolder)
        set colfolders = objparentfolder.folders
        for each objfolder in colfolders
            set objsubfolder = objparentfolder.folders(objfolder.name)
            if objfolder.name="Give the Sub Folder Name" then
                getunreadmails(objfolder)
            end if
            getsubfolders objsubfolder
        next
    end sub