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:
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!
Hallo Aloster,
Kannst Du dir sparen. Packe besser einen Button neben das Emailfeld,
und öffne den Client mit:
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
Hallo Ekkehard,
vielen Dank, dass ist wirklich einfacher!
Grüße
Aloster