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 = "fromEmail@SomeSite.com"
Msg.To = "toEMail@SomeSite.com"
Msg.Subject = "Demo Message"
Smtp.Send(Msg)
End Sub
End Module
|