从电子邮件中下载附件

Question

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

收到的邮件将在同一个 Outlook 文件夹中（称为“库存”）。我将在 Outlook 中定义一个规则，一旦我得到它们就会将它们移到那里，所以这部分已经被处理了。

这些收到的邮件都将具有相同的主题（称为“库存更新”）。这也有处理。

我需要做的是，

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

更新邮件将到达的文件夹中不会有其他邮件。因此，在不寻找正确主题行的情况下浏览文件夹中的所有邮件也是可行的。

提前致谢。

Answer 1

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