E-Mail Anlage Export in bestimmte Ordner Dateiformat Problem

Question

Ich erhalte derzeit wöchentliche Berichte über Outlook, die ich öffnen und in einem bestimmten Ordner speichern muss. Es ist mir gelungen, die Datei umzubenennen und in die gewünschte Datei zu übertragen.

Allerdings ist das Dateiformat nicht das gleiche wie die Datei, die an die E-Mail angehängt ist, entweder als Typ "Datei" registriert, wenn ich kein Datumsformat an den Ende oder einen Typ ".2016 "Datei, wenn ich eine stelle. Wenn im Editor geöffnet ist die Information unlesbar

Hier ist der Code ich derzeit verwenden:

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 

Jede Hilfe ist willkommen, ich alle für Informationen über den Ort gescannt, aber ich bin fest ...

Danke!

Answer 1

Ist es das, was du versuchst zu tun?

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 

auf Outlook Getestet 2010