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

dev.Free · 23.04.2012, 20:41. **Показов** 20422. **Ответов** 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

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

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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

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

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

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