' Standard-Mailclient starten und neue Nachricht erstellen
  Private Sub NeueNachricht(ByVal sRecipient As String, _
    Optional ByVal sSubject As String = "", _
    Optional ByVal sBody As String = "")
 
    Dim sParam As String
 
    ' Betreff
    If sSubject.Length > 0 Then AddMailParam(sParam, "subject=" & sSubject)
 
    ' Nachrichtentext
    If sBody.Length > 0 Then AddMailParam(sParam, "body=" & _
      sBody.Replace(Chr(10), "%0d").Replace(Chr(13), "%0a"))
 
    ' Fenster "Neue Nachricht" öffnen
    Process.Start("mailto: " & sRecipient & sParam)
 
  End Sub
 
  ' Hilfsfunktion: EMail-Parameter zusammenstellen
  Private Sub AddMailParam(ByRef sAllParam As String, ByVal sParam As String)
    If sAllParam = String.Empty Then
      sAllParam = "?" & sParam
    Else
      sAllParam &= "&" & sParam
    End If
  End Sub