Excel-Makro zum automatischen Emailversand

Hallo,
ich benötige ein Makro für ein Auftragsformular. Das Formular bzw. das Excel-Tabellenblatt soll per Klick auf einen Command-Button automatisch an eine feststehende Email-Adresse verschickt werden.

Was ich bisher hinbekommen habe, ist das beim Klick auf den Button sich ein Outlook-Fenster öffnet und die Excel -Datei als Attachment mit an der Email hängt. Jetzt fehlt nur noch, dass bei Empfänger gleich die richtige Email-Adresse steht. Zur Zeit muss der Auftraggeber unsere Email "labor@firma.de" noch per Hand eintragen und dann die Email versenden.

Das Makro sieht bisher so aus:

Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogSendMail).Show
End Sub

Wer kann helfen und das Makro so erweitern, dass bei der betätigung des Buttons gleich auch eine Empfängeradresse im sich öffnenden Outlookfenster steht?

Vielen Dank

 

Bei mir in der VBA-Hilfe habe ich folgendes gefunden:

Ausdruck.SendMail(Recipients, Subject, ReturnReceipt)
Ausdruck Erforderlich. Ein Ausdruck, der ein Workbook-Objekt zurückgibt.

Recipients Erforderlicher Variant-Wert. Gibt den Namen des Empfängers als Text bzw. bei mehreren Empfängern als eine Matrix aus Textzeichenfolgen zurück. Es ist mindestens ein Empfänger anzugeben. Alle Empfänger werden in die An-Liste eingefügt.

Subject Optionaler Variant-Wert. Gibt den Betreff der Nachricht an. Wurde dieses Argument ausgelassen, wird der Name des Dokuments verwendet.

ReturnReceipt Optionaler Variant-Wert. Wenn True, wird eine Empfangsbestätigung angefordert. Wenn False oder nicht angegeben, wird keine Empfangsbestätigung gesendet. Der Standardwert ist False.

Beispiel
In diesem Beispiel wird die aktive Mappe an einen einzelnen Empfänger gesendet.

ActiveWorkbook.SendMail recipients:="Jean Selva"

 

Vielen Dank. Ich werde es morgen ausprobieren. Brauche ich ja nur die mittlere Zeile zu ersetzen.