Hallo liebe Community,
ich habe schon viele Lösungen zu meinen Fragen hier gefunden, doch werde ich bei meinem jetzigen Problem leider nicht fündig:
Ich würde gerne in Outlook 2010 einen Automatismus erstellen, der alle Anhänge in einen Ordner kopiert. Es gab im Mai letzten Jahres schon einmal einen Beitrag dazu, doch funktioniert der VBA-Code bei mir nicht. Ich muss dazu sagen, dass ich keine Ahnung von der VBA-Programmierung habe, also seht es mir nach, wenn einem der Fehler direkt ins Gesicht spingen sollte :)
Mein (aus dem Forum kopierter) VBA-Code von Massaraksch sieht wie folgt aus:
Sub Anlagen_Speichern(olMail As MailItem)
'Objekte/Variablen deklarieren
Dim Ziel As String
Dim Anlagen As Attachments
Dim i As Integer
'Speicherordner angeben (bitte mit Backslash abschließen!)
Ziel = "C:\Users\...\Desktop\Test\"
'Abbruch, wenn Ordner nicht vorhanden
If Dir(Ziel, vbDirectory) = "" Then Exit Sub
'Mailanhänge ermitteln
Set Anlagen = olMail.Attachments
'alle Anhänge der Mail durchlaufen und speichern
For i = 1 To Anlagen.Count
'Dateiname zusammensetzen, Datum ist Empfangsdatum der Mail
Datei = Ziel & Format(olMail.ReceivedTime, "dd.mm.yyyy") & "_" & Anlagen.Item(i).FileName
'Anlage speichern
Anlagen.Item(i).SaveAsFile Datei
Next i
End Sub
Wenn ich nun eine Regel erstelle und dieses Programm als Skript aufrufe, passiert leider überhaupt nichts.
Kann mir jemand sagen was ich falsch mache?
Schon mal ein dickes DANKESCHÖN
Gruß
Florian