Як надіслати електронне повідомлення з кількома вкладеннями, прикріпленими в 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 for Excel допомагає користувачам надсилати електронну пошту через Outlook на основі створеного списку розсилки в Excel.
Завантажте та спробуйте зараз! (30-денна безкоштовна траса)
Статті по темі:
- Як надіслати електронну пошту на електронні адреси, вказані в комірках у Excel?
- Як надіслати електронне повідомлення з копіюванням та вставкою певного діапазону в тіло електронної пошти в Excel?
- Як вставити підпис в електронну пошту Outlook під час надсилання за допомогою vba в Excel?
- Як надіслати електронне повідомлення, якщо термін виконання досягнуто в Excel?
- Як автоматично надсилати електронну пошту на основі значення комірки в Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools for Excel, і відчуйте ефективність, як ніколи раніше. Kutools for Excel Пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Office Tab Надає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
