Office: Mailadresse automatisch einsetzen

Hallo Zusammen,

Vielleicht kann mir wer helfen. Ich möchte ein Worddokumtent per Email versenden und die Emailadresse automatisch eintragen lassen.
Das heisst, click auf "Als Mail versenden", es öffnet sich das Mailfenster und hier soll bei "An:" die Mail adresse automatisch eingesetzt werden.


Code:

Private Sub CommandButton1_Click()
If Len(TextBox1.Text) > 0Then

Options.SendMailAttach = True
ActiveDocument.SendMail
'Hier sollt dann die Mailadresse mitgegeben werden

Else
MsgBox "Füllen Sie bitte die Pflichtfelder aus!", vbExclamation, "Wichtiger Hinweis!"
ActiveDocument.Saved = False
SendKeys "{ESC}"
End If
End Sub

Dank im Voraus
Maxi

 

Hi,

bin zwar eine Makro-Nulpe, aber was vielleicht auch allen anderen nicht ganz klar ist: woher soll diese Mail-Adresse denn kommen? Steht die irgendwo im Dokument? Oder soll es immer die gleiche Adresse sein?

Gruß

 

Hallo,

der EMpfängerverteiler wäre immer der selbe, und den würde ich direkt in den Code eingeben.

Step 1: Mach das Mail Fenster auf (den gibts ja schon)
Step 2: Schreib ins "An"-Feld den Verteilernamen

.....und ich habs in keiner Hilfe gefunden, ich bin mir sicher es ist ganz simpel - aber ich komm nicht drauf.

lg
Maxi