Hallo liebes Forum,
ich weiß, zu meiner Frage existieren schon einige Beiträge in verschiedensten Foren. Leider hat mich keine Antwort zum Ziel gebracht, sodass ich hoffe, dass mich der persönliche Austausch nun doch noch weiterbringt.
Automatisch eine Mail per Outlook verschicken zu lassen ist mir schon geglückt. Um Fehlermeldungen abzufangen, soll jetzt noch die Abfrage dazwischen geschoben werden, ob der Benutzer Outlook überhaupt geöffnet hat (im weiteren Schritt auch gern noch, ob es überhaupt beim User installiert ist, aber das wäre dann nur die Kür ;) ).
Bis jetzt sieht mein Code zum Versenden so aus:
-------CODE-----------------
Dim OutApp As Object
Dim objOLMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set objOLMail = OutApp.CreateItem(0)
With objOLMail
.To = vorname.nachname@firma.de 'Empfänger AN
.CC = ""
.BCC = ""
.Sensitivity = 0 'Vertraulichkeit
.Importance = 1 'Wichtigkeit
.Subject = "Betreff"
.htmlbody = "Nachricht mit Link"
.Send 'Versand
End With
Set objOLMail = Nothing
Set OutApp = Nothing
--------CODE END--------------------
Den Code habe ich auch nur aus einem Forum kopiert und an meine Anforderungen angepasst. D.h., warum man am Ende zum Beispiel objOLMail und OutApp auf Nothing setzt, weiß ich gar nicht. Ich weiß nicht mal, was für Objekte das genau sind.
Ich bedanke mich schonmal für jedwede Hilfe!
Viele Grüße
Nadja