Kako nastaviti različne podpise za odgovore in naprej v Outlooku?

Običajno lahko v Outlooku nastavite različne podpise za različne račune, vendar ste kdaj poskusili uporabiti različne podpise za odgovore in naprej. To pomeni, da ko odgovorite na e-poštno sporočilo, se vstavi podpis1, ko posredujete e-poštno sporočilo, pa se podpis2 uporabi. Kako ste lahko to nalogo rešili v Outlooku?

Nastavite različne podpise za odgovore in naprej s kodo VBA

Nastavite različne podpise za odgovore in naprej s kodo VBA

Naslednja koda VBA vam lahko pomaga določiti različne podpise za odgovore in posredovanje. Prosimo, sledite spodnjim korakom enega za drugim:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Nato kliknite Vstavi > Moduli, kopirajte in prilepite spodnjo kodo v odprti prazen modul, glejte posnetek zaslona:

Koda VBA: nastavite različne podpise za odgovore in naprej:

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

Opombe: V zgornji kodi, Podpis1 in Podpis2 sta dve podpisni imeni, ki ju želite uporabiti za odgovor in posredovanje. Prosimo, spremenite imena glede na vaše potrebe.

doc sig forwar odgovor 1

3. Še vedno v Microsoft Visual Basic za aplikacije okno, kliknite Orodja > Reference Pojdite na Reference-Projekt1 pogovorno okno in preverite Izvajanje Microsoftovih skriptov možnost iz Razpoložljive reference seznam, glej posnetek zaslona:

doc sig forwar odgovor 2

4. In nato kliknite OK če želite zapreti pogovorno okno, bo od zdaj naprej, ko boste odgovorili na e-poštno sporočilo, takoj vstavljen Signature1, glejte posnetek zaslona:

doc sig forwar odgovor 3