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 en Handtekening 2 zijn de twee handtekeningnamen die u wilt gebruiken voor beantwoorden en doorsturen. Wijzig de namen naar uw behoefte.
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:
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:
En wanneer u een bericht doorstuurt, wordt Signature2 ingevoegd als volgt:
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.

