|
| 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
September 14th 06, 02:41 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
How to determine whether a message was inbound or outbound
Given a mailItem which has .Sent = True, I want to determine whether it
was outbound (ie sent from this mailbox), or inbound (ie sent to this mailbox). I can't rely on the location of the message, because it may have been moved from the Inbox or from Sent Items. I'm also not keen on using the sender/recipient addresses, because of the possibility of someone changing their sender address, or sending an email to themselves. Testing for the presence of PR_RECEIVED_BY_ADDRTYPE seems to work: Public Function IsInboundMessage(itm As Outlook.MailItem) As Boolean Dim ssn As New MAPI.Session Dim msg As MAPI.Message Dim typ As String ssn.Logon , , False, False, 0 ' Use the existing Outlook session Set msg = ssn.GetMessage(itm.EntryID, itm.Parent.StoreID) On Error Resume Next typ = msg.Fields(CdoPR_RECEIVED_BY_ADDRTYPE).Value If Err.Number 0 Then Err.Clear IsInboundMessage = False Else IsInboundMessage = True End If On Error GoTo 0 ssn.Logoff Set ssn = Nothing Set msg = Nothing End Function Is this the right way to do this? And is it reliable? Thanks. Andy Bowles 
|
| Ads |
|
#2
September 15th 06, 07:04 AM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
|
How to determine whether a message was inbound or outbound
Am 14 Sep 2006 05:41:14 -0700 schrieb Andy Bowles:
That´s right and reliable, sent items do not have any pr_received* properties. -- Viele Gruesse / Best regards Michael Bauer - MVP Outlook -- www.VBOffice.net -- Given a mailItem which has .Sent = True, I want to determine whether it was outbound (ie sent from this mailbox), or inbound (ie sent to this mailbox). I can't rely on the location of the message, because it may have been moved from the Inbox or from Sent Items. I'm also not keen on using the sender/recipient addresses, because of the possibility of someone changing their sender address, or sending an email to themselves. Testing for the presence of PR_RECEIVED_BY_ADDRTYPE seems to work: Public Function IsInboundMessage(itm As Outlook.MailItem) As Boolean Dim ssn As New MAPI.Session Dim msg As MAPI.Message Dim typ As String ssn.Logon , , False, False, 0 ' Use the existing Outlook session Set msg = ssn.GetMessage(itm.EntryID, itm.Parent.StoreID) On Error Resume Next typ = msg.Fields(CdoPR_RECEIVED_BY_ADDRTYPE).Value If Err.Number 0 Then Err.Clear IsInboundMessage = False Else IsInboundMessage = True End If On Error GoTo 0 ssn.Logoff Set ssn = Nothing Set msg = Nothing End Function Is this the right way to do this? And is it reliable? Thanks. Andy Bowles
|
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| cannot turn off outbound email scanning | Cheryl King | Outlook Express | 7 | July 4th 06 04:45 AM |
| Whats this about the inbound and outbound... | Chris Redfield | Outlook Express | 5 | June 3rd 06 10:58 AM |
| Determine the file extension of this attachment? | George Hester | Outlook and VBA | 2 | April 24th 06 11:41 PM |
| Determine if a Folder contains a UserProperty | Rog | Add-ins for Outlook | 3 | April 10th 06 06:54 PM |
| Stationery name appears in plain-text outbound message | Steve H | Outlook Express | 7 | January 26th 06 03:45 AM |
Linear Mode
