Загрузите вложение из Outlook и откройте в Excel

Я пытаюсь загрузить, а затем открыть вложение электронной таблицы Excel в электронном письме Outlook с помощью VBA в Excel. Как я могу:

1. Скачать единственное вложение из первого письма (новейшее письмо )в папку "Входящие" Outlook
2. Сохранить вложение в файле с указанным путем (, например, :"C :...")
3. Переименуйте имя вложения с помощью:текущая дата + предыдущее имя файла
4. Сохраните электронное письмо в другой папке с путем, например, "C :..."
5. . Пометить электронное письмо в Outlook как «прочитанное»
6. Откройте вложение Excel в Excel

Я также хочу иметь возможность сохранять следующие строки в виде отдельных строк, назначенных отдельным переменным:

• Адрес электронной почты отправителя
• Дата получения
• Дата отправки
• Тема
• Сообщение электронной почты

хотя это может быть лучше задать в отдельном вопросе/поискать самому.

Код, который у меня есть в настоящее время, взят с других форумов в Интернете и, вероятно, не очень полезен. Однако,вот некоторые кусочки, над которыми я работал:

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