VB.Net/Network Remote/Email — различия между версиями

Материал из VB Эксперт
Перейти к: навигация, поиск
м (1 версия)
 
(нет различий)

Версия 16:40, 26 мая 2010

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