电子邮件附件导出到特定文件夹文件格式问题

Question

我目前每周收到有关 outlook 的报告，我需要将其打开并保存在特定文件夹中。我已成功重命名文件并将其传输到所需文件。

但是，文件格式与附加到电子邮件的文件不同，当我没有在末尾放置日期格式时，它注册为类型 "file" 或类型“.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

欢迎任何帮助，我扫描了所有地方以获取任何信息，但我被卡住了...

谢谢！

Answer 1

这是你想做的吗？

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 上测试

电子邮件附件导出到特定文件夹文件格式问题

Email attachment export into specific folder file format issue

vba

outlook

email-attachments