Zeilenumbruch bei Mailversand
gröbi
ich will die bestimmte Zellwerte aus einem Arbeitsblatt als Mail versenden.
Der Text(sBody) wird zwar in das Mail geschrieben, aber die Zeilenumbrüche werden
ignoriert. Nachfolgend mein Code:
Public 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
Public 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
Public Sub Lieferantendaten_als_Mail_versenden()
Dim z As Long
Dim sMail As String, sSubject As String
Dim sBody As String
sMail = "hans.novak@roko.at"
sSubject = "Lieferantenstammdaten"
For z = 2 To Datenende
sBody = sBody & Sheets("Lieferantendaten").Cells(z, 1).Value & ":" _
& Sheets("Lieferantendaten").Cells(z, 2).Value & vbCrLf
Next z
Call Mail(sMail, sSubject, sBody)
End Sub
Anzeige