如何将电子邮件的附件保存到特定文件夹？

Question

我在网上搜索并编写了以下代码。

得到

运行时错误'-2147221233 (8004010f)':自动化错误

VBA代码:

Sub SaveWklyReports()
Dim ol As Outlook.Application
Dim ns As Outlook.Namespace
Dim fol As Outlook.Folder
Dim p As Object
Dim mi As Outlook.MailItem
Set ol = New Outlook.Application
Set ns = ol.GetNamespace("MAPI")
Set fol = ns.Folders(1).Folders("Test")
For Each p In fol.Items

If p.Class = olMail Then
Set mi = p
Debug.Print mi.SenderName, mi.ReceivedTime
End If
Next p
End Sub

Answer 1

这个错误意味着没有ns.Folders(1).Folders("Test")这个文件夹

不要使用显式索引1，请使用正确的文件夹名称，例如

Set fol = ns.Folders(myFolderName).Folders("Test")

在我的情况下，myFolderName被设置为我的主帐户的电子邮件地址或其他人的共享邮件帐户的名称-对您来说，这将取决于您要访问的内容