将outlook未读邮件内容导致出EXCEL

zhong3

如何将outlook2016版未读邮件正文内容导致出EXCEL里面。每个发件人一个表格

约定的童话

VBA批量下载outlook邮件内容

zhong3

约定的童话 发表于 2020-11-21 14:26
VBA批量下载outlook邮件内容

怎么实现呢？

约定的童话

zhong3 发表于 2020-11-21 15:27
怎么实现呢？

Public Sub 批量下载附件()

Dim msg As MailItem
Dim exp As Explorer
Dim att As Attachment
Dim mailIndex As Integer
Dim path As String
Dim folder As String

Set exp = Application.ActiveExplorer

'保存附件到哪个路径，末尾必须是斜杠
path = "D:\xxxxxxxx"
mailIndex = 0

For Each msg In exp.Selection
        If msg.Attachments.Count > 0 Then
                mailIndex = mailIndex + 1
                For Each att In msg.Attachments
                        '所有附件保存到path中，文件命名为：mailatt<编号>_附件原始文件名
                        att.SaveAsFile path + CStr(mailIndex) + "_" + att.FileName
                Next
        End If

Next
End Sub

zhong3

约定的童话 发表于 2020-11-21 19:08
Public Sub 批量下载附件()

Dim msg As MailItem

大侠，运行代码时，显示编译错误，如下图所示，这个是什么原因？谢谢大侠

闻启学

要引用 outlook ！！