Baixar anexo do Outlook e Abrir no Excel

Eu estou tentando baixar e abra um anexo de planilha do Excel em um email do Outlook usando o VBA no Excel. Como posso:

Baixar o primeiro e único anexo do primeiro email (o email mais recente) na minha caixa de entrada do OutlookSalve  o anexo em um arquivo com um caminho especificado (por exemplo: "C: ...")Renomeie o nome do anexo com:data atual + nome de arquivo anteriorSalve o email em uma pasta diferente com um caminho como "C: ..."Marcar o email no Outlook como "lido"Abrir o anexo excel no Excel

Eu também quero ser capaz de salvar o seguinte como strings individuais atribuídos a variáveis ​​individuais:

Endereço de email do remetenteData recebidaData enviadaSujeitoA mensagem do email

embora isso possa ser melhor fazer uma pergunta separada / procurar por mim mesmo.

O código que tenho atualmente é de outros fóruns online, e provavelmente não é muito útil. No entanto, aqui estão alguns pedaços que tenho trabalhado:

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