我在网上搜索，但没有找到任何具体的代码来帮助我 . 我想在Outlook中实现一个VBA功能，每次按照包含附件的电子邮件时，按顺序执行以下操作：
1）它读取发送的电子邮件的日期，并根据月内的月份和周（第一，第二，第三......）将文件存储在文件夹中 . 如果该文件夹不存在，则会创建该文件夹（例如，2014年10月22日发送的文件将存储在文件夹中... / 2014/10月/ 4）
2）它上传一个Excel文件，其中包括：发件人姓名，电子邮件日期，存储周数，附件名称，分机号 . 最后，它保存Excel列表并关闭它 .
我发现了一些代码可以执行单个操作，但每当我尝试将它们组合在一起时，它就变得一团糟而且不起作用 .
1 回答
使用Application.NewMail或NewMailEx事件可在新电子邮件发送时收到通知 . 然后评估MailItem.SentOn（Date）或MailItem.Attachments.Count以运行您的业务逻辑 . 使用Attachment.SaveAsFile将附件写入磁盘 .