Hoe de handtekening automatisch te wijzigen op basis van ontvangers in Outlook?
Outlook heeft standaard een ingebouwde functie waarmee gebruikers automatisch de handtekening kunnen wijzigen tijdens het verzenden van e-mails via verschillende e-mailaccounts. Maar verder zal ik u hier de methode laten zien om de handtekening automatisch te wijzigen op basis van verschillende ontvangers in het veld Aan in Outlook.
Wijzig de handtekening op basis van ontvangers automatisch met VBA-code
Wijzig de handtekening op basis van ontvangers automatisch met VBA-code
Volg de onderstaande stappen om verschillende handtekeningen toe te passen op de corresponderende ontvangers tijdens het verzenden van e-mails in Outlook.
1. Ten eerste moet u de functie voor automatisch bijgevoegde ondertekening in Outlook uitschakelen. Klik alstublieft Dien in > Opties om de te openen Outlook Opties venster.
2. In de Outlook Opties venster, selecteer E-mailadres in het linkerdeelvenster en klik vervolgens op het handtekeningen knop in de Berichten opstellen sectie. Zie screenshot:
3. In de Handtekeningen en briefpapier dialoogvenster, ga naar het Kies standaardhandtekening sectie onder de Email handtekening Selecteer een e-mailaccount in het Email account vervolgkeuzelijst en kies vervolgens (Geen) van het Nieuwe berichten en Antwoorden / doorsturen vervolgkeuzelijsten. Herhaal deze stappen totdat alle e-mailaccounts zijn ingesteld op (Geen). Klik vervolgens op de OK knop.
Note: U kunt hierin ook uw benodigde handtekeningen maken Handtekeningen en briefpapier dialoog venster.
4. Klik op het OK knop wanneer het terug de Outlook Opties venster.
5. druk de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
6. In de Microsoft Visual Basic voor toepassingen venster, dubbelklik DezeOutlookSessie in het linkerdeelvenster om het codevenster te openen en de kopie onder VBA-code naar het venster. Zie screenshot:
VBA-code: automatisch de handtekening wijzigen op basis van ontvangers in Outlook
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by ExtendOffice 2022/08/01
Dim xMailItem As MailItem
Dim xRecipients As Recipients
Dim xRecipient As Recipient
Dim xRcpAddress As String
Dim xSignatureFile, xSignaturePath As String
Dim xFSO As Scripting.FileSystemObject
Dim xDoc As Document
Dim xFindStr As String
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
If Item.Class <> olMail Then Exit Sub
Set xMailItem = Item
Set xRecipients = xMailItem.Recipients
xSignaturePath = CreateObject("WScript.Shell").SpecialFolders(5) + "\Microsoft\Signatures\"
For Each xRecipient In xRecipients
If xRecipient.AddressEntry.AddressEntryUserType = olExchangeUserAddressEntry Then
xRcpAddress = xRecipient.AddressEntry.GetExchangeUser.PrimarySmtpAddress
Else
xRcpAddress = xRecipient.AddressEntry.Address
End If
Select Case xRcpAddress
Case "Email Address 1"
xSignatureFile = xSignaturePath & "aaa.htm"
Exit For
Case "Email Address 2", "Email Address 3"
xSignatureFile = xSignaturePath & "bbb.htm"
Exit For
Case "Email Address 4"
xSignatureFile = xSignaturePath & "ccc.htm"
Exit For
End Select
Next
VBA.DoEvents
Set xDoc = xMailItem.GetInspector.WordEditor
xFindStr = "From: " & xMailItem.Recipients.Item(1).Name & " <" & xRcpAddress & ">"
If VBA.InStr(1, xMailItem.Body, xFindStr) <> 0 Then
xDoc.Application.Selection.HomeKey Unit:=wdStory, Extend:=wdMove
With xDoc.Application.Selection.Find
.ClearFormatting
.Text = xFindStr
.Execute Forward:=True
End With
With xDoc.Application.Selection
.MoveLeft wdCharacter, 2
.InsertParagraphAfter
.MoveDown Unit:=wdLine, Count:=1
End With
Else
With xDoc.Application.Selection
.EndKey Unit:=wdStory, Extend:=wdMove
.InsertParagraphAfter
.MoveDown Unit:=wdLine, Count:=1
End With
End If
xDoc.Application.Selection.InsertFile FileName:=xSignatureFile, Link:=False, Attachment:=False
End Sub
Opmerkingen:
- 1). Vervang in de VBA-code de “E-mailadres 1/2/3/4”Met de bepaalde e-mailadressen van de ontvangers.
- 2). "aaa.htm''bbb.htm"En"ccc.htm" zijn de gespecificeerde handtekeningen die u naar de corresponderende ontvangers verzendt.
- 3). In dit geval handtekening ‘aaa"Wordt verzonden naar"E-mailadres 1", Handtekening"bbb"Wordt verzonden naar"E-mailadres 2"En"E-mailadres 3"en "E-mailadres 4"Ontvangt de e-mail ingesloten met handtekening"ccc”. Wijzig ze op basis van uw behoeften.
- 4). Als er meerdere ontvangers in een e-mail zijn, houdt de code alleen rekening met de eerste ontvanger. In dit geval ontvangen andere ontvangers de e-mails met dezelfde handtekening als de eerste ontvanger.
7. Dan klikken Tools > Referenties naar de Referenties-Project dialoog venster. Controleer in het dialoogvenster beide Microsoft Word-objectbibliotheek en Microsoft Scripting-runtime opties en klik vervolgens op OK knop, zie screenshot:
8. druk de anders + Q toetsen om de Microsoft Visual Basic voor toepassingen venster.
Vanaf nu, na het opstellen van een e-mail en het klikken op de knop Verzenden, wordt de bijbehorende handtekening automatisch ingevoegd aan het einde van de e-mailtekst op basis van het e-mailadres van de ontvanger in het veld Aan.
Voeg automatisch de huidige datum in als handtekening bij het verzenden van e-mail in Outlook:
Als u een tijdstempel als handtekening in de e-mailtekst wilt invoegen tijdens het maken / beantwoorden / doorsturen van nieuwe e-mail in uw Outlook, kunt u de Voeg een datumhandtekening toe bij het maken van nieuwe, beantwoord en stuur e-mail door optie van Kutools for Outlook om het te bereiken. Zie screenshot:
Download en probeer het nu (60 dagen gratis proefversie)
Beste Office-productiviteitstools
Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven
🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...
???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP) / Plan het verzenden van e-mails / Automatische CC/BCC volgens regels bij het verzenden van e-mail / Automatisch doorsturen (geavanceerde regels) / Begroeting automatisch toevoegen / Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...
📨 email management: Gemakkelijk e-mails herinneren / Blokkeer zwendel-e-mails van onderwerpen en anderen / Verwijder dubbele e-mails / Uitgebreid Zoeken / Consolideer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch losmaken / Batchcompressie / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
???? Interface-magie: 😊Meer mooie en coole emoji's / Verhoog uw Outlook-productiviteit met weergaven met tabbladen / Minimaliseer Outlook in plaats van te sluiten ...
???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen / Antiphishing-e-mails / 🕘Toon de tijdzone van de afzender ...
👩🏼🤝👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails / Splits een contactgroep in individuele groepen / Verwijder verjaardagsherinneringen ...
Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.