Basic Send Email Source Code

How to send email via VB.NET code. Here you are


' Create a mailman object for sending email.
Dim mailman As New Chilkat.MailMan()

' Any string argument automatically begins the 30-day trial.
mailman.UnlockComponent("30-day trial")

' Set the SMTP server hostname.
mailman.SmtpHost = "smtp.earthlink.net"

' Create a simple email.
Dim email As New Chilkat.Email()

email.Body = "This is the body"
email.Subject = "This is the subject"
email.AddTo("Chilkat Support", "support@chilkatsoft.com")
email.From = "Jack Johnson "

' Send mail.
Dim success As Boolean
success = mailman.SendEmail(email)
If success Then
MessageBox.Show("Sent mail!")
Else
MessageBox.Show(mailman.LastErrorText)
End If