Estoy intentando descargar y luego abrir un archivo adjunto de hoja de cálculo de Excel en un correo electrónico de Outlook usando VBA en Excel. Cómo puedo:

Descargar el único y único archivo adjunto del primer correo electrónico (el correo electrónico más nuevo) en mi bandeja de entrada de OutlookSalvar el archivo adjunto en un archivo con una ruta especificada (por ejemplo: "C: ...")Cambie el nombre del archivo adjunto con el:fecha actual + nombre de archivo anteriorGuarde el correo electrónico en una carpeta diferente con una ruta como "C: ..."Marque el correo electrónico en Outlook como "leído"Abierto el adjunto excel en Excel

También quiero poder guardar lo siguiente como cadenas individuales asignadas a variables individuales:

Dirección de correo electrónico del remitenteFecha de recepciónFecha de envíoTemaEl mensaje del email.

aunque esto puede ser mejor preguntar en otra pregunta / búsquelo yo mismo.

El código que tengo actualmente es de otros foros en línea, y probablemente no sea muy útil. Sin embargo, aquí hay algunos fragmentos que he estado trabajando:

Sub SaveAttachments()
    Dim olFolder As Outlook.MAPIFolder
    Dim att As Outlook.Attachment
    Dim strFilePath As String
    Dim fsSaveFolder As String

    fsSaveFolder = "C:\test\"

    strFilePath = "C:\temp\"

    Set olFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)

    For Each msg In olFolder.Items
        While msg.Attachments.Count > 0
            bflag = False
            If Right$(msg.Attachments(1).Filename, 3) = "msg" Then
                bflag = True
                msg.Attachments(1).SaveAsFile strFilePath & strTmpMsg
                Set msg2 = Application.CreateItemFromTemplate(strFilePath & strTmpMsg)
            End If
            sSavePathFS = fsSaveFolder & msg2.Attachments(1).Filename


    End If
End Sub