Открыть вложение Excel с помощью Outlook 2010

Question

Я пытаюсь открыть вложение Excel с помощью правила Outlook. Я использую ниже VBA, чтобы сделать это:

Public Sub saveAttachtoDisk(itm As Outlook.MailItem) 

Dim objAtt As Outlook.Attachment 
Dim xlApp As Object 
Dim FileName As String 

For Each objAtt In itm.Attachments 
    If InStr(objAtt.DisplayName, ".xlsx") Then 
     FileName = "S:\Projects\" & objAtt 
     objAtt.SaveAsFile FileName 
     Set xlApp = CreateObject("Excel.Application") 
     xlApp.Application.Visible = True 
     xlApp.Application.EnableEvents = False 
     x1App.Workbooks.Open FileName 
    End If 

    Set objAtt = Nothing 
Next 
MsgBox ("DONE") 

End Sub 

Это открывает приложение Excel, однако на открытом имя_файл линии, она закрывает приложение Excel и выпрыгивает из кода.

Также, пожалуйста, дайте мне знать, если я делаю это чрезмерно сложным способом!

Answer 1

Похоже, вы передаете неправильный путь файла для открытого способа:

FileName = "S:\Projects\" & objAtt 

Попробуйте использовать DisplayName свойство класса вложений.

FileName = "S:\Projects\" & objAtt.DisplayName 

Также убедитесь, что у вас есть достаточные права на запись на диск S и вы можете получить к нему доступ в любое время. Попробуйте указать любой локальный диск.