Bukephalos
Grünschnabel
Hallo,
ich will eine email mit folgendem Code versenden, was auch funktioniert.
(Emailadresse, Betreff und Emailtext werden aus TextBoxen geholt)
Auch wenn der Emailtext in der txt_Text3 mehrzeilig vorliegt (Zeilen mit Chr(13) getrennt), wird er in die email als eine lange Zeile geschrieben.
Mein Problem ist, dass ich gerne einen Mehrzeiligen Text verschicken würde, wie z.B.:
Bin für jede Hilfe dankbar.
ich will eine email mit folgendem Code versenden, was auch funktioniert.
(Emailadresse, Betreff und Emailtext werden aus TextBoxen geholt)
Code:
Option Explicit
Private 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
Private Sub Command1_Click()
Dim Result&, Buff$
Buff = "mailto:" & txt_Text1.Text & "?Subject=" & txt_Text2.Text
Buff = Buff & "&Body=" & txt_Text3.Text
Result = ShellExecute(0&, "Open", Buff, "", "", 1)
End SubAuch wenn der Emailtext in der txt_Text3 mehrzeilig vorliegt (Zeilen mit Chr(13) getrennt), wird er in die email als eine lange Zeile geschrieben.
Mein Problem ist, dass ich gerne einen Mehrzeiligen Text verschicken würde, wie z.B.:
Bin für jede Hilfe dankbar.
