Imports System.Web.Mail Module Module1 Sub Main() Dim Smtp As SmtpMail Smtp.SmtpServer = "Put Your STMP Server Address Here" Dim Msg As MailMessage = New MailMessage() Msg.Body = "Demo message from a program" Msg.From = "[email protected]" Msg.To = "[email protected]" Msg.Subject = "Demo Message" Smtp.Send(Msg) End Sub End Module