Hi,
I have 2 accounts configured in my outlook.Need to read mails from second
email account.I have below code which can check emails(inbox folder) from
first account.Can anyone please help me out.
*Find out the list of all unread emails in Outlook Inbox*
Dim InboxFolder=6
Set ObjOUtlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set oInbox = objNamespace.GetDefaultFolder(InboxFolder)
Set oAllMails = oInbox.Items
iTotalMails = oAllMails.Count // Count the total NUmber of Read and
Unread Mail in inbox folder.
For i=1 to iTotalMails
'Check if the mail is UnRead or not
If oAllMails(i).UnRead = True Then
sSubject = sSubject & oAllMails(i).Subject & vbCrLf
End If
Next
msgbox sSubject
--
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
---
You received this message because you are subscribed to the Google Groups "QTP
- HP Quick Test Professional - Automated Software Testing" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/d/optout.
