Excel中的Outlook附件數據

Question

我通過網絡搜索，但沒有找到任何特定的代碼來幫助我。 我想在Outlook中實現一個VBA函數，每次包含附件的電子郵件都會按以下順序執行：

1）它讀取它發送的電子郵件的日期，並取決於月和月內的一週（第一，第二，第三...）將文件存儲在一個文件夾中。如果該文件夾不存在，它會創建它（例如，2014年10月22日發送的文件將存儲在文件夾.../2014/October/4中）

2）它上傳Excel文件包括：發件人姓名，電子郵件日期，存儲週數，附件名稱，擴展名。最後，它保存Excel列表並關閉它。

我發現了一些執行單一操作的代碼部分，但每當我嘗試將它們放在一起時，就會變得混亂並且不起作用。

Answer 1

使用Application.NewMail或NewMailEx事件在新電子郵件發送時得到通知。然後評估MailItem.SentOn（Date）或MailItem.Attachments.Count以運行您的業務邏輯。使用Attachment.SaveAsFile將附件寫入磁盤。