Hur ställer jag in olika signaturer för svar och vidarebefordran i Outlook?

Författare: Xiaoyang Senast ändrad: 2024-08-21

Normalt kan du ställa in olika signaturer för olika konton i Outlook, men har någonsin försökt att tillämpa olika signaturer för svar och vidarebefordran. Det betyder att när du svarar ett e-postmeddelande infogas signaturen1, när du vidarebefordrar ett e-postmeddelande tillämpas signaturen2. Hur kunde du lösa den här uppgiften i Outlook?

Ställ in olika signaturer för svar och vidarebefordran med VBA-kod

Ställ in olika signaturer för svar och vidarebefordran med VBA-kod

Följande VBA-kod kan hjälpa dig att ställa in olika signaturer för svar och vidarebefordran, gör nedanstående steg en efter en:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka sedan Insert > Modulerna, kopiera och klistra in koden nedan i den öppnade tomma modulen, se skärmdump:

VBA-kod: Ställ in olika signaturer för svar och vidarebefordran:

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

Anmärkningar: I ovanstående kod, Underskrift1 och Underskrift2 är de två signaturnamnen som du vill använda för att svara och vidarebefordra. Ändra namnen efter dina behov.

3. Fortfarande i Microsoft Visual Basic för applikationer fönstret klickar verktyg > Referensprojekt för att gå till Referenser-projekt1 dialogrutan och kontrollera Microsoft Scripting Runtime alternativ från Tillgängliga referenser listruta, se skärmdump:

4. Och klicka sedan på OK för att stänga dialogen, från och med nu, när du svarar ett e-postmeddelande, kommer Signature1 att införas på en gång, se skärmdump: