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.
|
Автор: | Дмитрий Бардынин [ Суббота, 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/ |