Отправка электронной почты в VB 6.0

dev.Free · 23.04.2012, 20:41. **Показов** 20795. **Ответов** 29

Добрый день! Такой вопрос, как реализовать отправку сообщений пользователям используя список получателей. К примеру нашел такой код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim o_Mess As Object, v_Conf As String
Set o_Mess = CreateObject("CDO.Message")
v_Conf = "http://schemas.microsoft.com/cdo/configuration/"
With o_Mess
    .To = "КОМУ"
    .From = "ОТ КОГО"
    .Subject = "ТЕМА"
    .TextBody = "ТЕЛО СООБЩЕНИЯ"
With .Configuration.Fields
    .Item(v_Conf & "sendusing") = 2
    .Item(v_Conf & "smtpserver") = "smtp.mail.ru"
    .Item(v_Conf & "smtpauthenticate") = 1
    .Item(v_Conf & "sendusername") = "E-MAIL"
    .Item(v_Conf & "sendpassword") = "Пароль"
    .Item(v_Conf & "smtpserverport") = 25
    .Item(v_Conf & "smtpusessl") = False
    .Item(v_Conf & "smtpconnectiontimeout") = 60
    .Update
End With
    .send
End With

Если я ставлю в поле .To = "КОМУ" через запятые адреса, программа виснет. То есть отправка сообщений не происходит. Как реализовать подстановку адресов получателей, можно из заранее готового текстового файла, что-то типа APP.Path & "\E-mail.txt" подскажите пожалуйста, в голову что-то вообще не идет мысль....

@Pro_grammer · 01.12.2017, 13:24

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

.Кроме того, масса ограничений по отправке в день, в час, месяц и тд и тп..

Так все ограничения зависят исключительно от того, кто предоставляет почтовый сервис, код тут не причем.
Хотите без ограничений, то вперёд, поднимайте свой почтовый сервер и бомбите на здоровье! Правда тоже думаю не долго, вскоре попадет он в спам листы и будет везде забанен.

@siemens33 · 01.12.2017, 13:29

Вопрос с вложениями актуален.

@CRIDEL · 02.12.2017, 12:10

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

With o_Mess
* * .From = "ОТ КОГО"
* * .Subject = "ТЕМА"
* * .TextBody = "ТЕЛО СООБЩЕНИЯ"

-вынеси перед Do, и там же вложение добавь.

@Argus19 · 19.02.2025, 12:20

Понадобилось отправлять письма из программы написанной на VB 6.
В посте№10 интересный вариант.
Никогда этого не делал. Не пойму как правильно заполнить поля: где кавычки, где что.
Как это сделать? Желательно на примере с произвольными данными.

@HackerVlad · 19.02.2025, 15:46

Argus19, сейчас отправлять письма можно только через SMTP, правила давно ужесточили и постоянно всё ужесточают и ужесточают для борьбы со спамерами.

Добавлено через 32 секунды
Код из поста номер 10 на сегодняшний день работать не будет.

Добавлено через 1 минуту
Но на иностранном форуме там есть исходники и для реалий сегодняшнего дня. Неужели вы не видели, там же постоянно мелькала эта тема.

@Argus19 · 19.02.2025, 16:39

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

Но на иностранном форуме там есть исходники и для реалий сегодняшнего дня. Неужели вы не видели, там же постоянно мелькала эта тема.

Как-то не обратил внимания. Да и тема с отправкой писем возникла только сегодня.
Ещё круче была бы отправка СМС о выходе параметров приборов за пределы.

@HackerVlad · 19.02.2025, 16:42

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

отправка СМС

На иностранном форуме это тоже есть. Почаще читайте иностранный форум, там много чего есть полезного.

@Argus19 · 20.02.2025, 12:04

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

сейчас отправлять письма можно только через SMTP, правила давно ужесточили и постоянно всё ужесточают и ужесточают для борьбы со спамерами.
Добавлено через 32 секунды
Код из поста номер 10 на сегодняшний день работать не будет.
Добавлено через 1 минуту
Но на иностранном форуме там есть исходники и для реалий сегодняшнего дня. Неужели вы не видели, там же постоянно мелькала эта тема.

Нашёл в другом месте. Всё работает. Куда выложить? В полезные коды пойдёт?

Добавлено через 3 минуты
Переписал исходник с Excel на VB 6.0.

@HackerVlad · 20.02.2025, 15:01

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

В полезные коды пойдёт?

Я бы не стал там ничего выкладывать (чтобы у драгокаса душа не болела).
Здесь в этой теме я думаю разумно выложить код отправки почты.

@Argus19 · 20.02.2025, 15:16

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

Здесь в этой теме я думаю разумно выложить код отправки почты.

Уже выложил там

Новые блоги и статьи Все статьи Все блоги /
24 Мат модель здравосохранения: функциональные требования к строительству пищеблока anaschu 18.06.2026 СРесурсами1: финансовый SD-контур, калькулятор функциональных требований пищеблока Сегодня разделили затраты в агенте Экономика по образцу модели НАСОСЫ, добавили расчёт ROI и построили первый. . .	23. что сделано за последнее время. anaschu 17.06.2026 • Эталон: Клиника НИИ питания РАМН, Москва — централизованный пищеблок, 225 коек, 180 пациентов • Git: репозиторий med2, ветка абсентеизм. Рабочий файл: СРесурсами1_v4. alp • Смежный проект:. . .	22. Подключение слоя системной динамики (потоковые диффуры): экономические метрики модели anaschu 17.06.2026 Апдейт модели: финансовый контур, разделение затрат Продолжаю развивать модель рабочего коллектива на AnyLogic. В этот раз работа шла над агентом Экономика — финансовым SD-слоем модели. Задача:. . .	[golang] Insert Delete GetRandom O(1) (Leetcode: 380) alhaos 16.06.2026 Insert Delete GetRandom O(1) Сложность: Medium Источник: LeetCode 380 Задача Реализовать структуру данных RandomizedSet, которая поддерживает следующие операции за O(1) в среднем:
Свет в конце тоннеля kumehtar 16.06.2026 Поймал себя на одной мысли. Раньше мне всегда казалось неправильным жить без чёткого понимания, куда всё идёт. Будто я иду по дороге судьбы, но не знаю, куда она ведёт. А раз не знаю — значит,. . .	[golang] Реализация стека с поддержкой получения минимального элемента за O(1) alhaos 16.06.2026 Min Stack Сложность: Medium Источник: LeetCode 155 Задача: Реализовать стек который поддерживает push, pop, top и получение минимального элемента за O(1). Методы:	[golang] Конкурентный fetcher с ограничением максимального количества одновременных HTTP запросов. alhaos 10.06.2026 Задача Реализовать конкурентный fetcher с ограничением максимального количества одновременных HTTP запросов. Сигнатура func Fetch(urls string, maxConcurrent int) Result Пример urls :=. . .	[golang] Состояние гонки (race condition) alhaos 10.06.2026 Состояние гонки (race condition) Состояние гонки (Race Condition) — это ошибка, возникающая при одновременном доступе нескольких горутин к одним и тем же данным без должной синхронизации. При этом. . .

@siemens33 4 / 4 / 1 Регистрация: 21.10.2016 Сообщений: 91
	01.12.2017, 13:29
	Вопрос с вложениями актуален. 0

@Argus19 1446 / 463 / 78 Регистрация: 24.09.2017 Сообщений: 2,542 Записей в блоге: 24
	19.02.2025, 12:20
	Понадобилось отправлять письма из программы написанной на VB 6. В посте№10 интересный вариант. Никогда этого не делал. Не пойму как правильно заполнить поля: где кавычки, где что. Как это сделать? Желательно на примере с произвольными данными. 0

@HackerVlad Вернулся 1748 / 644 / 45 Регистрация: 10.09.2021 Сообщений: 2,786
	19.02.2025, 15:46
	Argus19, сейчас отправлять письма можно только через SMTP, правила давно ужесточили и постоянно всё ужесточают и ужесточают для борьбы со спамерами. Добавлено через 32 секунды Код из поста номер 10 на сегодняшний день работать не будет. Добавлено через 1 минуту Но на иностранном форуме там есть исходники и для реалий сегодняшнего дня. Неужели вы не видели, там же постоянно мелькала эта тема. 1