+- Micro Focus QTP (UFT) Forums (https://www.learnqtp.com/forums)
+-- Forum: Micro Focus UFT (earlier known as QTP) (https://www.learnqtp.com/forums/Forum-Micro-Focus-UFT-earlier-known-as-QTP)
+--- Forum: VB Scripting/Descriptive Programming (https://www.learnqtp.com/forums/Forum-VB-Scripting-Descriptive-Programming)
+--- Thread: Extracting Email Body from Outlook (/Thread-Extracting-Email-Body-from-Outlook--9118)
Extracting Email Body from Outlook - waseem.khan.91 - 03-04-2019
Hi All,
I've been trying to simply display the body email of an email message in a message box (code below), but consistently get a general run error and I don't know where i've been wrong. I've even attempted to save the email but get them 'General Run Error'.
Any help would be appreciated! Thanks!
Using UFT version 14.51 and Outlook 2016
Code:
Set OutlookApp = CreateObject("Outlook.Application")
Set myNamespace = OutlookApp.GetNameSpace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(6)
myFolder.Display
Set colItems = myFolder.Items
Set colFilteredItems = colItems.Restrict("[SenderEmailAddress] = 'no-reply@verificationemail.com'")
For each item in colFilteredItems
If item.Unread Then
If InStr(item.Subject, "SKF Insight Rail") > 0 Then
'item.SaveAs "C:\Email Data\Text.txt", 0
myBody = item.body
item.unread = false
End If
End If
Next
msgbox myBody