Automatische Mail in Excel

[Mase]

Moin,

gibt es zuhauf im Netz zu finden.
Um einen Anfang zu machen:

Code:

Sub EmailDirektSenden()
'
'https://www.makro-excel.de/2017/03/06/per-vba-makro-eine-email-mit-outlook-versenden/
'
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