habe folgendes Problem. Ich versende Emails über Lotus mit Hilfe des folgenden Codes:
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 senden()
Dim eMail As String, Subject As String, Body As String
Set Recipient = Worksheets("Listen").Cells(z, 6)
eMail = Recipient
Subject = ""
Body = "Dies ist der Nachrichtentext" & ZEILENUMBRUCH & "Zeile 2"
Call Mail(eMail, Subject, Body)
End Sub
Leider bekomme ich an der Stele ZEILENUMBRUCH keinen hin. Habe es mit Chr(13), Chr(10) und vbCrLf probiert, leider keinen Erfolg.
Hat noch jmd eine Idee?
Schönen Gruß,
Fabian