无法使用VBA从Outlook下载文件

Question

我无法从Outlook下载文件。获取错误“无法保存附件。您没有适当的权限”。给定下一行是抛出错误。

ATMT.SaveAsFile“C：\Users\p 2018\Desktop\mail文件夹”

还共享代码

Sub ExtracFiles()
Dim O As Outlook.Application 
Set O = New Outlook.Application`

Dim ONS As Outlook.Namespace
Set ONS = O.GetNamespace("MAPI")

Dim Fol As Outlook.Folder
Set Fol = ONS.GetDefaultFolder(olFolderInbox).Folders("Weekly Compliance 
Report")

Dim OMAIL As Outlook.MailItem
Set OMAIL = O.CreateItem(olMailItem)

Dim ATMT As Outlook.Attachment
Dim mydate As Date
mydate = Format(Date, "mm-dd-yyyy")


For Each OMAIL In Fol.Items
    For Each ATMT In OMAIL.Attachments
        If 
OMAIL.SenderEmailAddress="PeopleGroup@Check.com" And _ 
Format(OMAIL.ReceivedTime, _ 
 "mm-dd-yyyy") = mydate Then
            ATMT.SaveAsFile "C:\Users\p2018\Desktop\mail folder"

            MsgBox ATMT
        Else
        End If
    Next ATMT
 Next OMAIL

End Sub

Answer 1

您必须指定完全限定的文件名，而不仅仅是路径：

ATMT.SaveAsFile "C:\Users\p2018\Desktop\mail folder\" & ATMT.FileName

Answer 2

再提一次，但我整个上午都遇到了同样的错误。

原来有一个文件与Outlook附件的名称完全相同，所以它不允许我覆盖它。

用不同的名称保存附件效果很好。