Как прописать путь к списку рассылки?

Модераторы: Hawk, Romeo, Absurd, DeeJayC, WinMain

Ответить
slider
Сообщения: 2
Зарегистрирован: 09 май 2015, 14:30

Есть программа отправляющая письма клиентам, нужно прописать путь к .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 
Ответить