I am in the process of trying to use Mailto: to allow the user to change or add text to the message. I have found code that launches Mailto: the code is as follows:
Public Function OpenEmail(ByVal EmailAddress As String, _
Optional ByVal Subject As String = "", _
Optional ByVal Body As Object = "") _
As Boolean
Dim bAns As Boolean = True
Dim sParams As String
sParams = EmailAddress
If LCase(Strings.Left(sParams, 7)) <> "mailto:" Then _
sParams = "mailto:" & sParams
If Subject <> "" Then sParams = sParams & _
"?subject=" & Subject
If Body <> "" Then
sParams = sParams & IIf(Subject = "", "?", "&")
sParams = sParams & "body=" & Body
End If
...
Go to the complete details ...