从Outlook中保存电子邮件附件文件

Question

我试图使用VBA下载附件在特定的Outlook文件夹中，保存在我的硬盘上的文件（与该文件的名称），然后删除电子邮件。

在以下代码行中，我收到一条错误消息，指出该路径不存在。我是复制并粘贴路径，所以它应该是正确的。

atmt.SaveAsFile FileName 

整个代码如下

Dim ns As Namespace 
Dim inbox As MAPIFolder 
Dim item As Object 
Dim atmt As Attachment 
Dim FileName As String 
Dim i As Integer 
Dim SubFolder As MAPIFolder 
Dim SubSubFolder As MAPIFolder 
Dim VariableName As Name 
Set ns = getnamespace("MAPI") 
Set inbox = ns.GetDefaultFolder(olFolderInbox) 
Set SubFolder = inbox.Folders("Consulta Emails - Passivo 
Set SubSubFolder = inbox.Folders("Consulta Emails - Lastro") 

i = 0 

If SubFolder.Items.Count = 0 Then 
MsgBox "Ainda não recebeu as planilhas necessárias" 
Exit Sub 
Else: End If 
If SubFolder.Items.Count > 0 Then 
For Each item In SubFolder.Items 
For Each atmt In item.attachments 
    FileName = "\dsapc429pfs.pactual.net\homefolder02$\wellsty\Desktop\Arthur Projects\Controle de Lastros\March tests\Consulta Passivo - Email.xls" 'muda path; vai salvar com o mesmo nome' 
    atmt.SaveAsFile FileName 
i = i + 1 
item.Delete 'apagar os emails depois de baixar os anexos' 
Next atmt 
Next item 
End If 

Answer 1

尝试指定任何本地位置。将附件保存到磁盘后，您可以将保存的文件移动到任何需要的位置。