outlook批量下载邮件 统计

统计多通道报表

一.下载附件：

参考：https://www.zhihu.com/question/59873160
步骤：

1. 打开Outlook邮箱， alt+f11 呼出vba编辑界面。 insert一个module 输入代码
2. 按F5运行。

Sub Savetheattachment()
    Dim olApp As New Outlook.Application
    Dim nmsName As Outlook.NameSpace
    Dim vItem As Object
    Set nmsName = olApp.GetNamespace("MAPI")
    Set myFolder = nmsName.GetDefaultFolder(olFolderInbox)
    Set fldFolder = myFolder.Folders("统计")     // 注意：一定要填对！！！！

    For Each vItem In fldFolder.Items

       '-----Save Attachment-------
        For Each att In vItem.Attachments
            att.SaveAsFile "D:\work_code\Jupyter\201109_**\attachment\" & att.FileName   // 注意：地址一定要填对！！！！

        Next
        '------Save Attachment--------
    Next
    Set fldFolder = Nothing
    Set nmsName = Nothing
End Sub

下载成功：

二. 出现的问题：

解决：
https://blog.csdn.net/weixin_40021197/article/details/109163091

三. 写数据处理代码

代码位置：D:\work_code\Jupyter\201109_***\1120_plot_Recall_exposeAndTrans
全部：三百多

近期：一百多

注意：经常跑一下数据，尤其是最近