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