Public Sub send()
            'Password
            Dim passwd As String = "passwd"
 
            'SmtpConfig
            Dim config As ESUsoft.Smtp.SmtpConfig = New ESUsoft.Smtp.SmtpConfig
            config.Host = "smtp.web.de"
            config.Username = "Name"
            config.Password = passwd
            config.Timeout = 30
            config.Logging = True
 
            'Message
            Dim message As ESUsoft.Smtp.Message = New ESUsoft.Smtp.Message
 
            'HTML Message
            message.HTMLBody = True
 
            'Attachments
            'System.Collections.ArrayList attachments = new 
            ' System.Collections.ArrayList();
            'attachments.Add(new ESUsoft.Smtp.Attachment("c:/file.zip"));
            'message.Attachments = attachments;
 
            'From
            message.From = New ESUsoft.Smtp.Email("name@web.de", "Sender")
 
            'To
            Dim to_ As System.Collections.ArrayList = New _
              System.Collections.ArrayList
            to_.Add(New ESUsoft.Smtp.Email("name@web.de", "Receiver"))
            message.To = to_
 
            'CC
            'System.Collections.ArrayList cc = new System.Collections.ArrayList( 
            ' );
            'cc.Add(new ESUsoft.Smtp.Email("cc@esu-soft.de", "CC Receiver"));
            'message.CC = cc;
 
            'BCC
            'System.Collections.ArrayList bcc = new 
            ' System.Collections.ArrayList();
            'bcc.Add(new ESUsoft.Smtp.Email("bcc@esu-soft.de", "BCC Receiver"));
            'message.BCC = bcc;
 
            'Images
            'System.Collections.ArrayList images = new 
            ' System.Collections.ArrayList();
            'images.Add(new ESUsoft.Smtp.Image("c:/image.gif"));
            'message.Images = images;
 
            'Headers
            Dim headers As System.Collections.Specialized.NameValueCollection = _
              New System.Collections.Specialized.NameValueCollection
            headers.Add("Content-Transfer-Encoding:", " quoted-printable ") _
            'base64
            message.Headers = headers
            message.Charset = New ESUsoft.Smtp.MailCharset( _
              ESUsoft.Smtp.Charset.iso_8859_1)
 
            'Priority
            message.Priority = ESUsoft.Smtp.Message.MailPriority.High
 
            'Subject
            message.Subject = "Subject..."
 
            'Body
            message.Body = "Body text..."
 
            'SMTP
            Dim smtp As ESUsoft.Smtp.Smtp = New ESUsoft.Smtp.Smtp
            smtp.Config = config
            smtp.Message = message
 
            'Send 
            Try
                If (smtp.SendMail()) Then
                    System.Windows.Forms.MessageBox.Show("Transmitted" & _
                      "successfully", "")
                Else
                    System.Windows.Forms.MessageBox.Show("Error", "")
                End If
            Catch ex As ApplicationException
                System.Windows.Forms.MessageBox.Show(ex.Message, "")
            End Try
            'SMTP Log
            '(smtp.Log);
        End Sub