MailItem Object explanation

[NightWalker]

I found the following code could someone explain what it is doing. I am trying to save all the attachments in an email folder to a location on my hard drive then move the email and the attachment to a subfolder. I'm trying to do this is in Outlook 2016. I dont understand the MailItem Object very well. Thank you in advance. --Walker

 For Each Item In olSubFolder.Items
        For Each Attachment In Item.Attachments
            If Attachment.Type = 1 And (InStr(Attachment, "xlsx") Or InStr(Attachment, "xls")) > 0 Then
                FileName = networkFilepath & Attachment.FileName
                'Debug.Print FileName
                Debug.Print Attachment.FileName
'                Debug.Print Item
                Attachment.SaveAsFile FileName
                
            End If
       Next Attachment
Next Item

[NightWalker]

I have the save the attachments part working but when i try to move the email to a different folder i get a run-time error 13 type mismatch. here is the new code. Could anyone shed some light on this for me. Thank you.

    For Each Item In olSubFolder.Items
        Set rsOpen = db.OpenRecordset("tbl_EmailInfo")

        For Each Attachment In Item.Attachments
            If Attachment.Type = 1 And (InStr(Attachment, "xlsx") Or InStr(Attachment, "xls")) > 0 Then
                rsOpen.AddNew
                rsOpen![DateEmailRcvd] = Item.ReceivedTime
                rsOpen![AttachmentName] = Attachment.FileName
                rsOpen.Update
               
                FileName = networkFilepath & Attachment.FileName
                Debug.Print Attachment.FileName
                Attachment.SaveAsFile FileName
            End If
        Next Attachment

        If TypeOf Item Is Outlook.MailItem Or Item.Class = 43 Or TypeOf Item Is Outlook.ReportItem Then
        Item.Move (olDestFolder)
        End If
    Next Item

[gmayor]

I don't think you can address ReportItem directly from VBA without third party software so the line should be

If TypeName(Item) = "MailItem" Then

If Item is classed as Object then this should go directly after For Each e.g.

For Each Item In olSubFolder.Items
    If TypeName(Item) = "MailItem" Then
        If Item.Attachments.Count > 0 then
           'Do stuff

[NightWalker]

It is classed as an object. What is TypeName? I will try that code. Thank you. --Walker