Вставити в лист підпис із Outlook через VBA, Excel для всіх

Останнім часом стало часто зустрічати питання про те, як до листа, створеного кодом VBA в Excel, додати стандартний підпис Outlook. Трохи теорії для тих, хто не знає як створити і використовувати підписи в Outlook. Справа в тому, що в Outlook можна створювати кілька підписів і якусь використовувати за замовчуванням, а решту можна вставляти в лист за потребою. Щоб створити підпис у Excel 2007 і вище, необхідно перейти в меню:

  • для 2007 :Сервіс -Параметри -Повідомлення -Підписи
  • для 2010 і вище :Файл (File) -Параметри (Options) -Пошта (Mail) -Підписи (Signatures )

Sub SeeSigns() Dim sSignPath As String Dim sF sSignPath = Environ("appdata") & \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" Sub

Цей код переглядає лише текстові підписи - тобто. без оформлення у вигляді картинок та гіперпосилань. Однак у самій папці, крім текстових файлів, є файли з форматуванням у форматі .htm. Вони додаються листи, які пишуться із застосуванням форматування, тобто. листи формату .HTML.

Створення листа кодом VBA з вибраним підписом Щоб сильно не морочити всіма премудростями і хитросплетіннями кодингу я просто прикладу файл, який вміє створювати листи з підписами, при цьому можна вибрати потрібний підпис і тип: простий текст або форматований. Завантажити приклад

Tips_Macro_CreateMailWithSign.xls (66,5 KiB, 1731 завантажень)

Після завантаження файлу перш ніж натиснути кнопку Створити лист в Outlook з підписом потрібно буде налаштувати параметри листа в осередках:

Якщо зовсім не хочеться вдумуватися в макроси і потрібно готове рішення по розсилці з вкладеннями та підписами - є готове рішення: Відправка листа/книги поштою

Стаття допомогла? Поділися посиланням з друзями!