Frage von Jonske, 87

Makro Programmierung (Outlook 2010) bestimmten Dateityp speichern?

Hallo,

ich habe folgendes Script:

Sub Anhang_speicherung(olMail As MailItem)
Dim Pfad As String
Dim Datei As Attachments
Pfad = "C:\Temp\"   'Der Pfad muss entsprechend angepasst werden. Wichtig ist der letzte Backslash

On Error Resume Next

Set Datei = olMail.Attachments
    For i = 1 To Datei.Count
    Datei.Item(i).SaveAsFile Pfad & Datei.Item(i).FileName
Next i


End Sub

Dieses ist dazu da, um den Anhang einer ankommenden E-Mail automatisch in einem Ordner abzuspeichern.

Nun möchte ich noch einbinden, dass nur Excel (also xls oder xlsx) Dateien abgespeichert werden. Außerdem soll das Script auch bei Start von Outlook die neuen Emails prüfen und ggf. Anhänge abspeichern.

Danke im Vorraus!

Antwort
von maximilianus7, 74

fname = Datei.Item(i).FileName
ext = Right(fname, Len(fname) - InStrRev(fname, "."))
if ext = "xlsx" or ext = "xls" then ...

falls vorhanden wird beim starten von outlook
  Private Sub Application_Startup()
ausgeführt

Kommentar von Jonske ,

Vielen vielen Dank. Das hat mir sehr geholfen!

Keine passende Antwort gefunden?

Fragen Sie die Community