Як надіслати електронне повідомлення з кількома вкладеннями, прикріпленими в Excel?
У цій статті йдеться про надсилання електронного листа через Outlook із кількома вкладеннями, приєднаними до Excel.
Надішліть електронне повідомлення з кількома вкладеннями, приєднаними до Excel, із кодом VBA
Надішліть електронне повідомлення з кількома вкладеннями, приєднаними до Excel, із кодом VBA
Будь ласка, виконайте наступні дії, щоб надіслати електронне повідомлення з кількома вкладеннями, приєднаними до Excel.
1. Вставте командну кнопку, клацнувши Розробник > Insert > Кнопка керування (керування ActiveX). Дивіться знімок екрана:
2. Після вставки командної кнопки, клацніть правою кнопкою миші та виберіть Переглянути код з контекстного меню.
3. На відкритті Microsoft Visual Basic для додатків вікно, натисніть Tools > посилання як показано на знімку екрана.
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 = ""
.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примітки: будь ласка, вкажіть одержувача електронної пошти, тему та текст, змінивши змінну в .До = , .Subject = "тест" та .HTMLBody = "тест" рядків у коді.
6 Натисніть кнопку інший + Q клавіші разом, щоб вийти з Microsoft Visual Basic для додатків вікна.
7. клацання Розробник > Режим дизайну щоб вимкнути режим проектування. Дивіться знімок екрана:
8. Натисніть кнопку команди, щоб запустити код. У спливаючому перегорнути у вікні виберіть файли, які потрібно вкласти в електронний лист, а потім клацніть на OK кнопку. Дивіться знімок екрана:
9. Потім створюється електронне повідомлення із зазначеними полями та вкладеннями. Клацніть на Відправити кнопку, щоб надіслати його. Дивіться знімок екрана:
примітки: Код VBA працює лише тоді, коли ви використовуєте Outlook як програму електронної пошти.
Легко надсилайте електронну пошту через Outlook на основі полів створеного списку розсилки в Excel:
Команда Надіслати електронні листи корисність Kutools для Excel допомагає користувачам надсилати електронну пошту через Outlook на основі створеного списку розсилки в Excel.
Завантажте та спробуйте зараз! (30-денний безкоштовний маршрут)
Статті по темі:
- Як надіслати електронну пошту на електронні адреси, вказані в комірках у Excel?
- Як надіслати електронне повідомлення з копіюванням та вставкою певного діапазону в тіло електронної пошти в Excel?
- Як вставити підпис в електронну пошту Outlook під час надсилання за допомогою vba в Excel?
- Як надіслати електронне повідомлення, якщо термін виконання досягнуто в Excel?
- Як автоматично надсилати електронну пошту на основі значення комірки в Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
