Ich möchte gerne das Excel automatisch eine Mail versendet.
Ich habe diesen Code gefunden.
Sub EmailDirektSenden()
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = "deinname@deinedomain.de"
.Subject = "Betreff"
.Body = "Ihre Nachricht."
.Send 'Sendet die Email automatisch
End With
End Sub
leider kommt die Fehlermeldung:Laufzeitfehler 287
Anwendungs- oder objektdefinierter Fehler
Gruß
Erik