Содержание
Это простой пример того, как отправить электронное письмо из Excel.
Щелкните здесь, чтобы увидеть более сложный пример: Отправить лист по электронной почте как отдельную книгу. В этом примере также рассматривается защита паролем и другие общие проблемы.
| 12345678910111213141516171819202122232425262728 | Sub Mail_Workbook ()Application.ScreenUpdating = FalseDim OutApp как объектЗаменить исходящую почту как объект'Создать начальные переменныеУстановите OutApp = CreateObject ("Outlook.Application")Установите OutMail = OutApp.CreateItem (0)'Эл. адресПри ошибке Возобновить ДалееС OutMail.to = "[email protected]".CC = "".BCC = "".Subject = "Тема".Body = "Основной текст"'.Attachments.Add (FilePath)' Необязательно, если у вас есть вложение.Отображать'.Send' Необязательно для автоматизации отправки электронной почты.Конец сПри ошибке GoTo 0Установить OutMail = NothingSet OutApp = НичегоApplication.ScreenUpdating = TrueКонец подписки |
