Hallo Liebe Community,
Ich habe ein Excel-Makro, dass unter bestimmten Umständen automatische Mails versendet, was mir sehr den Arbeitsalltag vereinfacht. Das hat auch immer Problemlos funktioniert. Durch ein Zwangsupdate meines Arbeitsgebers musste ich nun mein Outlook von 2013 auf 2016 heben. Jetzt funktionieren die automatischen Mails nicht mehr. Vor allem verhält sich das Makro unterschiedlich, je nachdem welches Makro die Mail versenden will (gibt zwei). Im ersten Fall rödelt der Rechner rum und wenn er fertig ist, ist nichts passiert. Im anderen Fall bekomme ich folgende Fehlermeldung: "Laufzeitfehler 429: Objekterstellung durch ActiveX-Komponente nicht möglich."
Ich bin unendlich dankbar, wenn jemand das Problem lösen kann! Unten findet ihr den Code, der bisher immer funktioniert hat. Neustarts etc. haben alle nichts gebracht. Vielen Dank und liebe Grüße Anna-Luisa
Dim Nachricht As Object, OutlookApplication As Object
Dim Empfänger As String 'Empfänger werden aus einer Datenbank ermittelt
'diverse If-Abfragen
Nachricht.To = Empfänger
Nachricht.Subject = "Erinnerungsmail"
Nachricht.Body = "blabla"
Nachricht.Send
Set OutlookApplication = Nothing
Set Nachricht = Nothing
|