Sub versenden_Mail(ByVal host As String, ByVal port As String, ByVal _
   E_benutzer As String, ByVal E_pass As String, ByVal s_text As String, ByVal _
   s_body As String)
        ' Neues MailMessage-Objekt mit Absender und 
        ' Empfänger-Adresse erstellen
        Try
            ' SMTP-Server Konfiguration
            Dim config = New ESUsoft.Smtp.SmtpConfig()
 
 
 
            config.Host = host
            config.Port = CInt(port)
            config.Username = E_benutzer
            config.Password = E_pass
            config.Timeout = 30
            config.Logging = True
 
 
 
 
 
            'Message 
 
 
            Dim Message As New ESUsoft.Smtp.Message
            With Message
                .HTMLBody = True
 
                Dim eMail As ESUsoft.Smtp.Email = New ESUsoft.Smtp.Email( _
                  "xxx.xxx@xxx.com")
 
                .From = New ESUsoft.Smtp.Email("xxx.xxx@xxx.com", "Sender")
 
                Dim to_ = New System.Collections.ArrayList
                to_.Add(New ESUsoft.Smtp.Email("yyy@yyy.com", "Receiver"))
                .To = to_
 
                'Headers
 
                ' Priorität einstellen
                .Priority = ESUsoft.Smtp.Message.MailPriority.High
                ' Betreff
                .Subject = s_text
 
 
                .Body = s_body
 
 
 
 
                ' ggf. Kopie-Empfänger hinzufügen
                '.CC.Add(New MailAddress("emailadresse"))
 
                ' ggf. BCC-Empfänger hinzufügen
                ' .Bcc.Add(New MailAddress("emailadresse"))
 
                ' Anlagen hinzufügen
                REM        .Attachments.Add(New Attachment(( _
                  Application.StartupPath +  dr_file)))
 
 
 
            End With
 
 
            ' Nachricht senden
 
            Dim smtp As ESUsoft.Smtp.Smtp = New ESUsoft.Smtp.Smtp
            Smtp.Config = config
            Smtp.Message = Message
 
            Dim reply As Boolean = False
 
            reply = smtp.SendMail
 
            MessageBox.Show("Nachricht gesendet: " + reply.ToString)
        Catch ex As System.Exception
 
            MessageBox.Show(ex.ToString)
        End Try
    End Sub

SERVER:  220 xxx.de.xxx.com ESMTP Service ready
CLIENT:  HELO 10.202.193.165
SERVER:  250 mailsdag.de.signintra.com
CLIENT:  AUTH LOGIN
SERVER:  501 AUTH command unavailable
CLIENT:  AUTH PLAIN
SERVER:  501 AUTH command unavailable
CLIENT:  AUTH MSN
SERVER:  501 AUTH command unavailable
CLIENT:  AUTH=LOGIN