Note: The other languages of the website are Google-translated. Back to English

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

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

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


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

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

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

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

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 = "тест" и .HTMLBody = "тест" строк в коде.

6. нажмите другой + Q ключи вместе, чтобы выйти из Microsoft Visual Basic для приложений окно.

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

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

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

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


Легко отправлять электронную почту через Outlook на основе полей созданного списка рассылки в Excel:

Компания Отправить письма полезности Kutools for Excel помогает пользователям отправлять электронную почту через Outlook на основе созданного списка рассылки в Excel.
Скачайте и попробуйте прямо сейчас! (30- дневная бесплатная трасса)



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


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

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

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (14)
Номинальный 5 из 5 · рейтинги 1
Этот комментарий был сведен к минимуму модератором на сайте
Я могу «Быстро отправить электронное письмо с несколькими вложениями, прикрепленными в Excel, с помощью Kutools for Excel», используя ваши шаги, описанные выше, но хотел бы сделать еще один шаг и персонализировать каждое электронное письмо, вставив их имена (из столбца на листе Excel) в тело письма. Находясь в теле письма, я пытаюсь выбрать поле и нажать «Вставить заполнитель», но ничего не происходит. Любая идея, почему или как я могу это исправить? Благодарю вас!
Этот комментарий был сведен к минимуму модератором на сайте
Что делать, если вышеуказанные файлы находятся в подпапках? Как искать файл в папке и подпапках?
Этот комментарий был сведен к минимуму модератором на сайте
Что делать, если несколько разных пользователей и разные вложения должны быть отправлены с разными строками темы.
Этот комментарий был сведен к минимуму модератором на сайте
приведенный выше код работает отлично, спасибо! но моя автоматическая подпись электронной почты, кажется, исчезает с этим кодом. есть идеи, почему?
Этот комментарий был сведен к минимуму модератором на сайте
HI Team .... я не могу увидеть вложение в почте, поэтому, если я последую вашему шагу ... не могли бы вы помочь
Этот комментарий был сведен к минимуму модератором на сайте
Превосходно...... Работает отлично.
Этот комментарий был сведен к минимуму модератором на сайте
Мне понравилось работать с этим решением для добавления нескольких вложений в электронное письмо из Excel VBA. Спасибо. Я знаю, что многие из нас получают выгоду, а затем хотят, чтобы какой-то аспект был настроен именно для того, что мы пытаемся сделать. Я ничем не отличаюсь, но для шага 8. Можем ли мы установить путь, который Приложения окно откроется с? Я могу перейти к другой папке в другом месте, но если бы я мог указать путь, это сэкономило бы время.
Этот комментарий был сведен к минимуму модератором на сайте
Привет,
Me gustaría saber como quedaría la macro si quisiera enviar en un mismo correo a varias personas o más y con varios ficheros o más.
Большое спасибо.
Этот комментарий был сведен к минимуму модератором на сайте
Является ли он ook mogelijk om een ​​filter te zetten op de selectie van de bijlagen, zodat er alleen pdf-bestanden aan de mail kunnen worden toegevoegd?
Этот комментарий был сведен к минимуму модератором на сайте
Привет Алекс де Граф,
Код напрямую вызывает окно выбора файла Microsoft. Это упрощает пользователям VBA выбор необходимых файлов.
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Кристал,

Да, я понимаю это. Однако я хочу, чтобы пользователи могли выбирать только pdf-файлы.
Возможно ли это?
Этот комментарий был сведен к минимуму модератором на сайте
Привет Алекс де Граф,
В следующем коде VBA перечислены только файлы PDF в окне просмотра. Пожалуйста, попробуйте.

Private Sub CommandButton1_Click()
'Updated by Extendoffice 20220714
    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)
    xFileDlg.Filters.Add "PDF", "*.pdf", 1
xFileDlg.FilterIndex = 1
    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
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Кристал,
Да, я это понимаю. Однако можно ли ограничить пользователей только выбором pdf-файлов?
Этот комментарий был сведен к минимуму модератором на сайте
أريد إرسال بريد إلكتروني مع البريد أو hotmail مع CDO ولكن كل ما لدي فقط مع مرفق واحد ولكن أريد أن أرسل مع العديد من المرفقات يرجى إرسال لي عن طريق بريدي الإلكتروني الرمز أو ملف Excel naims62@hotmail.com
Номинальный 5 из 5
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL