How I can recognize outgoing and incoming messages?

[smalolepszy]

I have a MailItem and now I want to know if it's incoming or outgoing
messages.

How I can do it?

Sub mail()
Dim a As MAPIFolder
Set a = GetNamespace("MAPI").GetFolderFromID("000000000ED585E585F16145AD566483B11F919242840000")
Dim iAs Integer
Dim b As MailItem


For i = 1 To a.items.Count
Set b = a.items.Item(i)
Next i
End Sub

 

[Dmitry Streblechenko \(MVP\)]

I don't think you can do that on the Outlook Object Model level, but on the
Extended MAPI level you could check if any of the PR_RCVD_xxx or
PR_RECEIVED_BY_xxx properties exist - they are only present on the incoming
messages.

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

 

[smalolepszy]

so how can i get access to the Extended MAPI level?

 

[Dmitry Streblechenko \(MVP\)]

Extended MAPI is directly accessible from C++/Delphi only. If you are using
other languages, you might want to look into using CDO 1.21 or Redemption
libraries.
See http://www.outlookcode.com/d/mapi.htm

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool