Public Sub StartEMail(ByVal hWnd As Long, _
  Optional ByVal Empfänger As String = "", _
  Optional ByVal Betreff As String = "", _
  Optional ByVal Text As String)
 
Dim Mailparameter As String
 
'Hier werden die Mail-Parameter gespeichert
Mailparameter = ""
 
'Wurde ein Betreff angegeben?
If Betreff <> "" Then
  AddMailParam Mailparameter, "subject=" & Betreff
End If
 
'Wurde ein Text angegeben?
If Text <> "" Then
  AddMailParam Mailparameter, "body=" & Text
End If
 
Screen.MousePointer = 11
Call ShellExecute(hWnd, "Open", "mailto:" & Empfänger & Mailparameter, "", "", _
  1)
Screen.MousePointer = 0
End Sub
 
Private Sub AddMailParam(ByRef r_AllParams As String, _
   ByVal p_Param As String)
 
If r_AllParams = "" Then
  r_AllParams = "?" & p_Param
Else
  r_AllParams = r_AllParams & "&" & p_Param
End If
End Sub

 
Dim sBruch As String
sBruch = "%0A"    'Zeilenumbruch
StartEMail Form1.hWnd, "mail@domain.de", "Dein Betreff", _
                           "Zeile 1" & sBruch & _
                           "Zeile 2" & sBruch & _
                           "Zeile 3" & sBruch & _
                           "Zeile 4" & sBruch & _
                           "Zeile 5"

Beste Wünsche,
Bran
---
Du stolperst nicht durch die Steine die Dir in den Weg gelegt werden,
sondern durch die Einfallslosigkeit ihnen aus dem Weg gehen zu können.