Як вставити підпис Outlook під час надсилання електронної пошти в Excel?
Припустімо, що ви хочете надіслати електронний лист безпосередньо в Excel, як ви можете додати підпис Outlook за замовчуванням у електронний лист? У цій статті наведено два методи, які допоможуть вам додати підпис Outlook під час надсилання електронної пошти в Excel.
Вставте підпис в електронну пошту Outlook під час надсилання за допомогою Excel VBA
Легко вставляйте підпис Outlook під час надсилання електронної пошти в Excel за допомогою чудового інструменту
Більше підручників з розсилки в Excel ...
Вставте підпис в електронну пошту Outlook під час надсилання за допомогою Excel VBA
Наприклад, на робочому аркуші є список електронних адрес, щоб надсилати електронні листи на всі ці адреси в Excel і додавати в електронні листи підпис Outlook за замовчуванням. Щоб досягти цього, застосуйте наведений нижче код VBA.
1. Відкрийте аркуш, що містить список адрес електронної пошти, на який потрібно надіслати електронну пошту, а потім натисніть клавішу інший + F11 ключі.
2. На відкритті Microsoft Visual Basic для додатків вікна, натисніть Insert > Модуль а потім скопіюйте нижче VBA 2 у вікно коду модуля.
3. Тепер вам потрібно замінити .Тіло рядок в VBA 2 з кодом в VBA 1. Після цього перенесіть лінію Відображення під лінією За допомогою xMailOut.
VBA 1: шаблон надсилання електронних листів із підписом Outlook за замовчуванням у Excel
.HTMLBody = "This is a test email sending in Excel" & "<br>" & .HTMLBody
VBA 2: Надішліть електронну пошту на електронні адреси, вказані в комірках Excel
Sub SendEmailToAddressInCells()
Dim xRg As Range
Dim xRgEach As Range
Dim xRgVal As String
Dim xAddress As String
Dim xOutApp As Outlook.Application
Dim xMailOut As Outlook.MailItem
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select email address range", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xOutApp = CreateObject("Outlook.Application")
Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
For Each xRgEach In xRg
xRgVal = xRgEach.Value
If xRgVal Like "?*@?*.?*" Then
Set xMailOut = xOutApp.CreateItem(olMailItem)
With xMailOut
.To = xRgVal
.Subject = "Test"
.Body = "Dear " _
& vbNewLine & vbNewLine & _
"This is a test email " & _
"sending in Excel"
.Display
'.Send
End With
End If
Next
Set xMailOut = Nothing
Set xOutApp = Nothing
Application.ScreenUpdating = True
End Sub
Наступний знімок екрану допоможе вам легко знайти відмінності після зміни коду VBA.
4 Натисніть кнопку F5 клавіша для запуску коду. Тоді a Kutools для Excel виберіть спливаюче вікно, будь ласка, виберіть електронні адреси, на які ви будете надсилати електронні листи, а потім натисніть ОК.
Потім створюються електронні листи. Ви бачите, що підпис Outlook за замовчуванням додано в кінці тіла електронного листа.
Порада:
- 1. Ви можете змінити тіло електронної пошти в коді VBA 1 відповідно до своїх потреб.
- 2. Після запуску коду, якщо з'явиться діалогове вікно з помилкою із попередженням, що визначений користувачем тип не визначений, закрийте це діалогове вікно та натисніть кнопку Tools > посилання в Microsoft Visual Basic для додатків вікно. На відкритті Посилання - VBAProject вікно, перевірте Бібліотека об’єктів Microsoft Outlook і натисніть ОК. А потім запустіть код ще раз.
Легко вставляйте підпис Outlook під час надсилання електронної пошти в Excel за допомогою чудового інструменту
Якщо ви новачок у VBA, тут настійно рекомендуємо Надіслати електронні листи корисність Kutools для Excel для вас. За допомогою цієї функції ви можете легко надсилати електронні листи на основі певних полів у Excel та додавати до них підпис Outlook. Будь ласка, виконайте наступне.
Перед поданням заявки Kutools для Excel, будь ласка завантажте та встановіть його спочатку.
По-перше, вам потрібно створити список розсилки з різними полями, на основі яких ви будете надсилати електронні листи.
Ви можете вручну створити список розсилки, як вам потрібно, або застосувати функцію Створення списку розсилки, щоб швидко зробити це.
1. клацання Kutools Plus > Створити список розсилки.
2 В Створити список розсилки У діалоговому вікні вкажіть потрібні поля, виберіть, куди виводити список, а потім клацніть на OK кнопки.
3. Тепер створено зразок списку розсилки. Оскільки це зразок списку, вам потрібно змінити поля на певний необхідний вміст. (допускається кілька рядків)
4. Після цього виділіть весь список (включайте заголовки), натисніть Kutools Plus > Надіслати електронні листи.
5 В Надіслати електронні листи діалогове вікно:
- 5.1) Елементи у вибраному списку розсилки автоматично розміщуються у відповідних полях;
- 5.2) Завершіть текст електронної пошти;
- 5.3) Перевірте обидва Надіслати електронну пошту через Outlook та Використовуйте налаштування підпису Outlook коробки;
- 5.4) Клацніть на Відправити кнопку. Дивіться знімок екрана:
Тепер електронні листи надсилаються. І підпис Outlook за замовчуванням додається в кінці тіла електронної пошти.
Якщо ви хочете отримати безкоштовну пробну версію (30 днів) цієї програми, натисніть, щоб завантажити, а потім перейдіть до застосування операції, як описано вище.
Статті по темі:
Надішліть електронну пошту на електронні адреси, вказані в клітинках Excel
Припустимо, у вас є список адрес електронної пошти, і ви хочете надіслати повідомлення електронної пошти на ці адреси електронною поштою безпосередньо в Excel. Як цього досягти? Ця стаття покаже вам способи надсилання електронної пошти на декілька адрес електронної пошти, вказаних у клітинках Excel.
Надішліть електронний лист із копіюванням та вставкою певного діапазону в тіло електронної пошти в Excel
У багатьох випадках зазначений діапазон вмісту на аркуші Excel може бути корисним у спілкуванні електронною поштою. У цій статті ми представимо метод надсилання електронного листа із вказаним діапазоном вставки в тіло електронної пошти безпосередньо в Excel.
Надішліть електронний лист із кількома вкладеннями, прикріпленими в Excel
У цій статті йдеться про надсилання електронного листа через Outlook із кількома вкладеннями, приєднаними до Excel.
Надішліть електронний лист, якщо в Excel досягнуто терміну виконання
Наприклад, якщо термін виконання в стовпці C менше або дорівнює 7 дням (поточна дата - 2017/9/13), надішліть нагадування електронною поштою вказаному одержувачу в стовпці A із зазначеним вмістом у стовпці B. Як це зробити досягти цього? У цій статті буде запропоновано метод VBA для детального розгляду цього питання.
Автоматично надсилати повідомлення електронної пошти на основі значення комірки в Excel
Припустимо, ви хочете надіслати електронне повідомлення через Outlook певному одержувачу на основі вказаного значення комірки в Excel. Наприклад, коли значення комірки D7 на аркуші перевищує 200, електронна пошта створюється автоматично. Ця стаття представляє метод VBA для швидкого вирішення цієї проблеми.
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!