Nutzung vom mailto in Access

Computer: Software & Programmierung Microsoft Access
1

Hallo,

ich versuche mittels der Funktion mailto ein Textfeld auszulesen und in die Betreffzeile des Mails einzubauen.
Bis jetzt ohne Erfolgt.

Kann mir jemand ein Beispiel zu Verfügung stellen?

2

Sorry, kann leider nicht weiterhelfen.

3

Sorry, ich habe die Anfrage nicht gleich gesehen.
Ich bin nicht sicher, ob ich das richtig verstehe.
Ich sende normalerweise die Mails über
Outlook-Automatisierung aus Access. ZB:

Public Sub SendOneMail(strArgBody As String, strEmail As String)
Dim objOutlook As Outlook.Application
Dim objEmail As Outlook.MailItem
Dim strBody As String
'Debug.Print strEmail
'Exit Sub
Set objOutlook = CreateObject(„Outlook.application“)
Set objEmail = objOutlook.CreateItem(olMailItem)
strBody = „“
strBody = strBody & vbCrLf & „“
strBody = strBody & "

" & strArgBody & "
"
strBody = strBody & vbCrLf & " "
strBody = strBody & vbCrLf & "…@…
"
strBody = strBody & vbCrLf & "…
"
strBody = strBody & vbCrLf & "…
"
strBody = strBody & vbCrLf & " "
Debug.Print strBody
If Me.tickTestmodus = False Then
'Only send if not in test mode:
With objEmail
.To = strEmail
.Subject = Me.txtBetreff
.HTMLBody = strBody
.Send 'sends the email in Outlook.
End With
End If
'**closes outlook
objOutlook.Quit
Set objEmail = Nothing
'MsgBox („Done“)
End Sub