![]() |
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 |
#11
|
|||
|
|||
![]()
Am Sat, 20 May 2006 17:42:01 -0700 schrieb Steve A.:
If an object variable isn´t set then, of course, trying to access that object´s methods fails, too. Because the message header contains e-mail addresses it´s blocked. A good page that lists all infos about that is www.outlookcode.com/d/sec.htm For getting the header without that dialog I´d recommend the Redemption from www.dimastr.com -- Viele Gruesse / Best regards Michael Bauer - MVP Outlook -- www.vbOffice.net -- Michael thanks for your help. There was another critical error in the code as well. The inclusion of error handling helped flush it out. The other error was a call to objSession.Logoff The code that works for me is show below. The only problem now being the pop-up dialog "A program is trying to access e-mail addresses you have stored in outlook. Do you want to allow this?" Regards Steve A Code for retrieving internet headers in an Outlook Rule: 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 On Error GoTo eh Set objApp = CreateObject("Outlook.Application") strEntryID = objOLItem.EntryID strStoreID = objOLItem.Parent.StoreID Set objSession = CreateObject("MAPI.Session") objSession.Logon , , False, False Set GetCDOItemFromOL = objSession.GetMessage(strEntryID, strStoreID) 'objSession.Logoff == WAS AN ERROR Set objSession = Nothing Exit Function eh: If Err.Number 0 Then MsgBox "Connection error: " & Err.Number & " " & Err.Description Err.Clear Exit Function End If End Function Sub RuleScript(MyMail As 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). Value MsgBox "Mail message arrived Internet Headers Are : " & InternetHeaders Set objCDOMsg = Nothing End Sub |
Ads |
|
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 |