Sendmail inkl. Attachment und Body-Text

Also, ich möchte mit einem Makro automatisch ein Mail versenden, dass die Arbeitsmappe selber als Attachment hat.

Nun habe ich nach ausgedehnter Internet-Konsultation herausgefunden, dass ich

- entweder per sendmail attachment+subject+recipients definieren kann (aber kein body text)

- oder dann hab ich noch n' code gefunden, wo alles drinstand bis auf den befehl, die eigentliche arbeitsmappe noch als attachment ins mail einzufügen.

vielleicht noch zur info: das attachment soll nicht via pfad ins mail geführt werden, sondern irgendwie als active.worksheet.

Any idea?

Selber löst sichs am schnellsten

Sub sendmail()
Dim olApp As Object

Sub sendmail()
Dim olApp As Object

Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
    .Recipients.Add("XXX").Resolve
     .Recipients.Add("XXX2").Resolve
    .Subject = "Today's Market Quotes"
    .Body = "Please find attached today's market quotes. Best Regards XXX "
    .Attachments.Add (ActiveWorkbook.Path & "\" & ActiveWorkbook.Name)
    .send
    
End With
Set olApp = Nothing
End Sub

ps: vorgängig muss das file natürlich noch gesaved werden