从Outlook下载附件并在Excel中打开

Question

我正在尝试使用Excel中的VBA下载并在Outlook电子邮件中打开Excel电子表格附件。我怎样才能：

从我的Outlook收件箱中的第一封电子邮件（最新的电子邮件）中下载唯一的附件

将附件保存在具有指定路径的文件中（例如：“ C：...”）

使用以下名称重命名附件名称：当前日期 + 以前的文件名

将电子邮件保存到其他文件夹，其路径为“ C：...”

在Outlook中将电子邮件标记为“已读”

在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