从 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

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