Private Sub Winsock1_Connect()
  Winsock1.SendData "helo Mailserver" & vbCrLf & _
  "mail from: <dein-name@t-online.de>" & vbCrLf & _
  "rcpt to: <empfaenger-email@web.de>" & vbCrLf & _
  "data" & vbCrLf & _
  "From: " & Chr(34) & "Absendername" & Chr(34) & " <dein-name@t-online.de>" _
  & vbCrLf & _
  "To: " & Chr(34) & "Empfängername" & Chr(34) & "" & _
  "<empfaenger-email@web.de>" & vbCrLf & _
  "Subject: Dies ist der Betreff." & vbCrLf & vbCrLf & _
  "Dies ist der E-Mail-Text." & vbCrLf & "Weiterer Text." & vbCrLf  & _
  "." & vbCrLf & _
  "quit" & vbCrLf
End Sub