从电子邮件下载附件

Question

我正在尝试使用excel 2007中的VBA自动下载附带电子邮件的附件

传入的邮件将位于同一个Outlook文件夹中（称之为＆＃34;库存＆＃34;）。我将在outlook中定义一个规则，一旦我得到它们就会将它们移动到那里，因此该部分已经处理完毕。

这些传入的邮件都将具有相同的主题（称之为＆＃34;库存更新＆＃34;）。这也是令人厌恶的。

我需要做的是，

1. 将上述邮件中的附件下载到某个文件夹（称之为＆＃34; C：\ Guncelleme Dosyalari＆＃34;）
2. 在保存附件之前，我不会重命名附件。

更新邮件的文件夹中不会有其他邮件到达。因此，浏览文件夹中的所有邮件而不寻求正确的主题行也是可行的。

提前致谢。

Answer 1

打开邮件后（可以使用MAPIFolder.Items集合），遍历MailItem.Attachments集合中的所有附件并调用Attachment.SaveAsFile