Type Mismatch in Loop to scan Outlook Messages [duplicate]

by

An outlook folder has a default object type (MailItem, AppointmentItem, ContactItem, etc) but can actually hold any item type. So you’re hitting an item that’s not a MailItem and, by virtue of a For Each loop, trying to assign it to a variable that is a MailItem type.

You need to loop through with a generic Object and test the TypeName.

Dim oItem As Object
Dim oMail As MailItem

For Each oItem In Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items
    If TypeName(oItem) = "MailItem" Then
        Set oMail = oItem

        'do stuff with omail
    End If
Next oItem

More Related Contents:

  1. How to copy Outlook mail message into excel using VBA or Macros
  2. Copy Excel range as Picture to Outlook
  3. Paste Excel range in Outlook
  4. Update excel sheet based on outlook mail [closed]
  5. Sending mail using Outlook where the Send method fails
  6. Email a single attachment from folder of files each to a different person
  7. How to send mail when the .Send does not work?
  8. How to add an attachment to an email using VBA in Excel
  9. How to send email to multiple recipients with addresses stored in Excel?
  10. Finding a workbook in one of multiple Excel instances
  11. Convert Early Binding VBA to Late Binding VBA : Excel to Outlook Contacts
  12. Change HTML email body font type and size in VBA
  13. How to Send Email When Computer is Locked?
  14. Format Cell Contents
  15. Excel formula checklist in employees
  16. How do I put double quotes in a string in vba?
  17. Excel VBA – How to add dynamic array formula
  18. How can I URL encode a string in Excel VBA?
  19. Embed picture in outlook mail body excel vba
  20. VBA – Write all possible combinations of 4 columns of data [duplicate]
  21. Remove duplicates from array using VBA
  22. How to automatically insert a blank row after a group of data
  23. Get File Path (ends with folder)
  24. Bad data selection using VBScript , on date field values
  25. Sending object array to variant works before August 2019 Windows update, but fails after update
  26. Excel VBA User Defined Function that counts cells with conditional formatting
  27. Excel is calculating a formula with a VBA function as an error unless it is re-entered
  28. Create folder path if does not exist (saving from VBA)
  29. Concatenate multiple ranges using vba
  30. How to fix a VBA “type mismatch” error after switching to 64-bit Excel

Leave a Comment