В тази статия ще създадем макрос за изпращане на лист като прикачен файл в имейл.
Преди да стартираме макроса, трябва да посочим имейл име и тема на имейла.
В този пример искаме да изпратим „DataSheet“ като прикачен файл в имейла.
Логично обяснение
Създадохме макрос „MailSheet“, който отнема имейл адреса и темата на имейла от текстовите полета. Той създава ново копие на „DataSheet“, записва го и го изпраща като прикачен файл.
Обяснение на кода
Листове ("Лист с данни"). Копиране
Горният код се използва за създаване на копие на „Лист с данни“ в нова работна книга.
ActiveWorkbook.SaveAs "Част от" & ThisWorkbook.Name _
& "" & StrDate & ".xls"
Горният код се използва за запазване на новата работна книга.
ActiveWorkbook.SendMail EmailID, MailSubject
Горният код се използва за изпращане на активната работна книга като прикачен файл към посочения имейл идентификатор, с дадения предмет.
ActiveWorkbook.Close False
Горният код се използва за затваряне на активната работна книга, без да се записва.
Моля, следвайте кода по -долу
Sub MailSheet () "Деклариране на променливи Dim StrDate, EmailID, MailSubject As String" Получаване на стойност за имейл ID и тема от текстови кутии EmailID = Sheet1.TextBox1.Value MailSubject = Sheet1.TextBox2.Value "Копиране на" DataSheet "в нови листове на работна книга (" DataSheet "). Копирайте" Форматиране на дата и час в определен формат StrDate = Format (Date, "dd-mm-yy") & "" & Format (Time, "h-mm") 'Запазване на активна работна книга с ново име ActiveWorkbook. SaveAs "Част от" & ThisWorkbook.Name _ & "" & StrDate & ".xls" 'Изпращане на поща ActiveWorkbook.SendMail EmailID, MailSubject' Затворете активната работна книга ActiveWorkbook.Close False End Sub
Ако този блог ви е харесал, споделете го с приятелите си във Facebook. Също така можете да ни следвате в Twitter и Facebook.
Ще се радваме да чуем от вас, уведомете ни как можем да подобрим работата си и да я направим по -добра за вас. Пишете ни на имейл сайта