Съдържание
Това е прост пример за това как да изпратите имейл от Excel.
Щракнете тук за по -сложен пример: Изпратете работен лист по имейл като отделна работна книга. Този пример също се занимава със защита с парола и други често срещани проблеми.
| 12345678910111213141516171819202122232425262728 | Sub Mail_Workbook ()Application.ScreenUpdating = FalseЗатъмнете OutApp като обектЗатъмнете OutMail като обект„Създаване на начални променливиЗадайте OutApp = CreateObject ("Outlook.Application")Задаване на OutMail = OutApp.CreateItem (0)'Електронна пощаНа грешка възобновяване следващоС OutMail.to = "[email protected]".CC = "".BCC = "".Subject = "Тема".Body = "Текст на тялото"'.Attachments.Add (FilePath)' По избор, ако имате прикачен файл.Дисплей'. Изпрати' Незадължително за автоматизиране на изпращането на имейл.Край сПри грешка GoTo 0Задайте OutMail = НищоЗадайте OutApp = НищоApplication.ScreenUpdating = ВярноEnd Sub |
