online 1
gast (50)

/ Forum / Datenbanken

DatenbankenDatenbanken

Fragevon mbalrog vom 17.08.2019, 15:43 Options

mit textfeld-klick Mail versenden

hi

habe ein textfeld, in dem in textform eine mailadresse steht. (das feld steht nicht auf hyperlink auch nicht in der tabelle. das soll nach möglichkeit auch so bleiben).

ich möchte, dass, wenn man auf das textfeld klickt, das übliche passiert. outlook geht auf und die mailadresse steht in der adressleiste einer neuen email.

habe versucht, dass mit einem Klick-Ereignis zu koppeln:

Private Sub txt_email_Click()
txt_email = "mailto:" & txt_email
Application.FollowHyperlink Me.txt_email

End Sub


Dummerweise meckert er rum. Was ist falsch?

wie gesagt, ich möchte den text des feldes txt_email als adresse für die mail verwenden.

gruß und danke


Antwort schreiben

Antwort 1 von Teddy7 vom 18.08.2019, 20:28 Options

Versuch´s doch mal so:

Dim xbetreff As String
Dim xtext As String
Dim xan As String
xbetreff = "timetable from " & Date
xtext = "give your attention for the new timetable"
xan = DLookup("ArztMail", "Daten")
On Error Resume Next
DoCmd.SendObject acSendReport, "repBehandlungen", acFormatRTF, _
xan, , , xbetreff, xtext, True
On Error GoTo 0

Gruß
Teddy

Ähnliche Themen

Fehler beim versenden von E-Mails mit Incredimail!!
Brocki22  16.02.2007 - 119 Hits - 5 Antworten

fotos/ Filme per E- Mail versenden
goeschmi  12.06.2007 - 126 Hits - 4 Antworten

klich auf textfeld E-Mail verschicken
mbalrog  29.08.2007 - 36 Hits - 5 Antworten

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Version: supportware 1.9.150 / 10.06.2022, Startzeit:Mon Jan 26 16:59:01 2026