電子郵件附件導出到特定文件夾文件格式問題

我目前正在接收每週報告的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

任何幫助是值得歡迎的，我掃描各地的任何信息的地方，但我被困...

謝謝！

來源

2016-05-23 Antoine Myrd

會發生什麼事，如果你離開的名字一樣嗎？例如。如果你做objAtt.SaveAsFile objAtt FileName？ – Charlie

@Charlie謝謝你的答案，不幸的是我試圖改爲objAtt.FileName，現在我的宏不再運行，因爲我無法解釋... –

那麼我會開始 - 保存所有附件的方式是有據可查，應該可以工作http://stackoverflow.com/questions/15531093/save-attachments-to-a-folder-and-rename-them – Charlie

這是你想要做什麼？

Option Explicit 
Public Sub SaveAtmtToDisk(Item As Outlook.MailItem) 
    Dim Atmt As Outlook.Attachment 
    Dim SavePath As String 
    Dim FileName As String 

' // Saved Location 
    SavePath = "C:\temp\" 

' // 05 24 2016 Antoine.csv 
    FileName = Format(Now, "DD MM YYYY") & " Antoine.csv" 

    For Each Atmt In Item.Attachments 
     Atmt.SaveAsFile SavePath & "\" & FileName 
    Next 

    Set Atmt = Nothing 
End Sub

測試上的Outlook 2010

來源

2016-05-24 23:28:59 0m3r

謝謝@ Om3r，它幾乎是這樣，但我想把日期和我認爲這是食堂的格式，因爲我也試過： '子saveAttachtoDisk（ITM作爲Outlook.MailItem）昏暗objAtt作爲Outlook.Attachment 昏暗saveFolder作爲字符串昏暗DATEFORMAT DATEFORMAT =格式（現在，「DD。 mm.yyyy「） saveFolder =」C：\ Users \ etc「 For Each objAtt In itm.Attachments objAtt.SaveAsFile saveFolder＆「\」＆「NEWNAME」＆DATEFORMAT 設置objAtt =無接下來objAtt 結束Sub' 但格式保存一個文件0.2016所以我嘗試：名爲「.csv」是否有可能結合2？ –

這是一切都很好，我切換它，發現我想做什麼 'FileName =「Antoine」＆Format（Now，「DD.MM.YYYY」）＆「.csv」' Thanks @ Om3r and @Charlie –

電子郵件附件導出到特定文件夾文件格式問題

回答

相關問題