# [ACCEPTED]-When is a MailItem not a MailItem?-outlook-2003

Score: 13

This code showed me the different TypeNames 1 that were in my Inbox:

Public Sub GetTypeNamesInbox()
Dim myOlItems As Outlook.Items
Set myOlItems = application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items
Dim msg As Object

For Each msg In myOlItems
Debug.Print TypeName(msg)
'emails are typename MailItem
'Meeting responses are typename MeetingItem
'Delivery receipts are typename ReportItem
Next msg

End Sub


HTH

Score: 4

I use the following VBA code snippet in 2 other Office Applications, where the Outlook 1 Library is directly referenced.

' Outlook Variables

Dim objOutlook As Outlook.Application: Set objOutlook = New Outlook.Application
Dim objNameSpace As Outlook.NameSpace: Set objNameSpace = objOutlook.GetNamespace("MAPI")
Dim objFolder As MAPIFolder: Set objFolder = objNameSpace.PickFolder()
Dim objMailItem As Outlook.MailItem

Dim iCounter As Integer:  iCounter = objFolder.Items.Count
Dim i As Integer

For i = iCounter To 1 Step -1
If TypeOf objFolder.Items(i) Is MailItem Then
Set objMailItem = objFolder.Items(i)
With objMailItem


etc.

Score: 3

have written a message handler function 19 in Outlook's Visual Basic (we're using Outlook 18 2003 and Exchange Server) to help me sort 17 out incoming email. It is working for me, except 16 sometimes the rule fails and Outlook deactivates 15 it. Then I turn the rule back on and manually 14 run it on my Inbox to catch up. The rule 13 spontaneously fails and deactivates several 12 times a day. I would love to fix this once 11 and for all.

Here is the code stripped of 10 the functionality, but giving you an idea 9 of how it looks:

   Public WithEvents myOlItems As Outlook.Items

Public Sub Application_Startup()
' Reference the items in the Inbox. Because myOlItems is declared
' "WithEvents" the ItemAdd event will fire below.
' Set myOlItems = Outlook.Session.GetDefaultFolder(olFolderInbox).Items
Set myOlItems = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub myOlItems_ItemAdd(ByVal Item As Object)
On Error Resume Next
If TypeName(Item) = "MailItem" Then
MyMessageHandler Item
End If
End Sub

Public Sub MyMessageHandler(ByRef Item As MailItem)
Dim strSender As String
Dim strSubject As String

If TypeName(Item) <> "MailItem" Then
Exit Sub
End If

strSubject = Item.Subject

rem do stuff
rem do stuff
rem do stuff
End Sub


One error I get is "Type 8 Mismatch" calling MyMessageHandler where 7 VB complains that Item is not a MailItem. Okay, but 6 TypeName(Item) returns "MailItem", so how 5 come Item is not a MailItem?

Another one 4 I get is where an email with an empty subject 3 comes along. The line

strSubject = Item.Subject


gives me an error. I 2 know Item.Subject should be blank, but why 1 is that an error?

Thanks.

Score: 2

My memory is somewhat cloudy on this, but 13 I believe that a MailItem is not a MailItem 12 when it is something like a read receipt. (Unfortunately, the 11 VBA code that demonstrated this was written 10 at another job and isn't around now.)

I also 9 had code written to process incoming messages, probably 8 for the same reason you did (too many rules 7 for Exchange, or rules too complex for the 6 Rules Wizard), and seem to recall running 5 into the same problem you have, that some 4 items seemed to be from a different type 3 even though I was catching them with something 2 like what you wrote.

I'll see if I can produce 1 a specific example if it will help.

Score: 1

There are many types of items that can be 5 seen in the default Inbox.

In the called 4 procedure, assign the incoming item to an 3 Object type variable. Then use TypeOf or TypeName to determine 2 if it is a MailItem. Only then should your code 1 perform actions that apply to emails.

i.e.

Dim obj As Object

If TypeName(obj) = "MailItem" Then
' your code for mail items here
End If

Score: 1
Dim objInboxFolder As MAPIFolder
Dim oItem As MailItem
Set objInboxFolder = GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)

For Each Item In objInboxFolder.Items
If TypeName(Item) = "MailItem" Then
Set oItem = Item

next


0

Score: 0

why not use a simple error handler for the 12 code? Seriously. You could write an error 11 for each read of a property or object that 10 seems to fail. Then have it Resume no matter 9 what. No need for complex error handling. Think 8 of a test that shows an empty subject. Since 7 you don't know what value it will return, if 6 any, and it seems to error on an empty or 5 blank subject, you need to picture it as 4 a simple test with a possible error. Run 3 the test as an if statement (one in which 2 you will get an error anyway), and have 1 the program resume on error.

On Error Resume Next
If object.subject = Null 'produces an error when subject is null, otherwise allows a good read
strSubject = ""   'sets the subject grab string to a null or empty string as a string
Else
strSubject = object.subject 'Sets the subject grab string to the subject of the message\item
End If


More Related questions