Database Search

TechHome

Redemption

• Add Attachment to Journal Item
• Adding Contact Information into Outlook
• Compiled EXE Keeps Running Under Task Manager
• Copy Contacts Folder to Subfolder in Outlook
• Create a Folder under Personal Folders in Outlook
• Create Outlook Distribution List
• Creating Address Book XML File
• Current Contact Folder Items
• Delete Mail from Outlook using OLE
• Delete Outlook Contact
• Email Forwarder
• Embed an Image into an Outlook Email
• Empty Folder in Outlook
• Encrypt Message in Outlook
• Find Contacts in Outlook
• Find Folder with the String Mailbox
• Get Internet headers Field from Outlook Message
• Get Contact data form Contact Item Currently Selected in Outlook
• Get Contact Information In Outlook
• Get Internet headers Field from Outlook Message
• Get list of appointments
• Get member of Outlook Distribution List
• Get Outlook Contact information
• How to Send Mail from Outlook using OLE
• Identify Outlook Folder Type or Contents
• Import Excel Data into Outlook Contact Folder
• Launch Outlook and Make Visible
• List Subfolders
• Mark Messages as Read in Outlook using OLE
• ObjectEventAdd To Capture ItemSend Event
• OLE and OUTLOOK check mail
• OLE and OUTLOOK read mail other than inbox
• OLE and OUTLOOK read mail
• OLE MAPI Choose Folder
• OLE_Outlook- add Entry to Address book
• Outlook - Get Oldest Email Message
• Outlook constants
• Outlook Contacts to XML
• Outlook PST to MSG Export
• Outlook Quit Event
• Outlook Received Date
• Outlook Reply-To in OLE
• Outlook Sendmail OLE Example
• Outlook Version
• Read Open Active Outlook Message
• Recurse Outlook folders
• Redemption Causes WinBatch Studio to Crash
• Rename Personal Folder in Oulook
• Save file attachments in Outlook
• Save outlook attachments
• Send to Multiple Recipients
• Sort Email by Received Time
• TypeOf Equivalent
• Use Existing Instance Or Create a New One If Necessary
• Using OLE to resolve name in Outlook
• WinBatch and Redemption Issue
• Writing Appointments to Outlook

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Get Internet headers Field from Outlook Message

Question:

'The code below will browse a collection of mails and displays a message box with the internet headers
'To get the code working
'0) install redemption 'see the link in previous post)
'1) set tools/macros/security to Medium
'2) close OL and restart: accept macros to be fired
'3) Alt F11 to open VBA Editor
'4) Expand Project1, expand Microsoft Outlook Objects; double clcik ThisOutlookSession
'5) in right pane, cut and paste the code below

' =============paste from here

sub iHeaders()
Dim mySelection As Outlook.Selection
Dim utils, MailItem, internetHeadersField, internetHeaders, msgId, MessIdPosStart, MessIdPosEnd
dim itm as object
Set utils = CreateObject("Redemption.MAPIUtils")
Set mySelection = Application.ActiveExplorer.Selection

If mySelection.Count = 0 Then
   Set mySelection = Nothing
   Exit Sub
End If
for each itm in mySelection
Set MailItem = itm
internetHeadersField = &H7D001E ' &HC1F001E
internetHeaders = utils.HrGetOneProp(MailItem.MAPIOBJECT, internetHeadersField)
Msgbox internetHeaders 
next
Set utils = Nothing
End Sub

Answer:

Here is my attempt at a translation (requires WB 2004C or newer):


;The code below will browse a collection of mails and displays a message box with the internet headers
;To get the code working
;0) install redemption 
;1) set tools/macros/security to Medium
;2) close OL and restart: accept macros to be fired
;3) Run the code below

myOlApp = CreateObject("Outlook.Application")
;Use this method to return the Explorer object that the user is most likely viewing. 
myExplorer = myOlApp.ActiveExplorer
;Using the Selection Object 
;Use the Selection property to return the Selection collection from the Explorer object. For example:
;mySelectedItems = myExplorer.Selection
mySelection = myExplorer.Selection

utils = CreateObject("Redemption.MAPIUtils")
If mySelection.Count = 0 
mySelection = 0
Exit 
EndIf

foreach itm in mySelection
MailItem = itm
internetHeadersField = 8192030 ;&H7D001E (8192030) or &HC1F001E(203358238)
internetHeaders = utils.HrGetOneProp(MailItem.MAPIOBJECT, internetHeadersField)
Message("internetHeaders", internetHeaders)
MailItem = 0
next

utils = 0
mySelection = 0
myExplorer = 0
myOlApp = 0



Article ID:   W16586

File Created: 2005:02:18:12:21:32
Last Updated: 2005:02:18:12:21:32