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

Як надіслати електронне повідомлення з кількома вкладеннями, прикріпленими в Excel?

У цій статті йдеться про надсилання електронного листа через Outlook із кількома вкладеннями, приєднаними до Excel.

Надішліть електронне повідомлення з кількома вкладеннями, приєднаними до Excel, із кодом VBA


Надішліть електронне повідомлення з кількома вкладеннями, приєднаними до Excel, із кодом VBA


Будь ласка, виконайте наступні дії, щоб надіслати електронне повідомлення з кількома вкладеннями, приєднаними до Excel.

1. Вставте командну кнопку, клацнувши Розробник > Insert > Кнопка керування (керування 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. Натисніть кнопку команди, щоб запустити код. У спливаючому перегорнути у вікні виберіть файли, які потрібно вкласти в електронний лист, а потім клацніть на OK кнопку. Дивіться знімок екрана:

9. Потім створюється електронне повідомлення із зазначеними полями та вкладеннями. Клацніть на Відправити кнопку, щоб надіслати його. Дивіться знімок екрана:

примітки: Код VBA працює лише тоді, коли ви використовуєте Outlook як програму електронної пошти.


Легко надсилайте електронну пошту через Outlook на основі полів створеного списку розсилки в Excel:

повне г, повне г,, показали, від, номер, XNUMX Надіслати електронні листи корисність Kutools для Excel допомагає користувачам надсилати електронну пошту через Outlook на основі створеного списку розсилки в Excel.
Завантажте та спробуйте зараз! (30-денний безкоштовний маршрут)



Статті по темі:


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

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

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (14)
Оцінено 5 з 5 · рейтинги 1
Цей коментар був мінімізований модератором на сайті
Я можу «швидко надсилати електронну пошту з кількома вкладеннями, вкладеними в Excel, за допомогою Kutools for Excel», використовуючи описані вище дії, але хотів би зробити ще один крок далі й персоналізувати кожен електронний лист, вставляючи їх імена (зі стовпця на аркуші Excel) в тіло електронного листа. Перебуваючи в тілі листа, я намагаюся вибрати поле та натиснути «Вставити заповнювач», але нічого не відбувається. Будь-яка ідея, чому або як я можу це виправити? Дякую!
Цей коментар був мінімізований модератором на сайті
Що робити, якщо вищезгадані файли розташовані у підпапках? Як шукати файл у папці та підпапках?
Цей коментар був мінімізований модератором на сайті
Що робити, якщо кілька різних користувачів і різні вкладення будуть надіслані з різною темою.
Цей коментар був мінімізований модератором на сайті
наведений вище код працює чудово, дякую!! але мій автоматичний підпис електронної пошти, здається, зникає з цим кодом. будь-яка ідея чому?
Цей коментар був мінімізований модератором на сайті
Привіт, команда ....я не можу побачити вкладення в пошті, тому, якщо я дотримуюся ваших кроків...чи можете ви допоможіть, будь ласка
Цей коментар був мінімізований модератором на сайті
Чудово...... Працює ідеально.
Цей коментар був мінімізований модератором на сайті
Мені сподобалося працювати над цим рішенням для додавання кількох вкладень до електронного листа з Excel VBA. Дякую. Я знаю, що багато хто з нас отримує вигоду, а потім хоче, щоб якийсь аспект був налаштований саме для того, що ми намагаємося зробити. Я нічим не відрізняюся, але для кроку 8. Чи можемо ми встановити шлях, який буде перегорнути вікно відкриється з? Я можу перейти до іншої папки в іншому місці, але якби я міг встановити шлях, це заощадило б час.
Цей коментар був мінімізований модератором на сайті
Привіт
Me gustaría sabre 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.
Велике спасибі.
Цей коментар був мінімізований модератором на сайті
Чи є het 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
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця