<code>If SendMail(txtServer.Text, _
  txtFromName.Text, txtFromMail.Text, _
  txtToName.Text, txtToMail.Text, _
  txtSubject.Text, txtBody.Text) Then
 
  ...</code>

<code>Dim strServer As String
Dim strFromName As String
Dim strFromMail As String
Dim strToName As String
Dim strToMail As String
Dim strSubject As String
Dim strBody As String
 
strServer = "pop3.irgendwas.de"
strFromName = "Denyo"
strFromMail = "Azubi-cc@berentzen.de"
strToNamel = "Dieter"
strToMail = "dieter@vbarchiv.de"
strSubject = "Es geht !!!"
strBody = "Hallo Dieter, " & vbCrLf & "die SendMail-Funktion geht jetzt!"
 
If SendMail(strServer, strFromName, strFromMail, _
  strToName, strToMail, strSubject, strBody) Then
 
  ...</code>