Як встановити різні підписи для відповідей і переадресації в Outlook?
Зазвичай ви можете встановити різні підписи для різних облікових записів у своєму Outlook, але коли-небудь намагалися застосовувати різні підписи для відповідей та переадресації. Це означає, що коли ви відповідаєте на електронне повідомлення, підпис1 вставляється, коли ви пересилаєте електронне повідомлення, підпис2 застосовується. Як ви могли вирішити це завдання в Outlook?
Встановіть різні підписи для відповідей та переадресації за допомогою коду VBA
Встановіть різні підписи для відповідей та переадресації за допомогою коду VBA
Наступний код VBA може допомогти вам встановити різні підписи для відповідей і переадресації. Будь ласка, виконайте кроки нижче один за одним:
1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. Потім натисніть кнопку Insert > Модулі, скопіюйте та вставте код нижче у відкритий порожній модуль, див. знімок екрана:
Код VBA: встановіть різні підписи для відповідей та переадресації:
Public WithEvents GExplorer As Outlook.Explorer
Public WithEvents GMail As Outlook.MailItem
Public GFSO As Scripting.FileSystemObject
Public GTextStream As Scripting.TextStream
Public GText As String
Private Sub Application_Startup()
Set GExplorer = Outlook.Application.ActiveExplorer
Set GFSO = New Scripting.FileSystemObject
End Sub
Private Sub GExplorer_SelectionChange()
Dim xItem As Object
On Error Resume Next
Set xItem = GExplorer.Selection.Item(1)
If xItem.Class <> olMail Then Exit Sub
Set GMail = xItem
End Sub
Private Sub GMail_Reply(ByVal Response As Object, Cancel As Boolean)
InsertSignature Response, "Signature1.htm" 'change this signature name for replies
End Sub
Private Sub GMail_Forward(ByVal Forward As Object, Cancel As Boolean)
InsertSignature Forward, " Signature2.htm" 'change this signature name for forwards
End Sub
Private Sub InsertSignature(Item As Object, SignName As String)
Dim xSignatureFile As String
Dim xMailItem As Outlook.MailItem
xSignatureFile = CreateObject("WScript.Shell").SpecialFolders(5)
xSignatureFile = xSignatureFile & "\Microsoft\Signatures\" & SignName
Set GTextStream = GFSO.OpenTextFile(xSignatureFile)
GText = ""
GText = GTextStream.ReadAll
If Item.Class <> olMail Then Exit Sub
Set xMailItem = Item
With xMailItem
.Display
.HTMLBody = .HTMLBody & "<br><br>" & GText
End With
End Sub
примітки: У наведеному вище коді, Підпис 1 та Підпис 2 це два імена підписів, які ви хочете використовувати для відповіді та пересилання. Будь ласка, змініть імена відповідно до ваших потреб.
3. Досі в Microsoft Visual Basic для додатків вікна, натисніть Tools > посилання йти до Список літератури-Проект1 і перевірте Виконання сценаріїв Microsoft опція від Доступні посилання вікно списку, див. знімок екрана:
4. А потім клацніть OK щоб закрити діалогове вікно, відтепер, коли ви відповідаєте на електронне повідомлення, одразу буде вставлено Signature1, див. знімок екрана:
І коли ви пересилаєте повідомлення, Signature2 буде вставлено, як показано на наступному знімку екрана:
Найкращі інструменти продуктивності офісу
Kutools для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook
???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP) / Розклад надсилання електронних листів / Автоматична копія/прихована копія за правилами під час надсилання електронної пошти / Автоматичне пересилання (розширені правила) / Автоматично додавати привітання / Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...
📨 Управління електронною поштою: Легко відкликайте електронні листи / Блокуйте шахрайські електронні листи за темами та іншими / Видалити повторювані електронні листи / розширений пошук / Консолідація папок ...
📁 Вкладення Pro: Пакетне збереження / Пакетне від'єднання / Пакетний компрес / Автозавантаження / Автоматичне від'єднання / Автокомпресія ...
???? Магія інтерфейсу: 😊Більше красивих і класних смайликів / Підвищте продуктивність Outlook за допомогою вкладок / Згорніть Outlook замість того, щоб закривати ...
👍 Дива в один клік: Відповісти всім із вхідними вкладеннями / Антифішингові електронні листи / 🕘Показувати часовий пояс відправника ...
👩🏼🤝👩🏻 Контакти та календар: Пакетне додавання контактів із вибраних електронних листів / Розділіть групу контактів на окремі групи / Видаліть нагадування про день народження ...
більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.