AW: TextBox als Email
02.08.2005 18:20:10
Gerwas
Hallo
selbiges Problem hatte ich bis vor kurzem auch. Danke Forum nun nicht mehr. Ich hoffen dies hilft Dir weiter die Variable strBody mit Deiner textbox(txb_notiz).text füllen und es sollte gehen. Subject ist der text der in Betreff erscheint. admin_mail die mail-Adresse wo es hingehen soll.
Declare
Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hWnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nshowcmd As Long) As Long
Sub Image1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim strSubject As String
Dim strBody As String
strSubject = version
Call ShellExecute(0&, "Open", "mailto:" & admin_mail _
& "?Subject=" & version & "?Body=" & strBody, "", "", 1)
End Sub