ich durchforste nun schon einen ganzen Tag das Archiv, komme aber nicht wirklich weiter. Ich möchte ein Makro bauen, welches prüft ob eine bestimmte Datei an einem bestimmten Ort liegt. Sollte diese nicht dort liegen, dann bitte weiter. Wenn sie dort liegt, dann bitte eine Email (mit allen Infos) erstellen und zur Plausi-Prüfung auf dem Desktop lassen.
Hier schonmal was ich zusammen gebaut habe:
Public Sub Outlook_Deploy()
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = "Gerda@gerda.com, Micha@micha.com, Olli@olli.com"
.Subject = "Preisvorstellung -> Lieferant 1, Lieferant 2, Lieferant 3"
.Body = "Dear Supplier, bla bla bal."
.Display 'Erstellt die Email und öffnet diese. Der Versand erfolgt manuell!
If "Pfad001\Datei1.xlsx" = "" Then
.Attachments.Add "Pfad001\Datei1.xlsx"
End If
If "Pfad002\Datei2.xlsx" = "" Then
.Attachments.Add "Pfad002\Datei2.xlsx"
End If
If "Pfad003\Datei3.xlsx" = "" Then
.Attachments.Add "Pfad003\Datei3.xlsx"
End If
End With
In diesem Beispiel erstellt er erst und dann hängt er die Dateien dran. Wenn aber eine Datei nicht da ist, gibt es einen Fehler und es ist vorbei.
Das oben benannte Makro funktioniert also nicht. Soviel sei vorab gesagt.
Danke schon einmal im voraus für die Hilfe!