Сайт создан по материалам книги Г. Бучека "Учебный курс по ASP.NET".
Москва: BHV, 2002.
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Проект Кабина для голосования
Проект День рождения
Проект Рассылка почты
Во время работы процедуре необходимы объекты для работы с электронной почтой:
-
Dim TheMailMessage as New MailMessage
Dim TheMailConnection as New SmtpMail
-
DBCommand = New OleDbDataAdapter _
("Select Distinct CustomerEmail from Customers " _
& "Where GroupName = '" _
& ddlGroupName.Selectedltem.Text & "'", DBConn)
Извлеченные данные помещаются в объект DataSet:
DBCommand.Fill(DSPageData, _
"Emails")
-
TheMailMessage.From = txtFrom.Text
во-вторых, тема сообщения:
TheMailMessage.Subject = txtSubject.Text
в-третьих, текст сообщения:
TheMailMessage.Body - txtMessage.Text
-
For I = 0 to DSPageData.Tables("Emails"). _
Rows.Count - 1
-
TheMailMessage.То = DSPageData.Tables("Emails"). _
Rows(O).Item("CustomerEmail")
-
TheMailConnection.Send(TheMailMessage)
-
if DSPageData.Tables("Emails").Rows.Count = 1 then
-
IblMessage.Text = " Ваше сообщение отправлено 1" _
& " адресату. Можете осуществить новую рассылку."
-
IblMessage.Text = " Ваше сообщение отправлено " _
& DSPageData.Tables("Emails").Rows.Count _
& " адресатам. Можете осуществить новую рассылку."
Изменение кода для Access
Для обеспечения взаимодействия приложения Рассылка почты с базой данных Access необходимо внести в код единственное изменение — модифицировать строку соединения с базой данных:
-
DBConn = New 01eDbConnection("Provide]j=sqloledb;" _
& "server=localhost;" _
& "Initial Catalog=INETC4;"
5 "User Id-sa;" _
6 "Password=yourpassword;")
-
DBConn = New 01eDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;"
& "DATA SOURCE-" _
& Server.MapPath{"/INetBook/C4/Birthday/" _
& "Access/C4birthday.mdb;"))
 |
 |
