![]() |
If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Search this Thread | Display Modes |
#1
|
|||
|
|||
![]()
Greetings
I want to access message.fields to search the internet headers for a message. I'm using code I have found on the net, and don't understand MAPI or CDO very well. I believe the The code fails at GetMessage becuse the objSession is not initialised properly: Any suggestions? I have Function GetCDOItemFromOL(objOLItem As Object) As MAPI.Message Dim objSession As MAPI.Session Dim objApp As Outlook.Application Dim strEntryID As String Dim strStoreID As String Set objApp = CreateObject("Outlook.Application") strEntryID = objOLItem.EntryID strStoreID = objOLItem.Parent.StoreID objSession = CreateObject("MAPI.Session") objSession.Logon , , False, False Set GetCDOItemFromOL = objSession.GetMessage(strEntryID, strStoreID) objSession.Logoff Set objSession = Nothing End Function Sub RuleScript(MyMail As MailItem) Dim strID As String Dim olNS As Outlook.NameSpace Dim olMail As Outlook.MailItem Dim objCDOMsg As MAPI.Message Dim InternetHeaders As String Const CdoPR_TRANSPORT_MESSAGE_HEADERS = &H7D001E Set objCDOMsg = GetCDOItemFromOL(MyMail) InternetHeaders = objCDOMsg.Fields(CdoPR_TRANSPORT_MESSAGE_HEADERS) MsgBox "Mail message arrived Internet Headers Are : " & InternetHeaders Set objCDOMsg = Nothing Set olMail = Nothing Set olNS = Nothing End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
mail filter rule based on mail header field | volker.badziong | Outlook - Installation | 4 | June 16th 06 11:45 AM |
I can't download email only header in Outlook | Sandra JI | Outlook - General Queries | 1 | May 5th 06 06:23 PM |
printing name header in outlook 2000 emails | djeanes | Outlook - General Queries | 1 | February 15th 06 07:57 PM |
Configure Outlook attachment icon to display in email header | Jean-Claude | Outlook - Installation | 1 | February 6th 06 07:30 AM |
How can I change the content of my outlook e mail message header? | jggome | Outlook - Using Contacts | 1 | January 26th 06 04:32 AM |