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