Как отправить электронное письмо с несколькими вложениями, прикрепленными в Excel?
В этой статье рассказывается об отправке электронного письма через Outlook с несколькими вложениями, прикрепленными в Excel.
Отправка электронного письма с несколькими вложениями, прикрепленными в Excel, с использованием кода VBA
Пожалуйста, выполните следующие действия, чтобы отправить электронное письмо с несколькими вложениями, прикрепленными в Excel.
1. Пожалуйста, вставьте кнопку команды, нажав Разработчик > Вставить > Кнопка команды (Элемент управления ActiveX). См. скриншот:
2. После вставки кнопки команды, пожалуйста, щелкните её правой кнопкой мыши и выберите Просмотр кода из контекстного меню.
3. В открывшемся окне Microsoft Visual Basic для приложений, пожалуйста, нажмите Инструменты > Ссылки, как показано на скриншоте ниже.
4. В диалоговом окне Ссылки – VBAProject найдите и отметьте опцию Библиотека объектов Microsoft Outlook , а затем нажмите кнопку ОК.
5. Затем замените исходный код в окне Код на следующий код VBA.
Код VBA: Отправка электронного письма с несколькими вложениями в Excel
Private Sub CommandButton1_Click()
Dim xStrFile As String
Dim xFilePath As String
Dim xFileDlg As FileDialog
Dim xFileDlgItem As Variant
Dim xOutApp As Outlook.Application
Dim xMailOut As Outlook.MailItem
Application.ScreenUpdating = False
Set xOutApp = CreateObject("Outlook.Application")
Set xMailOut = xOutApp.CreateItem(olMailItem)
Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
If xFileDlg.Show = -1 Then
With xMailOut
.BodyFormat = olFormatRichText
.To = "happy.xuebi@163.com"
.Subject = "test"
.HTMLBody = "test"
For Each xFileDlgItem In xFileDlg.SelectedItems
.Attachments.Add xFileDlgItem
Next xFileDlgItem
.Display
End With
End If
Set xMailOut = Nothing
Set xOutApp = Nothing
Application.ScreenUpdating = True
End SubПримечание: укажите получателя электронной почты, тему и текст письма, изменив переменные в строках .To = happy.xuebi@163.com, .Subject = "test" и .HTMLBody = "test" в коде.
6. Нажмите клавиши Alt + Q вместе, чтобы выйти из окна Microsoft Visual Basic для приложений.
7. Нажмите Разработчик > Режим конструктора, чтобы отключить режим конструктора. См. скриншот:
8. Нажмите кнопку команды для запуска кода. В появившемся окне Обзор выберите файлы, которые нужно прикрепить к электронному письму, и затем нажмите кнопку ОК. См. скриншот:
9. Затем создается электронное письмо с указанными полями и вложениями. Пожалуйста, нажмите кнопку Отправить, чтобы отправить его. См. скриншот:
Примечание: Код VBA работает только тогда, когда вы используете Outlook в качестве программы электронной почты.
Легко отправляйте электронные письма через Outlook на основе полей созданного списка рассылки в Excel:
Утилита Отправить письмо из Kutools для Excel помогает пользователям отправлять электронные письма через Outlook на основе созданного списка рассылки в Excel.
Скачайте и попробуйте прямо сейчас! (30-дневная бесплатная пробная версия)
Связанные статьи:
- Как отправить электронное письмо на адреса электронной почты, указанные в ячейках в Excel?
- Как отправить электронное письмо, копируя и вставляя указанный диапазон в тело электронного письма в Excel?
- Как вставить подпись в электронное письмо Outlook при отправке через vba в Excel?
- Как отправить электронное письмо, если срок истек в Excel?
- Как автоматически отправить электронное письмо на основе значения ячейки в Excel?
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в Excel с помощью Kutools для Excel и ощутите эффективность на новом уровне. Kutools для Excel предлагает более300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы выбрать функцию, которая вам нужнее всего...
Office Tab добавляет вкладки в Office и делает вашу работу намного проще
- Включите режим вкладок для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна вместо новых отдельных окон.
- Увеличьте свою продуктивность на50% и уменьшите количество щелчков мышью на сотни ежедневно!
Все надстройки Kutools. Один установщик
Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.
- Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
- Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
- Совместная работа — максимальная эффективность между приложениями Office
- 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек