Можно ли запустить скрипт автоматически после завершения запуска Outlook?

Question

Я хочу установить подпись сообщения автоматически при каждом запуске Outlook. К сожалению, классический подход с использованием Application_Startup () не работает для этого. Похоже, что объект objWord.EmailOptions.EmailSignature еще не доступен на данном этапе запуска приложения.

Есть ли способ выполнить скрипт, после Outlook завершает запуск?

Private Sub Application_Startup()
   Set objWord = CreateObject("Word.Application")
   Set objSignatureObjects = objWord.EmailOptions.EmailSignature

   objSignatureObjects.NewMessageSignature = "Internal"
   objSignatureObjects.ReplyMessageSignature = "Internal"
End Sub

Answer 1

Подписи хранятся в виде отдельных файлов в папке Signatures. Вы можете найти эту папку в следующих местах:

• Windows XP

  C:\Documents and Settings\%username%\Application Data\Microsoft\Signatures
  

• Windows Vista, Windows 7, Windows 8 и Windows 10

  C:\Users\%username%\AppData\Roaming\Microsoft\Signatures
  

Чтобы увидеть эту папку, у вас должен быть включен View hidden files and folders, или вы можете просто скопировать и вставить указанные выше пути в адресную строку в Проводнике, чтобы напрямую открыть папку.

В любой момент вы можете перейти туда и отредактировать их - удалить, добавить, изменить и т. Д.