Невозможно загрузить файлы из Outlook с VBA - PullRequest
Новая
       40

Невозможно загрузить файлы из Outlook с VBA

0 голосов
/ 18 октября 2018

Я не могу загрузить файл из Outlook.При получении ошибки "невозможно сохранить вложение. У вас нет соответствующего разрешения" .В приведенной ниже строке выдается ошибка.

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

Также используется общий код 

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

1 Ответ

0 голосов
/ 18 октября 2018

Вы должны указать полное имя файла, а не просто путь: 

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