Отправка электронной почты из программы
SYSDBA (обсуждение | вклад) |
SYSDBA (обсуждение | вклад) |
||
| Строка 15: | Строка 15: | ||
"Hello!", "This is a message", _ | "Hello!", "This is a message", _ | ||
"", False, False, True, 0, 0 | "", False, False, True, 0, 0 | ||
| + | |||
| + | If WebClientControl.EmailErrorMsg = "" Then | ||
| + | MsgBox "Сообщение отослано" | ||
| + | Else | ||
| + | MsgBox "Ошибка: " & WebClientControl.EmailErrorMsg | ||
| + | End If | ||
End Sub | End Sub | ||
Версия 09:47, 17 августа 2015
Отправить электронную почту из программы можно с помощью встроенных функций платформы или используя внешние COM-объекты. Последний случай рассмотрен отдельно, см. Отправка электронной почты с использованием Collaboration Data Objects (CDO). Ниже представлены возможности глобального объекта WebClientControl.
Отправка сообщения из макроса (скрипт-функции)
Функция WebClientControl.SendEMail позволяет задать все параметры отправки непосредственно в момент вызова:
Option Explicit Sub SendEmail WebClientControl.SendEMail _ "SMTP сервер", номер_порта, "SSLV3", _ "логин", "пароль", _ "ящик с которого идет отправка", "кому", _ "Hello!", "This is a message", _ "", False, False, True, 0, 0 If WebClientControl.EmailErrorMsg = "" Then MsgBox "Сообщение отослано" Else MsgBox "Ошибка: " & WebClientControl.EmailErrorMsg End If End Sub
Обратите внимание, что отправка может быть синхронной, программа останавливается и ждет завершения операции, или асинхронной -- выполнение продолжается, в то время, как сообщение отсылается в фоновом потоке.
К сообщению могут быть прикреплены один или несколько файлов. Параметры WipeFile и WipeDir определяют что произойдет с файлами и папкой, где они находятся, после отправки сообщения: будут ли они удалены или сохранены.