Dim eMailConfig As ESUsoft.Smtp.SmtpConfig = New ESUsoft.Smtp.SmtpConfig
 
        '--- Email-Konfigurationsobjekt erstellen
        eMailConfig.Host = "mail.gmx.net"
        eMailConfig.Username = "Lkon@gmx.net"
        eMailConfig.Logging = True
        eMailConfig.Password = "xxxxx"
        eMailConfig.Timeout = 60
 
        '--- Email-Messageobjekt erstellen
        Dim eMailMessage As ESUsoft.Smtp.Message = New ESUsoft.Smtp.Message
        eMailMessage.Body = "Das ist ein neuer Test"
        eMailMessage.Subject = "Der Test schlechthin"
 
   '--- eMailObject erstellen
        Dim eMail As ESUsoft.Smtp.Email = New ESUsoft.Smtp.Email("Lkon@gmx.net",   
       "Versuch")
 
        eMailMessage.From = eMail
 
        '--- Smtp Objekt erstellen
        Dim eMailSmtp As ESUsoft.Smtp.Smtp = New ESUsoft.Smtp.Smtp
        eMailSmtp.Config = eMailConfig
        eMailSmtp.Message = eMailMessage
 
 
        Try
            eMailSmtp.SendMail()
        Catch ex As Exception
            MsgBox(ex.InnerException.Message.ToString)
        End Try