Estoy intentando obtener una macro VBA en Outlook que guardará los datos adjuntos de un correo electrónico en una carpeta específica y agregará la fecharecibido al nombre del archivo.

Mi google me ha llevado hasta aquí:

Public Sub saveAttachtoDisk (itm As Outlook.MailItem) 
    Dim objAtt As Outlook.Attachment 
    Dim saveFolder As String
    Dim dateFormat As String
    saveFolder = "C:\Temp\"
    dateFormat = Format(Now, "yyyy-mm-dd H-mm")

    For Each objAtt In itm.Attachments
        objAtt.SaveAsFile saveFolder & "\" & dateFormat & objAtt.DisplayName
        Set objAtt = Nothing
    Next 
End Sub

La primera cosa obvia es que está aplicando la hora actual al nombre del archivo en lugar de la hora recibida, pero parece que no puedo cambiarlo. Mi teoría es que el Outlook. El adjunto no tiene unReceivedTime y que el propio correo tiene que ser referenciado.

En segundo lugar, esto no parece funcionar en absoluto, ¡ja! Funcionó el primer día que empecé a hacer ajustes, pero después de eso dejó de guardar archivos.