Код VBA для вставки настраиваемой подписи в электронную почту Outlook 2007

Question

Мне нужно вставить определенную подпись в сообщение электронной почты. Наша служба поддержки использует различные подписи, чтобы реагировать на различные потребности в поддержке. В настоящее время я получаю к ним доступ через меню: «Вставка»> «Подпись»> «Назначенный билет - AppSup».

Я хотел бы упростить этот процесс, используя вместо этого макрос (затем я могу создавать элементы панели инструментов для макросов для вызова определенных подписей). Так, например, мне нужен код VBA для вставки подписи «Ticket Assigned - AppSup».

Answer 1

Вместо того, чтобы связывать макросы, возможно, ознакомьтесь с Quick Parts Outlook 2007.

Функция быстрых частей Microsoft Office Outlook 2007 предоставляет строительные блоки, повторно используемые фрагменты содержимого или другие части сообщений электронной почты, которые хранятся в галереях. Вы можете получить доступ и повторно использовать строительные блоки в любое время. Вы также можете сохранять строительные блоки и распространять их с помощью шаблонов, чтобы другие пользователи могли использовать созданные вами строительные блоки.

Создайте многократно используемый строительный блок:

1. Выберите содержимое или часть сообщения электронной почты, которую вы хотите сохранить как строительный блок многократного использования.
2. На вкладке «Вставка» в группе «Текст» щелкните «Быстрые детали».
3. Нажмите Сохранить выделение в галерее Название галереи.
4. Заполните информацию в диалоговом окне «Создать новый строительный блок».

Вы можете вставить быструю деталь, выбрав ее на ленте, или начните вводить имя быстрой детали и нажмите F3.

Answer 2

Если вы хотите использовать макросы вместо Quick Parts, вот некоторая информация, которая поможет вам в этом.

Пример функции VBA для вставки текста в текущее окно редактирования Outlook:

Public Sub MySig1()
  Set objDoc = Application.ActiveInspector.WordEditor
  Set objSel = objDoc.Windows(1).Selection
  objSel.TypeText Text:=vbCrLf & "Joe Blow" & vbCrLf & "A Company Name" & vbCrLf & "(888)765-4321"
End Sub

Это вставит:

<blank line>
Joe Blow
A Company Name
(888)765-4321

Вы можете добавить кнопку для маркеров на панель быстрого доступа в Outlook:

1. Откройте окно элемента, для которого вы хотите добавить кнопку макроса.
2. Нажмите маленькую стрелку вниз на правой стороне QAT и выберите More Commands… или нажмите на логотип Office в левом верхнем углу, выберите «Параметры редактора» и выберите раздел «Настройка».
3. В раскрывающемся списке «Выбрать команды из» выберите: Макросы. (Список ниже покажет вам все ваши макросы.)
4. Выберите макрос, для которого вы хотите создать кнопку, и нажмите кнопку Добавить >>.
5. Чтобы изменить имя и значок, нажмите кнопку «Изменить…».
6. Закройте диалоговое окно «Параметры редактора», чтобы вернуться в окно элемента и использовать кнопку.