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

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

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

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

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

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

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

@Argus19 · 16.07.2026, 17:21

Ещё один вариант отправки почты с использованием .dll, написанной на Pure Basic:

Новые блоги и статьи Все статьи Все блоги /
Транслитерация текста с кириллицы на латиницу (вариант №2) Maks 13.11.2026 Обновленная версия ранее созданной обработки. Добавлено: - Проверка исходного текста на кириллицу, через обращение к стандартной функции "ТолькоКириллицаВСтроке" из общего модуля. . .	Часы с термометром и праздничным календарем yariko 12.11.2026 Сегодня мы рассмотрим как можно сделать отличные многофункциональные часы. Итак, поставим конкретную задачу: разработать часы с календарем, двумя термодатчиками, выводом поздравительных сообщений. . .	Транслитерация текста с кириллицы на латиницу (вариант №1) Maks 11.11.2026 Решил облегчить жизнь себе и коллегам админам при создании электронных почтовых ящиков для пользователей, в результате написал обработку "Транслитерация текста" с кириллицы на латиницу, а в ней. . .	Книги по геймдизайну, левел-дизайну, игровым механикам и проектированию игрового опыта 8Observer8 08.11.2026 Содержание блога \| English Version 1. 2003 - 06 - Designing Virtual Worlds (1st Edition) Автор: Richard A. Bartle \| Объем: 768 стр. Ссылки: Amazon . . .
Родители токсичные абьюзеры по отношению к своим детям ругают их оскорбляют не любят zorxor 08.11.2026 Жить в атмосфере постоянных оскорблений, критики и холодности со стороны родителей — это тяжелое и болезненное испытание, которое оставляет глубокие эмоциональные раны. Токсичное и абьюзивное. . .	Как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Ответ от Джемени ИИ. zorxor 08.11.2026 Джемени, как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Многие люди, возвращаясь домой, сразу переодеваются в максимально свободную одежду или вовсе предпочитают. . .	Паттерн очереди действий/команд (Action / Command Queue). Система очереди действий и кат-сцен с SDL3 Callbacks, cglm и OpenGL 8Observer8 07.11.2026 Содержание блога \| English Version Руководство для начинающих по реализации паттерна очереди действий/ команд (Action / Command Queue) на C++ (C++20) с использованием официального SDL3 Callbacks. . .	Проверка полного ФИО в типовом справочнике Maks 07.11.2026 Решение реализовано в конфигурации КА2, на примере справочника "КонтактныеЛицаПартнеров". Задача: Запрет инициалов. Не допускаеть использование сокращений вида "И. И. ", "И. И. ", "И И" и. . .

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

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

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