Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

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

Opmerking:: In de bovenstaande code, Handtekening 1 als 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 Toolbox > 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

En wanneer u een bericht doorstuurt, wordt Signature2 ingevoegd als volgt:

doc sig doorstuurantwoord 4


Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
  • Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
  • Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.
shot kutools outlook kutools tabblad 1180x121
shot kutools vooruitzichten kutools plus tabblad 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.