为了账号安全,请及时绑定邮箱和手机立即绑定

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

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

胡子哥哥 2019-11-12 10:32:10
我正在尝试使用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 IfEnd Sub
查看完整描述

2 回答

  • 2 回答
  • 0 关注
  • 589 浏览
慕课专栏
更多

添加回答

举报

0/150
提交
取消
意见反馈 帮助中心 APP下载
官方微信