2016-05-23 128 views
2

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

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

謝謝!

+0

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

+0

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

+0

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

回答

0

這是你想要做什麼?

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

+0

謝謝@ 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? –

+1

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

相關問題