我正在尝试使用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