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

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

Новые блоги и статьи Все статьи Все блоги /
Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .	Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .	Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .
Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .	Цена ошибки DevAlt 23.08.2026 Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .	Сегодня суббота, 22.08.2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. zorxor 22.08.2026 Сегодня суббота, 22. 08. 2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. Кто Я, откуда Я пришел и куда Я иду? Эти вопросы не оставляют меня ни на секунду. Жизнь на планете Земля. . .

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

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

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