Type mismatch error on new mail item in outlook

[thomasks]

I have some code that creates a new task in outlook when an email comes in that meets a certain criteria. That part of the code works fine. However If I receive an invitation for a meeting notification (is this now an calendar item?) then I get a type mismatch error in my code. Any ideas?

Option Explicit
Option Base 1
[green][i]' for automatic syntax highlighting see faq102-6487 
[/i][/green][b]Private[/b] [b]Sub[/b] Application_NewMail()
 
   [b]Dim[/b] oNameSpace                  [b]As[/b] NameSpace
   [b]Dim[/b] oFolderInbox                [b]As[/b] MAPIFolder
   [b]Dim[/b] oMailItem                   [b]As[/b] MailItem
 
   [b]Set[/b] oNameSpace = Application.GetNamespace([navy]"MAPI"[/navy])
   [b]Set[/b] oFolderInbox = oNameSpace.GetDefaultFolder(olFolderInbox)
 
   oFolderInbox.Items.Sort [navy]"Received"[/navy], False
   [b]Set[/b] oMailItem = oFolderInbox.Items.GetFirst
 [green][i]'Check the message subject for quote requests to Kirk Thomas
[/i][/green] [green][i]'if exist then create a task for it and delete the email
[/i][/green]   [b]If[/b] InStr(LCase(oMailItem.Subject), [navy]"pqr"[/navy]) > 0 [b]Or[/b] _
      InStr(LCase(oMailItem.Subject), [navy]"rfq"[/navy]) > 0 [b]Or[/b] _
      InStr(LCase(oMailItem.Subject), [navy]"ccqr"[/navy]) > 0 [b]And[/b] _
      InStr(LCase(oMailItem.Body), [navy]"estimator is kirk thomas"[/navy]) > 0 [b]Then[/b]
      [b]With[/b] oMailItem
         NewTask .SenderName, .Subject, .Body, .Attachments
      [b]End[/b] [b]With[/b]
      oMailItem.Delete
   [b]End[/b] [b]If[/b]
 
   [b]Set[/b] oMailItem = [b]Nothing[/b]
   [b]Set[/b] oFolderInbox = [b]Nothing[/b]
   [b]Set[/b] oNameSpace = [b]Nothing[/b]
 
[b]End[/b] [b]Sub[/b]

The error is highlighted on the line that says:
Set oMailItem = oFolderInbox.Items.GetFirst

Thanks for your time and help.

 

[thomasks]

Ok, I solved my problem by checking the class of the incoming email and making sure it was NOT a meeting request.
Here is the code with the added line in it:

[green][i]' for automatic syntax highlighting see faq102-6487 
[/i][/green]Option Explicit
Option Base 1
Private [b]Sub[/b] Application_NewMail()
    [green][i]'Define the variables to be used
[/i][/green]   [b]Dim[/b] oNameSpace                  [b]As[/b] NameSpace
   [b]Dim[/b] oFolderInbox                [b]As[/b] MAPIFolder
   [b]Dim[/b] oMailItem                   [b]As[/b] MailItem
   [b]Dim[/b] oMeeting                    [b]As[/b] MeetingItem
   
    [green][i]'Load the variables with the information needed
[/i][/green]   [b]Set[/b] oNameSpace = Application.GetNamespace([navy]"MAPI"[/navy])
   [b]Set[/b] oFolderInbox = oNameSpace.GetDefaultFolder(olFolderInbox)
   
    [green][i]'Sort received items from the inbox in ascending order
[/i][/green]   oFolderInbox.Items.Sort [navy]"Received"[/navy], False
   
   [green][i]'Make sure the email is not a meeting request, if it is then ignore it
[/i][/green]   [green][i]'and exit the sub since no task needs to be created
[/i][/green]   [b]If[/b] oFolderInbox.Items.GetFirst.Class = olMeetingRequest [b]Then[/b] [b]Exit[/b] [b]Sub[/b]
   
   [green][i]'Set the object oMailItem to the most recent email recieved
[/i][/green]   [b]Set[/b] oMailItem = oFolderInbox.Items.GetFirst
   
   [green][i]'Check the message subject for quote requests to Kirk Thomas
[/i][/green]   [green][i]'if it is, then create a task for it and delete the email
[/i][/green]   [b]If[/b] InStr(LCase(oMailItem.Subject), [navy]"pqr"[/navy]) > 0 [b]Or[/b] _
      InStr(LCase(oMailItem.Subject), [navy]"rfq"[/navy]) > 0 [b]Or[/b] _
      InStr(LCase(oMailItem.Subject), [navy]"ccqr"[/navy]) > 0 [b]And[/b] _
      InStr(LCase(oMailItem.Body), [navy]"estimator is kirk thomas"[/navy]) > 0 [b]Then[/b]
      
      [green][i]'This is where the actual task is created
[/i][/green]      [b]With[/b] oMailItem
         NewTask .SenderName, .Subject, .Body, .Attachments
      [b]End[/b] [b]With[/b]
      
      [green][i]'Delete the email since we don't need it any longer
[/i][/green]      oMailItem.Delete
      [b]End[/b] [b]If[/b]
      
    [green][i]'Release the objects from memory after use
[/i][/green]   [b]Set[/b] oMailItem = [b]Nothing[/b]
   [b]Set[/b] oFolderInbox = [b]Nothing[/b]
   [b]Set[/b] oNameSpace = [b]Nothing[/b]

[b]End[/b] [b]Sub[/b]

Maybe some of you might be able to use my mistake in the future to help you out.

 

[JerryKlmns]

It would be nicer to have

If oFolderInbox.Items.GetFirst.Class = olMeetingRequest Then
   Set oMailItem = Nothing
   Set oFolderInbox = Nothing
   Exit Sub
End If