| |
| Send an Email out | |
|
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
|
| | | | Related examples in the same category |
|