保存Outlook附件VBA無法正常工作

-1

我嘗試運行此代碼，但它不會將xml文件保存到給定文件夾。它有什麼問題？保存Outlook附件VBA無法正常工作

Public Sub saveAttachtoDisk(itm As Outlook.MailItem) 
Dim objAtt As Outlook.Attachment 
Dim saveFolder As String 
Dim dateFormat As String 
dateFormat = Format(Now, "yyyy-mm-dd H-mm") 
saveFolder = "C:\Users\gabor\Documents\CAFM\xml\" 
For Each objAtt In itm.Attachments 
    If InStr(objAtt.DisplayName, ".xml") Then 
    objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName 
End If 
Set objAtt = Nothing 
Next 
End Sub

來源

2016-07-28 vergab

爲什麼saveFolder＆「\」＆objAtt.DisplayName'中額外的「\」，因爲您已經在saveFolder =「C：\ Users \ gabor \ Documents \ CAFM \ xml \「' –

你說得對。我刪除了它，但它仍然不起作用。此代碼位於Outlook規則中。該規則保存電子郵件的附件。 – vergab

嘗試將'objAtt.DisplayName'更改爲'objAtt.Filename' –

來自評論「更改安全設置解決了問題，我必須設置宏設置以啓用所有宏。」 - vergab Jul 28 at 20:09

來源

2016-09-09 12:05:26 user6813475

保存Outlook附件VBA無法正常工作

回答

相關問題