Conas sínithe éagsúla a shocrú le haghaidh freagraí agus ar aghaidh in Outlook?

De ghnáth, is féidir leat sínithe difriúla a shocrú do chuntais éagsúla i do Outlook, ach, rinne tú iarracht riamh sínithe difriúla a chur i bhfeidhm le haghaidh freagraí agus ar aghaidh. Ciallaíonn sé, nuair a thugann tú freagra ar r-phost, go gcuirtear an síniú1 isteach, nuair a chuireann tú r-phost ar aghaidh cuirtear an síniú2 i bhfeidhm. Conas a d’fhéadfá an tasc seo a réiteach in Outlook?

Socraigh sínithe éagsúla le haghaidh freagraí agus cuir ar aghaidh le cód VBA

Socraigh sínithe éagsúla le haghaidh freagraí agus cuir ar aghaidh le cód VBA

Is féidir leis an gcód VBA seo a leanas cabhrú leat sínithe éagsúla a shocrú le haghaidh freagraí agus seoltaí ar aghaidh, le do thoil déan leis na céimeanna seo a leanas ceann ar cheann:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Ansin, cliceáil Ionsáigh > Modúil, cóipeáil agus greamaigh an cód thíos sa mhodúl bán oscailte, féach an pictiúr:

Cód VBA: Socraigh sínithe éagsúla le haghaidh freagraí agus seolta ar aghaidh:

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

nótaí: Sa chód thuas, Síniú1 agus Síniú2 an dá ainm sínithe is mian leat a úsáid chun freagra a thabhairt agus a chur ar aghaidh. Athraigh na hainmneacha le do thoil.

doc sig forwar freagra 1

3. Fós sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil uirlisí > tagairtí dul go dtí an Tagairtí-Tionscadal1 bosca dialóige, agus seiceáil Microsoft Scripting Runtime rogha ón Tagairtí atá ar Fáil bosca liosta, féach an scáileán:

doc sig forwar freagra 2

4. Agus ansin cliceáil OK chun an dialóg a dhúnadh, as seo amach, nuair a fhreagraíonn tú ríomhphost, cuirfear Síniú1 isteach ag an am céanna, féach an scáileán scáileáin:

doc sig forwar freagra 3