Læse mails på Exchange via VBA og gemme vedhæftede filer lokalt

Har lige et spørgsmål til I kloge hoveder.
jeg har nedenstående kode, der virker stort set som den bør, men der er lige en mindre hage ved denne,- Den fejler, når filen skal gemmes .

Er der én eller flere, der har et godt bud, hvad der går galt og hvad der skal ændres for at komme nærmere målet ?

På forhånd tak !

mvh martens

---  kode start ---

    Dim ol As New Outlook.Application
    Dim NameSpace As Outlook.NameSpace
    Dim ofO As Outlook.MAPIFolder
    Dim ofSubO As Outlook.MAPIFolder
    Dim Subfolder As Outlook.MAPIFolder
    Set NameSpace = ol.GetNamespace("MAPI")
    Dim objItems As Outlook.Items
    Dim olRecip As Outlook.Recipient
    Set olRecip = NameSpace.CreateRecipient("firmaets_email@firmanavn.dk") ' // ALT OK
    Set ofO = NameSpace.GetSharedDefaultFolder(olRecip, olFolderInbox).Folders("01_undermappe").Folders("02_undermappe") ' // ALT OK
    Set Subfolder = ofO

    MsgBox "Mappe der kigges i : " & ofO ' Viser valgt mappe korrekt !

    Dim NewestFile As Object
    Dim Item As Object
    For Each Item In Subfolder.Items
   
        If NewestFile Is Nothing Then
            Set NewestFile = Item
            ElseIf Item.CreationTime > NewestFile.CreationTime Then
            Set NewestFile = Item
        End If
        Next Item
       
    MsgBox "Nyeste fil i mappen " & ofO & " har tidstemplet: " & vbNewLine & vbNewLine & NewestFile.CreationTime ' // ALT OK

    If Not NewestFile Is Nothing Then
    NewestFile.SaveAs "C:\t3mp_z3r0\" & NewestFile.FileName
    End If

    NameSpace.Logoff

--------