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