Tabelle mailen mit GroupWise

Sub Mailing()
Dim empfänger As String
empfänger = "XXX@YYYY.de"
ActiveWorkbook.SendMail Recipients:=empfänger, Subject:="Test"
End Sub

Eine Aufzeichnung der Befehle beim Versenden von E-Mails direkt aus Excel half mir auch nicht weiter, da durch den Befehl

"Application.Dialogs(xlDialogSendMail).Show"

lediglich der Groupwise-Dialog aufgerufen wird, den ich dann aber nicht automatisiert mit Betreff und der Adresse befüllen kann.

Ferner ist mir nicht bekannt, wie ich nach Groupwise neben dem Betreff auch eine Zeile als E-Mail-Inhalt mitgeben kann.

Wer hilft mir?