Zeilemumbruch im E-Mail Body
18.06.2006 19:44:52
Maik
Die gleiche Frage gibt es zwar bereits im Archiv des Forums, doch damals worde auf diese Frage leider keine Antwort gefunden - deshalb versuche ich es einfach nochmal. Ich möchte aus Excel heraus das Standard Email Programm des PCs öffnen und im Body der Email die Inhalte verschiedener Zellen schreiben. Dazu verwende ich folgenden Code:
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 mail( _
email As String, _
Optional subject As String, _
Optional body As String)
Call ShellExecute(0&, "Open", "mailto:" + email + _
"?subject=" + subject + "&Body=" + body, "", "", 1)
End Sub
Sub MailVersenden()
Dim rng As Range
Dim sMail As String, sSubject As String
Dim sBody As String
Dim iRow As Integer, iCol As Integer
sMail = "philips@bp-reserv.de"
sSubject = "Excel-Daten"
Set rng = Range("A1:A5").CurrentRegion
For iCol = 1 To rng.Columns.Count
For iRow = 1 To rng.Rows.Count
sBody = sBody & rng.Cells(iRow, iCol) & " "
Next iRow
Next iCol
Call mail(sMail, sSubject, sBody)
End Sub
Problem: Ich bekomme im Body der EMail einfach keine Zeilenumbrüche gesetzt. Welches Zeichen kann man in Excel dafür benutzen?
Gruß
Maik