Сохранить вложение электронной почты в файл из 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

Try, чтобы указать любое локальное расположение. После сохранения вложения на диск вы можете перемещать сохраненный файл там, где вам нужно.