Public Class Form1
    Inherits System.Windows.Forms.Form
 
Von Windows Form....
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
		send()
	End Sub
 
	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("mail@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
End Class