Ошибка RUN-Time-91: Скрипт VBA для загрузки автоматического вложения в Outlook - PullRequest
Новая
       87

Ошибка RUN-Time-91: Скрипт VBA для загрузки автоматического вложения в Outlook

0 голосов
/ 03 апреля 2020

Я перепробовал все решения с упоминанием stackoverflow, но не повезло, поэтому сейчас я поднимаю вопрос, с которым я сталкиваюсь

"RUN-Time Error-91" Переменная объекта или переменная блока не set

я пытаюсь установить, пробуя это Set item = ActiveExplorer.Selection.Item(1), но это бесполезно, поэтому, пожалуйста, подскажите, где они делают неправильно 

Public Sub SaveAutoAttach()  
Dim object_attachment As Outlook.Attachment
Dim item As Outlook.MailItem
Dim saveFolder As String
saveFolder = "E:\ServerReports\outlook-attachments\"
Set item = ActiveExplorer.Selection.item(1)
' ******* the error is on the next line ********
For Each object_attachment In item.Attachments
    If InStr(object_attachment.DisplayName, ".csv") Then
        object_attachment.SaveAsFile saveFolder & "\" & object_attachment.DisplayName
    End If
    Next
End Sub
...