DRAKON.SU

Текущее время: Четверг, 09 Июль, 2020 23:14

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ Сообщений: 5 ] 
Автор Сообщение
СообщениеДобавлено: Суббота, 19 Октябрь, 2019 16:50 

Зарегистрирован: Пятница, 18 Январь, 2019 12:03
Сообщения: 24
По работе решил немного автоматизировать отправку e-mail писем.
Для начала сделал шаблон (макрос) на языке VBA который отправляет письма нужным адресатам с нужным содержимым.
Далее планирую усложнить код и добавить нужный функционал.

Пока выложу что есть, может кому будет интересно.
Геннадий Тышов в последней версии ИС ДРАКОН добавил файл описания языка VBA (Lang_VBA.lpr).

Генерируемый код с убранными комментариями и без пустых строк:
Код:
Option Explicit
Sub send_email()
Dim olApp As Object
Dim olMailItm As Object
Dim iCounter As Integer
Dim strSubj As String
Dim Name_Otch As String
Dim useremail As String
Dim strBody As String
On Error GoTo dbg
Set olApp = CreateObject("Outlook.Application")
For iCounter = 1 To WorksheetFunction.CountA(Columns(1))
Set olMailItm = olApp.CreateItem(0)
useremail = Cells(iCounter, 1).Value
strSubj = Cells(iCounter, 3).Value
Name_Otch = Cells(iCounter, 2).Value
strBody = "Здравствуйте " & Name_Otch & "." & vbNewLine & Cells(iCounter, 4).Value & vbNewLine
olMailItm.To = useremail
olMailItm.Subject = strSubj
olMailItm.BodyFormat = 1
olMailItm.Body = strBody
' olMailItm.Send
MsgBox "Строка таблицы: " & iCounter & vbNewLine & "E-mail: " & useremail & vbNewLine & "Имя Отчество: " & Name_Otch & vbNewLine & "Тема письма: " & strSubj & vbNewLine & "Тело письма: " & strBody
Set olMailItm = Nothing
Next iCounter
Set olApp = Nothing
MsgBox "Обработано " & iCounter - 1 & " писем."
dbg:
If Err.Description <> "" Then GoTo L9
GoTo L5
L9:
MsgBox Err.Description
L5:
End Sub


Во вложении схема в виде изображения.

Ссылка на архив проекта в целом https://yadi.sk/d/lu0MyP1zrXtWXw
Можно скачать и открыть в ИС ДРАКОН. Сгенерированный файл называется macros.txt.


Вложения:
Комментарий к файлу: Схема
Рассылка_почты.png
Рассылка_почты.png [ 263.95 КБ | Просмотров: 575 ]
Вернуться к началу
 Профиль  
 
СообщениеДобавлено: Суббота, 19 Октябрь, 2019 17:04 

Зарегистрирован: Пятница, 08 Декабрь, 2017 18:24
Сообщения: 359
Откуда: Астрахань-Сочи
Паузу надо добавить после отправки. Иначе можно засветиться как спам-бот. :)


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: Суббота, 19 Октябрь, 2019 17:14 

Зарегистрирован: Пятница, 18 Январь, 2019 12:03
Сообщения: 24
Дмитрий Бардынин писал(а):
Паузу надо добавить после отправки. Иначе можно засветиться как спам-бот. :)

Верное замечание.
Это я уже понял когда начал тестировать на реальных адресах. Добавлю обязательно, пока думаю как проще реализовать.


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: Суббота, 19 Октябрь, 2019 18:20 

Зарегистрирован: Среда, 07 Январь, 2015 14:53
Сообщения: 1115
Интересно:

Иллюстрация - форма программы Excel вставлена в Дракон-схему Гном.

Хорошая возможность для иллюстрации алгоритмов инструкций для персонала.


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: Среда, 27 Май, 2020 08:46 

Зарегистрирован: Воскресенье, 24 Февраль, 2008 15:32
Сообщения: 4784
Откуда: Москва
Дышлевый Андрей писал(а):
По работе решил немного автоматизировать отправку e-mail писем.

Ссылка на архив проекта в целом https://yadi.sk/d/lu0MyP1zrXtWXw
Можно скачать и открыть в ИС ДРАКОН. Сгенерированный файл называется macros.txt.
Битая ссылка.
Цитата:
Ничего не найдено
Владелец удалил файлы либо закрыл к ним доступ или в ссылке опечатка.

Андрей, почему вы удалили?
Прошу восстановить


Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 5 ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Вся информация, размещаемая участниками на конференции (тексты сообщений, вложения и пр.) © 2008-2020, участники конференции «DRAKON.SU», если специально не оговорено иное.
Администрация не несет ответственности за мнения, стиль и достоверность высказываний участников, равно как и за безопасность материалов, предоставляемых участниками во вложениях.
Powered by phpBB® Forum Software © phpBB Group
Русская поддержка phpBB