從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

嘗試指定任何本地位置。將附件保存到磁盤後，您可以將保存的文件移動到任何需要的位置。