Hoe stel ik verschillende handtekeningen in voor antwoorden en doorsturen in Outlook?

Normaal gesproken kunt u verschillende handtekeningen instellen voor verschillende accounts in uw Outlook, maar u heeft ooit geprobeerd verschillende handtekeningen toe te passen voor antwoorden en doorsturen. Dit betekent dat wanneer u een e-mail beantwoordt, de handtekening1 wordt ingevoegd, wanneer u een e-mail doorstuurt, de handtekening2 wordt toegepast. Hoe zou u deze taak in Outlook kunnen oplossen?

Stel verschillende handtekeningen in voor antwoorden en doorsturen met VBA-code

Stel verschillende handtekeningen in voor antwoorden en doorsturen met VBA-code

De volgende VBA-code kan u helpen om verschillende handtekeningen in te stellen voor antwoorden en doorsturen, voer de onderstaande stappen een voor een uit:

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Dan klikken Invoegen > Module, kopieer en plak onderstaande code in de geopende lege module, zie screenshot:

VBA-code: stel verschillende handtekeningen in voor antwoorden en doorsturen:

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

Note: In de bovenstaande code, Handtekening 1 en Handtekening 2 zijn de twee handtekeningnamen die u wilt gebruiken voor beantwoorden en doorsturen. Wijzig de namen naar uw behoefte.

doc sig doorstuurantwoord 1

3. Nog steeds in de Microsoft Visual Basic voor toepassingen venster klikt Tools > Referenties naar de Referenties-Project1 dialoogvenster en vink aan Microsoft Scripting-runtime optie van de Beschikbare referenties keuzelijst, zie screenshot:

doc sig doorstuurantwoord 2

4. En klik vervolgens op OK om het dialoogvenster vanaf nu te sluiten wanneer u een e-mail beantwoordt, wordt Signature1 in één keer ingevoegd, zie screenshot:

doc sig doorstuurantwoord 3