DRAKON.SU
https://forum.drakon.su/

Создание макросов для таблицы Excel (язык VBA Visual Basic f
https://forum.drakon.su/viewtopic.php?f=228&t=6696
Страница 1 из 1

Автор:  Дышлевый Андрей [ Суббота, 19 Октябрь, 2019 16:50 ]
Заголовок сообщения:  Создание макросов для таблицы Excel (язык VBA Visual Basic f

По работе решил немного автоматизировать отправку 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 КБ | Просмотров: 5846 ]

Автор:  Дмитрий Бардынин [ Суббота, 19 Октябрь, 2019 17:04 ]
Заголовок сообщения:  Re: Создание макросов для таблицы Excel (язык VBA Visual Bas

Паузу надо добавить после отправки. Иначе можно засветиться как спам-бот. :)

Автор:  Дышлевый Андрей [ Суббота, 19 Октябрь, 2019 17:14 ]
Заголовок сообщения:  Re: Создание макросов для таблицы Excel (язык VBA Visual Bas

Дмитрий Бардынин писал(а):
Паузу надо добавить после отправки. Иначе можно засветиться как спам-бот. :)

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

Автор:  LKom [ Суббота, 19 Октябрь, 2019 18:20 ]
Заголовок сообщения:  Re: Создание макросов для таблицы Excel (язык VBA Visual Bas

Интересно:

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

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

Автор:  Владимир Паронджанов [ Среда, 27 Май, 2020 08:46 ]
Заголовок сообщения:  Re: Создание макросов для таблицы Excel (язык VBA Visual Bas

Дышлевый Андрей писал(а):
По работе решил немного автоматизировать отправку e-mail писем.

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

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

Страница 1 из 1 Часовой пояс: UTC + 3 часа
Powered by phpBB® Forum Software © phpBB Group
https://www.phpbb.com/