Jak nastavit různé podpisy pro odpovědi a předávání v aplikaci Outlook?

Autor: Xiaoyang Naposledy změněno: 2018-08-20

Normálně můžete ve svém Outlooku nastavit různé podpisy pro různé účty, ale někdy jste se pokusili použít různé podpisy pro odpovědi a přeposílání. To znamená, že když odpovíte na e-mail, vloží se podpis1, při přeposlání e-mailu se použije podpis2. Jak byste mohli tento úkol vyřešit v Outlooku?

Nastavte různé podpisy pro odpovědi a přeposílání pomocí kódu VBA

Nastavte různé podpisy pro odpovědi a přeposílání pomocí kódu VBA

Následující kód VBA vám pomůže nastavit různé podpisy pro odpovědi a přeposílání, proveďte prosím následující kroky jeden po druhém:

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. Potom klepněte na tlačítko Vložit > Modul, zkopírujte a vložte pod kód do otevřeného prázdného modulu, viz screenshot:

Kód VBA: Nastavte různé podpisy pro odpovědi a předávání:

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

Poznámka: Ve výše uvedeném kódu, Podpis1 a Podpis2 jsou dva názvy podpisů, které chcete použít pro odpovídání a přeposílání. Změňte prosím jména podle svých potřeb.

doc sig forwar odpověď 1

3. Stále v Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Tools > Reference přejděte na Reference-Project1 dialogové okno a zkontrolujte Microsoft Scripting Runtime možnost z nabídky Dostupné reference seznam, viz screenshot:

doc sig forwar odpověď 2