Як вставити підпис 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 for Excel виберіть спливаюче вікно, будь ласка, виберіть електронні адреси, на які ви будете надсилати електронні листи, а потім натисніть ОК.

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

Порада:

• 1. Ви можете змінити тіло електронної пошти в коді VBA 1 відповідно до своїх потреб.
• 2. Після запуску коду, якщо з'явиться діалогове вікно з помилкою із попередженням, що визначений користувачем тип не визначений, закрийте це діалогове вікно та натисніть кнопку Tools > посилання в Microsoft Visual Basic для додатків вікно. На відкритті Посилання - VBAProject вікно, перевірте Бібліотека об’єктів Microsoft Outlook і натисніть ОК. А потім запустіть код ще раз.
  

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

Якщо ви новачок у VBA, тут настійно рекомендуємо Надіслати електронні листи корисність Kutools for Excel для вас. За допомогою цієї функції ви можете легко надсилати електронні листи на основі певних полів у Excel та додавати до них підпис Outlook. Будь ласка, виконайте наступне.

По-перше, вам потрібно створити список розсилки з різними полями, на основі яких ви будете надсилати електронні листи.

Ви можете вручну створити список розсилки, як вам потрібно, або застосувати функцію Створення списку розсилки, щоб швидко зробити це.

1. клацання Kutools Plus > Створити список розсилки.

2 В Створити список розсилки У діалоговому вікні вкажіть потрібні поля, виберіть, куди виводити список, а потім клацніть на OK кнопки.

3. Тепер створено зразок списку розсилки. Оскільки це зразок списку, вам потрібно змінити поля на певний необхідний вміст. (допускається кілька рядків)

4. Після цього виділіть весь список (включайте заголовки), натисніть Kutools Plus > Надіслати електронні листи.

5 В Надіслати електронні листи діалогове вікно:

• 5.1) Елементи у вибраному списку розсилки автоматично розміщуються у відповідних полях;
• 5.2) Завершіть текст електронної пошти;
• 5.3) Перевірте обидва Надіслати електронну пошту через Outlook та Використовуйте налаштування підпису Outlook коробки;
• 5.4) Клацніть на Відправити кнопку. Дивіться знімок екрана:

Тепер електронні листи надсилаються. І підпис Outlook за замовчуванням додається в кінці тіла електронної пошти.

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

---

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

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

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

Детальніше ... Завантажити безкоштовно... Придбати ... 

---

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

• Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
• Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
• Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!

Детальніше ... Завантажити безкоштовно... Придбати ...