我目前正在接收每週報告的Outlook,我需要打開並保存在特定文件夾中。我成功地重命名了文件並將其傳輸到所需的文件。電子郵件附件導出到特定文件夾文件格式問題
但是,文件格式與附加到電子郵件中的文件不同,當我沒有在末尾放置日期格式或類型爲「.2016」時,它被註冊爲類型「文件」 「當我把一個文件。當在記事本中打開的信息是不可讀
這是我目前使用的代碼:
Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
Dim dateFormatdateFormat = Format(Now, "dd.mm.yyyy")
saveFolder = "C:\Users\mypathtotheattachment"
For Each objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder & "\" & "thenewnameofmyattachment" & ".csv"
Next
End Sub
任何幫助是值得歡迎的,我掃描各地的任何信息的地方,但我被困...
謝謝!
會發生什麼事,如果你離開的名字一樣嗎?例如。如果你做objAtt.SaveAsFile objAtt FileName? – Charlie
@Charlie謝謝你的答案,不幸的是我試圖改爲objAtt.FileName,現在我的宏不再運行,因爲我無法解釋... –
那麼我會開始 - 保存所有附件的方式是有據可查,應該可以工作http://stackoverflow.com/questions/15531093/save-attachments-to-a-folder-and-rename-them – Charlie