Как прописать путь к списку рассылки?
Добавлено: 16 май 2015, 17:36
Есть программа отправляющая письма клиентам, нужно прописать путь к .txt файлу со списком адресов. Что бы адреса были в отдельном файле, а не в самой программе.
Код: Выделить всё
Imports System.Net.Mail
Public Class Form1
Private Sub send_Click(sender As Object, e As EventArgs) Handles send.Click
Dim Mail As New MailMessage ' Объявляем новое сообщение
Mail.Subject = "Обновление проекта!" ' Тема сообщения
Mail.To.Add("xxx@xxx.ru") ' Кому
Mail.Bcc.Add("xxxxx@rambler.ru") ' Кому (Нужно указать путь к .txt файлу со списком адресов)
Mail.From = New MailAddress("xxxxxx@xxxxx.ru") ' От кого
Mail.Body = "Текст сообщения"
Mail.Attachments.Add(New System.Net.Mail.Attachment("C:\\xxxxx\\xxxxxx.exe")) ' Вложение
Dim SMTP As New SmtpClient("smtp.jino.ru")
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential("xxxx@xxxxxx.ru", "xxxxx")
SMTP.Port = "587"
SMTP.Send(Mail)
MsgBox("Отправлено")
End Sub
End Class