Zeilenumbruch nicht möglich?
04.02.2005 18:51:24
Svenna
mit nachfolgendem Code (nicht von mir erstellt) wird das Standard-Mail-Programm geöffnet und Empfänger, Titel und der Email-Text eingetragen. Das klappt auch wunderbar, allerdings habe ich das Problem, daß ich beim Email-Text keinen Zeilenumbruch hinbekomme. Ich habe es schon wie folgt versucht:
Text = "Zeile1" & chr$(13) & "Zeile2"
Das wird aber auch ignoriert, das Ergebnis sieht wie folgt aus:
Zeile1Zeile2
Hat jemand eine Idee? Danke, Gruß Svenna
**********************************************************************
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
Sub Email()
Dim Adresse As String
Dim Anrede As String
Dim Titel As String
Dim Text As String
Adresse = Range("F5").Value
Anrede = Range("E5").Value
Titel = "Erinnerung"
Text = "Zeile1"
Dim Result&, Buff$
Buff = "mailto:" & Adresse & "?Subject=" & Titel
Buff = Buff & "&Body=" & Text
Result = ShellExecute(0&, "Open", Buff, "", "", 1)
End Sub