Einen schönen guten Morgen :)
ich hänge bei einem Problem leider fest.
Und zwar bekomme ich wöchentliche Mails mit einer CSV-Datei aus der ich Daten per Makro weiterverarbeite. Diese Daten würde ich gerne automatisch übernehmen.
Die Mail speicher ich per Outlook-Regel und lasse so auch automatisch das untenstehende Skript starten.
Das Problem daran ist, dass der Anhang immer den selben Namen hat. Im Betreff ist allerdings eine eindeutige Angabe des Auswertungszeitraums und des Kunden.
Daher würde ich gerne die Datei so speichern, dass der Dateiname durch den Text im Betreff der Mail ersetzt wird.
Ich hoffe ihr könnt mir weiterhelfen.
Vielen Dank und viele Grüße
Henning
Public Sub TestLM(j As Outlook.MailItem)
Dim attach As Attachment
Dim Now As Variant
Dim FileName As String
Dim i As Integer
If j.Attachments.Count > 0 Then
For Each attach In j.Attachments
Betreff = ?????
attach.SaveAsFile ("H:\Testordner\" & Betreff & ".xlsx")
Next attach
End If
End Sub
|