Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как отправить электронное письмо с несколькими вложениями, прилагаемыми в Excel?

В этой статье говорится о отправке электронной почты через Outlook с несколькими вложениями, прилагаемыми в Excel.

Отправить письмо с несколькими вложениями, прилагаемыми в Excel с кодом VBA

Быстрая отправка электронной почты с несколькими вложениями, прилагаемыми в Excel, с помощью Kutools for Excel

Вкладка «Office» Включите редактирование и просмотр с вкладками в Office и упростите свою работу ...
Kutools для Excel добавляет расширенные функции 300 в Excel и повышает производительность на 80%
  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Kutools работает с Office 2007-2019 и 365. Он поддерживает все языки и очень прост в установке и развертывании. Полнофункциональная 60-дневная бесплатная пробная версия.

Отправить письмо с несколькими вложениями, прилагаемыми в Excel с кодом VBA


Чтобы отправить электронное письмо с несколькими вложениями, прилагаемыми в Excel, выполните следующие действия.

1. Вставьте командную кнопку, нажав разработчик > Вставить > Кнопка Command (элемент управления ActiveX), Смотрите скриншот:

2. Вставив кнопку Command, щелкните правой кнопкой мыши и выберите Просмотреть код из контекстного меню.

3. В открытии Microsoft Visual Basic для приложений окно, нажмите Инструменты > дело как показано ниже.

4. в Ссылки - VBAProject диалогового окна, найдите и проверьте Библиотека объектов Microsoft Outlook и нажмите OK Кнопка.

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. нажмите другой + Q , чтобы выйти из Microsoft Visual Basic для приложений окна.

7. Нажмите разработчик > Режим проектирования для отключения режима проектирования. Смотрите скриншот:

8. Нажмите кнопку «Command», чтобы запустить код. В появлении просмотреть выберите файлы, которые необходимо добавить в сообщение электронной почты, а затем нажмите OK кнопка. Смотрите скриншот:

9. Затем создается электронное письмо с указанными полями и вложениями. Пожалуйста, нажмите Отправить чтобы отправить его. Смотрите скриншот:

Внимание: Код VBA работает только при использовании Outlook в качестве почтовой программы.


Быстрая отправка электронной почты с несколькими вложениями, прилагаемыми в Excel, с помощью Kutools for Excel

В этом разделе вы Отправить письма полезности Kutools for Excel, С помощью этой утилиты вы можете легко отправлять электронную почту с несколькими приложениями, прикрепленными в Excel. Пожалуйста, сделайте следующее.

Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни.

1. Следуйте приведенному ниже скриншоту, чтобы создать список рассылки. И заполните адрес электронной почты получателя, тему электронной почты и пути вложений, которые необходимо добавить в отправляющее электронное письмо.

2. Выберите весь список рассылки, который вы создали сейчас (здесь я выбираю диапазон A1: E2), затем нажмите Предприятие > Отправить письма, Смотрите скриншот:

2. В появлении Отправить письма диалоговое окно, выполните следующие настройки:

А. Чтобы, Прикрепить файлы Тема поля будут автоматически заполнены выбранными списками рассылки;

B. Составьте тело электронной почты по мере необходимости;

C. Проверьте Отправить письмо через Outlook коробка;

D. Щелкните Отправить для отправки электронной почты. Смотрите скриншот:

3. Затем Kutools for Excel появится диалоговое окно, чтобы узнать, сколько писем было отправлено. Пожалуйста, нажмите OK и закрыть Отправить письма диалоговое окно. Смотрите скриншот:

Внимание: Вы можете перейти в папку «Отправленные» Outlook, чтобы проверить отправку писем.

Наконечник.Если вы хотите получить бесплатную пробную версию этой утилиты, перейдите по ссылке бесплатно скачать программное обеспечение сначала, а затем перейдите, чтобы применить операцию согласно вышеуказанным шагам.


Статьи по теме:


Kutools для Excel - лучший инструмент для повышения производительности в офисе Повысьте производительность на 80%

  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905

Вкладка «Office» предоставляет интерфейс с вкладками для Office и упрощает работу

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Kailas Naik · 19 days ago
    HI Team ....i am unable to see the attachment in mail so if i follow the your step...can you pls help
  • To post as a guest, your comment is unpublished.
    Regina · 7 months ago
    the above code works perfectly thanks!! but my email automatic signature seem to disappear with this code. any idea why?
  • To post as a guest, your comment is unpublished.
    Rizwan Siddiqui · 1 years ago
    What if multiple different user and different attachment to be send with different subject line.
  • To post as a guest, your comment is unpublished.
    Prashant Soni · 1 years ago
    What if above files are located in sub-folders? How to look for a file in folder and sub-folders?
  • To post as a guest, your comment is unpublished.
    Laurel Granger · 1 years ago
    I am able to "Quickly send email with multiple attachments attached in Excel with Kutools for Excel" using your steps above, but would like to take it one step further and personalize each email by inserting their names (from a column in the Excel sheet) into the body of the email. While in the body of the email, I try selecting the field and clicking on "Insert Placeholder" but nothing happens. Any idea why or how I can fix this? Thank you!