Dim config = New ESUsoft.Smtp.SmtpConfig()
 
        config.Host = "mail.gmx.net"
 
        config.Username = "Lkon@gmx.net"
 
        config.Password = "xxxxxxxxx" ' ;-)
 
        config.Timeout = 30
 
        config.Logging = True
 
 
             Dim message = New ESUsoft.Smtp.Message()
 
        message.HTMLBody = True
 
        message.From = New ESUsoft.Smtp.Email("LKon@gmx.net", "Lars")
 
        Dim to_ = New System.Collections.ArrayList()
 
        to_.Add(New ESUsoft.Smtp.Email("LKon@gmx.net", "Lars"))
 
        message.To = to_
 
        message.Priority = ESUsoft.Smtp.Message.MailPriority.High
 
        message.Subject = "Subject..."
 
 
        Dim Smtp = New ESUsoft.Smtp.Smtp()
 
        Smtp.Config = config
 
        Smtp.Message = message
 
        Dim reply As Boolean = False
 
        reply = Smtp.SendMail()
 
        If (reply) Then
 
            MsgBox("Transmitted successfully")
 
        Else
 
            MsgBox("Error")
 
        End If