Как отправить электронное письмо через Outlook, когда книга сохранена в Excel?
В этой статье говорится об отправке электронной почты через Outlook, когда определенная книга сохраняется в Excel. Пожалуйста, сделайте так, как показано в руководстве.
Отправить электронное письмо через Outlook, когда книга сохранена с кодом VBA
Отправить электронное письмо через Outlook, когда книга сохранена с кодом VBA
Чтобы отправить электронное письмо через Outlook, когда книга сохранена в Excel, сделайте следующее.
1. Сначала сохраните книгу как книгу Excel с поддержкой макросов. Нажмите Файл > Сохранить как. В Сохранить как В диалоговом окне выберите папку для сохранения книги, назовите ее в поле Имя файла, выберите Excel Macro-Enabled Workbook из Сохранить как раскрывающийся список, а затем щелкните Сохранить кнопка. Смотрите скриншот:
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Внимание: Пожалуйста, замените Ваш e-mail с адресом электронной почты получателя в строке .To = "Адрес электронной почты"качества измените поля Cc, Subject и body в коде VBA по мере необходимости.
3. нажмите другой + Q клавиши одновременно, чтобы закрыть Microsoft Visual Basic для приложений окно.
С этого момента, когда вы обновляете книгу и сохраняете ее, автоматически создается электронное письмо с прикрепленной обновленной книгой. Пожалуйста, нажмите на Отправить кнопку, чтобы отправить электронное письмо. Смотрите скриншот:
Внимание: Код VBA работает только при использовании Outlook в качестве почтовой программы.
Статьи по теме:
- Как автоматически отправлять электронную почту на основе значения ячейки в Excel?
- Как отправить электронное письмо, если определенная ячейка изменена в Excel?
- Как отправить электронное письмо, если в Excel нажата кнопка?
- Как отправить электронное письмо, если срок в Excel соблюден?
- Как отправить напоминание или уведомление по электронной почте, если книга обновлена в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
