excel中的vba outlook附件数据

我在网上搜索，但没有找到任何具体的代码来帮助我。 我想在Outlook中实现一个VBA函数，每当收到包含附件的电子邮件时，它都会按顺序执行以下操作：

1它读取发送电子邮件的日期，并根据第一个月、第二个月、第三个月内的月份和星期。。。将文件存储在文件夹中。如果该文件夹不存在，它将创建该文件夹。例如，2014年10月22日发送的文件将存储在文件夹…/2014/10/4中

2它上载一个Excel文件，其中包含：发件人姓名、电子邮件日期、存储周数、附件名称、扩展名。最后，它保存Excel列表并将其关闭

---

我发现部分代码只执行单个操作，但每当我尝试将它们组合在一起时，它们就会变得一团糟，无法工作。

使用Application.NewMail或NewMailEx事件在发送新电子邮件时获得通知。然后评估MailItem.SentOn Date或MailItem.Attachments.Count以运行业务逻辑。使用Attachment.SaveAsFile将附件写入磁盘。

您已经尝试了哪些代码？你犯了什么错误？所以这不是一个代码站点的请求。