По работе решил немного автоматизировать отправку 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.