Как да изпратите имейл през Outlook, когато работната книга е запазена в Excel?
Тази статия говори за изпращане на имейл през Outlook, когато конкретна работна книга е запазена в Excel. Моля, направете както показва урокът.
Изпратете имейл през Outlook, когато работната книга е запазена с VBA код
Изпратете имейл през Outlook, когато работната книга е запазена с VBA код
За изпращане на имейл през Outlook, когато работната книга е запазена в Excel, моля, направете следното.
1. Моля, първо запазете работната книга като работна книга с активирани макроси на Excel. Кликнете досие > Save As. В Save As диалогов прозорец, изберете папка, за да запишете работната книга, наименувайте я в полето Име на файл, изберете Работна книга с активирани макроси на Excel от Запиши като тип падащ списък и след това щракнете върху Save бутон. Вижте екранна снимка:
2. Отворете работната книга с активирани макроси на Excel, която сте запазили току-що, натиснете Друг + F11 клавиши едновременно, за да отворите Microsoft Visual Basic за приложения прозорец.
2. В Microsoft Visual Basic за приложения прозорец, моля щракнете два пъти Тази работна книга в лявата лента, след което копирайте и поставете долния VBA код в Тази работна книга кодов прозорец. Вижте екранна снимка:
VBA код: Изпратете имейл, когато работната книга бъде запазена
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
'Updated by Extendoffice 20181102
Dim xOutApp As Object
Dim xMailItem As Object
Dim xName As String
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xName = ActiveWorkbook.FullName
With xMailItem
.To = "Email Address"
.CC = ""
.Subject = "The workbook has been saved"
.Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
.Attachments.Add xName
.Display
'.send
End With
Set xMailItem = Nothing
Set xOutApp = Nothing
End Sub
Забележка: Моля, сменете Имейл Адрес с имейл адреса на получателя в ред .To = "Имейл адрес", и променете полетата Cc, Subject и body в кода на VBA, както ви е необходимо.
3. Натисни Друг + Q клавиши едновременно, за да затворите Microsoft Visual Basic за приложения прозорец.
Отсега нататък, когато актуализирате работната книга и я запазите, имейл ще бъде създаден автоматично с прикачена актуализирана работна книга. Моля, щракнете върху Изпрати бутон за изпращане на имейла. Вижте екранна снимка:
Забележка: VBA кодът работи само когато използвате Outlook като своя имейл програма.
Още по темата:
- Как автоматично да изпращате имейл въз основа на стойността на клетката в Excel?
- Как да изпратите имейл, ако определена клетка е променена в Excel?
- Как да изпратите имейл, ако бутонът е щракнат в Excel?
- Как да изпратите имейл, ако срокът е спазен в Excel?
- Как да изпратите имейл напомняне или известие, ако работната книга е актуализирана в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!