Hallo liebe Profis,
ich verwende seit einiger Zeit dieses Makro zum versenden einer Mail aus Excel heraus.

Sub MailBereich()
'Sendet eine formatierte Mail mit Signatur
Dim sMailText As String

With CreateObject("Outlook.Application").CreateItem(0)
.BodyFormat = 3 'HTML-Format, Angabe optional
.To = Sheets("Setup").Range("D15")
.CC = Sheets("Setup").Range("D17")
.BCC = Sheets("Setup").Range("D19")
.Subject = "Clusterdaten"
sMailText = "Hallo, hier die aktuellen Clustertermine vom " & Now
.GetInspector
.HTMLBody = Replace(sMailText, vbLf, "
") _
& Range2Html(ThisWorkbook.Sheets("Diagramme").Range("M115:AC133")) & .HTMLBody
.Display
End With
End Sub

Seit heute bekomme ich eine Fehlermeldung.
Automatisierungsfehler
Exception occured

Kann mir jemand sagen was sich da verändert hat?

Besten Dank
Stefan