How to identify a mail item from a public folder in MS Outlook

[DPM]

Hi,

I have developed an application which read mails from a user selected folder
of MS Outlook.
Following is a code sample.

loOutlookSession = CREATEOBJECT("OutLook.Application")
loNameSpace = loOutlookSession.GetNameSpace("MAPI")
loMailFolder = loNameSpace.PickFolder()
IF loMailFolder.DefaultItemType = 0
** This is a folder with mail items
ENDIF

This works fine as long as a mail folder is selected but if the user selects
a public folder it does not imports its mails as the public folder's
DefaultItemType property returns 6.

I noticed that these public folders could have items other than mails, such
as tasks, contacts, ect..
Therefore even if public folders are allowed to import mails from it, it
fails when there are non mail items in the public folder.

To avoid this could someone please advice how to identify a mail item from
the rest of the non mail items in the public folder.

 

[Michael Bauer [MVP - Outlook]]

Instead of checking the folder's DefaultItemType property, you can check
each item's object type. For instance:

Dim obj as Object
For Each obj in Items
If Typeof obj is Outlook.MailItem Then ...
Next

--
Best regards
Michael Bauer - MVP Outlook

: Outlook Categories? Category Manager Is Your Tool
: VBOffice Reporter for Data Analysis & Reporting
: <http://www.vboffice.net/product.html?pub=6&lang=en>


Am Tue, 10 Nov 2009 10:16:53 +0530 schrieb DPM:

 

[DPM]

Thanks Michael,
Also found that the Class property returns 43 for a MailItem

 

[JP]

To add to what Michael wrote, use a custom function for this. i.e.

Function IsMailItem(Itm As Object) As Boolean
IsMailItem = (Typeof Itm is Outlook.MailItem)
End Function

Then call the function in your loop:

Dim obj as Object
For Each obj in Items
If IsMailItem(obj) Then ...

Next obj


--JP

 

[Michael Bauer [MVP - Outlook]]

What an overhead.

--
Best regards
Michael Bauer - MVP Outlook

: Outlook Categories? Category Manager Is Your Tool
: VBOffice Reporter for Data Analysis & Reporting
: <http://www.vboffice.net/product.html?pub=6&lang=en>


Am Tue, 10 Nov 2009 05:46:54 -0800 (PST) schrieb JP:

 

[JP]

It's encapsulation, Michael. Besides, it's not going to change the
number of iterations.

--JP