Как отправить электронное письмо с несколькими вложениями из Excel?
В этой статье рассказывается, как отправить электронное письмо через Outlook с несколькими вложениями из Excel.
Отправка электронного письма с несколькими вложениями в Excel с помощью кода VBA
Отправка электронного письма с несколькими вложениями в 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 при отправке из Excel с помощью VBA?
- Как отправить электронное письмо при наступлении срока выполнения в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек