Adresssatz mit E-Mail-Erweiterung von Zwischenablage in Feld kopieren

[Aloster]

Beispiel:
Ich kopiere aus einer einer anderen Anwendung folgenden Datensatz (in die Zwischenablage von Windows):
Vorname: Tanja
Nachname: Musterfrau
Straße: Musterstr. 2
PLZ: 22222
Ort: Musterdorf
E-Mail: mustertanja@muster.de

Diesen Adresssatz füge ich per Ereignis "Beim Klicken" der Schaltfläche "Adresseeinfuegen" mit folgenden Code in ein Textfeld "Me!adressfeld" in meine Access-DB "Adressen" (temporär) ein:

Code [Auswählen] Erweitern

Private Sub Adresseeinfuegen_Click()
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("Adressen", dbOpenDynaset)
Me!adressfeld.SetFocus
DoCmd.RunCommand acCmdPaste
End Sub ein.

So dass ich im Textfeld "Me!adressfeld" den obigen Datenssatz stehen habe. Jetzt möchte ich aber den Code so abändern, dass neben den Zeilen Vorname:..., Nachname:..., Straße:..., PLZ:..., Ort:... die Zeile "E-Mail: mustertanja@muster.de" aus dem obigen Beispiel folgendermaßen in das Textfeld "Me!adressfeld"  übertragen wird:
mustertanja@muster.de#mailto:mustertanja@muster.de#

so dass im Textfeld "Me!adressfeld" dann steht:
Vorname: Tanja
Nachname: Musterfrau
Straße: Musterstr. 2
PLZ: 22222
Ort: Musterdorf
E-Mail: mustertanja@muster.de#mailto:mustertanja@muster.de#

Wie muss ich obigen Code anpassen?
Vielen Dank im Voraus!

[Beaker s.a.]

Hallo Aloster,
Kannst Du dir sparen. Packe besser einen Button neben das Emailfeld,
und öffne den Client mit:

Code [Auswählen] Erweitern

FollowHyperlink _
        Address:="mailto: " & Me.Controls("txtEmail").Value, _
        NewWindow:=True
Ein Hyperlinkfeld hat IMO den Nachteil, dass bei einer manuellen
Eingabe der Anwender das genauso eintragen muss. Also Adresse
doppelt mit dem "mailto: " dazwischen.
gruss ekkehard

[Aloster]

Hallo Ekkehard,

vielen Dank, dass ist wirklich einfacher!

Grüße
Aloster