Зміст
Це простий приклад того, як надіслати електронний лист з Excel.
Натисніть тут, щоб отримати більш складний приклад: надсилайте аркуш електронною поштою як окрему книгу. Цей приклад також стосується захисту паролем та інших поширених проблем.
| 12345678910111213141516171819202122232425262728 | Sub Mail_Workbook ()Application.ScreenUpdating = НеправдаЗатемнити OutApp як об'єктПриглушити пошту як об’єкт'Створіть початкові змінніВстановіть OutApp = CreateObject ("Outlook.Application")Встановити OutMail = OutApp.CreateItem (0)'Електронна поштаУвімкнути Помилка Відновити ДаліЗ OutMail.to = "[email protected]".CC = "".BCC = "".Subject = "Тема".Body = "Основний текст"'.Attachments.Add (FilePath)' Необов'язково, якщо у вас є вкладення.Дисплей'.Send' Необов'язковий для автоматизації надсилання електронної пошти.Закінчити зПомилка Перейти до 0Встановити OutMail = НічогоВстановити OutApp = НічогоApplication.ScreenUpdating = ІстинаEnd Sub |
