Как да задам различни подписи за отговори и препращания в Outlook?

Автор: Xiaoyang Последна промяна: 2018-08-20

Обикновено можете да зададете различни подписи за различни акаунти във вашия Outlook, но някога сте опитвали да приложите различни подписи за отговори и препращания. Това означава, че когато отговаряте на имейл, се вмъква подпис1, когато препращате имейл, се прилага подпис2. Как можете да решите тази задача в Outlook?

Задайте различни подписи за отговори и препращания с VBA код

Задайте различни подписи за отговори и препращания с VBA код

Следният VBA код може да ви помогне да зададете различни подписи за отговори и препращания, моля, изпълнете стъпките по-долу една по една:

1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.

2, След това кликнете върху Поставете > Модули, копирайте и поставете кода по-долу в отворения празен модул, вижте екранната снимка:

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 са двете имена на подписи, които искате да използвате за отговор и препращане. Моля, променете имената според вашите нужди.

doc sig forwar отговор 1

3. Все още в Microsoft Visual Basic за приложения прозорец, кликнете Инструменти > Препратки за да отидете на Референции-Проект1 диалогов прозорец и проверете Microsoft Scripting Runtime опция от Налични препратки списъчно поле, вижте екранна снимка:

doc sig forwar отговор 2

4, И после щракнете върху OK за да затворите диалоговия прозорец, от сега нататък, когато отговорите на имейл, Signature1 ще бъде вмъкнат наведнъж, вижте екранната снимка:

doc sig forwar отговор 3