MailItem Object explanation

NightWalker · #1 04-01-2020, 02:53 PM

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.

Code:

    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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Image and it's explanation need to stay together	mohsen.amiri	Drawing and Graphics	2	10-04-2017 04:10 AM
Explanation for this formula	Will	Excel	7	11-26-2014 05:27 PM
Cannot access most of property of MailItem object on Windows Server 2008 64 bit	tz900	Outlook	0	04-10-2012 12:55 PM
Explanation for fields on the form	hklein	Word VBA	5	10-23-2011 04:10 AM
MailItem Inspectors cache CommandBars but Calendar do not?	Hydrogen	Outlook	0	03-04-2006 09:50 PM