Email senden, Laufzeitfehler 287
29.05.2020 11:18:45
Joachim
wir bekamen neue PCs jetzt mit Office 2016, vorher 2010.
Meine Serienmailerstellung aus Excel funktioniert nicht mehr. Ich hab den Code soweit reduziert, um zu sehen, woran es liegen kann. Der Laufzeitfehler wird bei .Send angezeigt. Display funktioniert, nur Send nicht.
Unter Verweise hab ich die Microsoft Outlook 16.0 Object Library aktiviert.
Hier der Code:
Sub EmailSenden()
Dim objOut As Object
Dim objMail As Object
Set objOut = CreateObject("Outlook.Application")
Set objMail = objOut.CreateItem(0)
With objMail
.To = "abc123@mail123.de"
.Subject = "Betreff"
.HTMLBody = "Ihre Nachricht."
'.Display
.Send
End With
Set objOut = Nothing
Set objMail = Nothing
End Sub
Gruss
Joachim