Почтовый клиент: как отправить письмо нескольким адресатам

@WOLF33RUS · Регистрация: 20.06.2012

Студворк — интернет-сервис помощи студентам

Проблема такая, нужно отправить письмо нескольким пользователям. Но если емайлы записать в строчку через пробел в тексбоксе то письмо просто напросто не отправляется(точнее отправляется только не известно кому), так вот вопрос: Как сделать так что бы письмо отправлялось нескольким пользователям одновременно?
Хотелось бы что бы емайлы отображались в ListBox-е и там я сам выбирал кому отправлять.

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Imports System.Net.Mail
Imports System.IO
 
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Mail As New MailMessage
        Dim email As String
        Dim passw As String
        email = Form2.TextBox1.Text
        passw = Form2.TextBox2.Text
        Mail.Priority = MailPriority.Normal ' важность письма  
        Mail.Subject = TextBox1.Text  ' тема  
        Mail.To.Add("TextBox2.Text") ' кому  
        Mail.From = New MailAddress(Form2.TextBox1.Text) ' от кого  
        Mail.Body = RichTextBox1.Text ' письмо  
        Dim SMTP As New SmtpClient("smtp.yandex.ru")
        SMTP.Port = "25" ' порт smtp yandex 
        SMTP.EnableSsl = False ' протокол для шифрования  
        SMTP.Credentials = New System.Net.NetworkCredential(email, passw)
        SMTP.Send(Mail) ' отправляем письмо  
        MsgBox("Письмо отправлено")
    End Sub
End Class

Вопрос не по теме как сохранить данные добавленные в ListBox во время работы программы?(т.е чтобы их заново не вбивать по 100 раз, а чтобы они сохранялись в файл или еще как нибудь)

@Юпатов Дмитрий · 14.12.2012, 18:01

Сообщение от WOLF33RUS

VB.NET
1
Mail.To.Add("TextBox2.Text") ' кому

из текст бокса сначала получаем строку из адресов разделенных пробелом.
Затем сплитим по пробелу и получаем массив подстрок с адресами.
теперь строку, приведенную выше, циклически проходим, только вместо
"TextBox2.Text" передаем очередной элемент массива адресов.
Кстати, а зачем "TextBox2.Text" в кавычках? это ж имя контрола а не строка.
Вот еще посмотри: http://msdn.microsoft.com/ru-r... ge.to.aspx

@WOLF33RUS · 14.12.2012, 18:07 **[ТС]**

Дмитрий если не трудно то можешь примерный код кинуть?

Памирыч · 14.12.2012, 18:39

Адреса можно разделять символом ";"
Если адреса разделены пробелами, то просто заменить их

VB.NET
1
Адреса.Text = Адреса.Text.Replace(" ", ";")

Правда, код для отправки у меня другой

@WOLF33RUS · 14.12.2012, 18:41 **[ТС]**

а смысл я же все равно не смогу Адреса.text подставить вот сюда Mail.To.Add(>!<)? прога будет ругаться типо неверные адреса e-mail или не будет ругаться?

Памирыч · 14.12.2012, 19:15

WOLF33RUS,

Сообщение от Памирыч

Правда, код для отправки у меня другой

Я всего лишь предположил, что такой вариант имеет место быть.
У нас в FAQ есть код отправки письма, так вот это для него точно подходит.

@WOLF33RUS · 14.12.2012, 19:27 **[ТС]**

Памирыч, а ты понял мысль Дмитрия? если да то можешь мне помочь воплотить ее в жизнь?

Памирыч · 14.12.2012, 20:15

Сообщение от WOLF33RUS

а ты понял мысль Дмитрия

Так вроде как да.
Итак, пишете в текстбокс адреса:

mail1@mail.ru mail2@mail.ru mail3@mail.ru

Что в итоге? Просто строка с мылами, разделенная пробелами. Но нам это и нужно.
Дальше пробуем так:

VB.NET
1
2
3
For Each Address As String In TextBox2.Text.Split()
     Mail.To.Add(Address)
Next

@WOLF33RUS · 14.12.2012, 20:28 **[ТС]**

спасибо! сейчас попробую

Добавлено через 11 минут
огромное спасибо работает!!!!!!

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@WOLF33RUS 0 / 0 / 0 Регистрация: 20.06.2012 Сообщений: 39
	14.12.2012, 18:07 [ТС]
	Дмитрий если не трудно то можешь примерный код кинуть? 0

@WOLF33RUS 0 / 0 / 0 Регистрация: 20.06.2012 Сообщений: 39
	14.12.2012, 18:41 [ТС]
	а смысл я же все равно не смогу Адреса.text подставить вот сюда Mail.To.Add(>!<)? прога будет ругаться типо неверные адреса e-mail или не будет ругаться? 0

@WOLF33RUS 0 / 0 / 0 Регистрация: 20.06.2012 Сообщений: 39
	14.12.2012, 19:27 [ТС]
	Памирыч, а ты понял мысль Дмитрия? если да то можешь мне помочь воплотить ее в жизнь? 0

@WOLF33RUS 0 / 0 / 0 Регистрация: 20.06.2012 Сообщений: 39
	14.12.2012, 20:28 [ТС]
	спасибо! сейчас попробую Добавлено через 11 минут огромное спасибо работает!!!!!! 0