Hvordan ændres automatisk signatur baseret på modtagere i Outlook?
Som standard har Outlook en indbygget funktion, som brugerne automatisk kan ændre signatur, mens de sender e-mails via forskellige e-mail-konti. Men ud over det vil jeg her vise dig metode til automatisk ændring af signatur baseret på forskellige modtagere i feltet Til i Outlook.
Skift signatur baseret på modtagere automatisk med VBA-kode
Skift signatur baseret på modtagere automatisk med VBA-kode
Følg nedenstående trin for at anvende forskellige signaturer på tilsvarende modtagere, mens du sender e-mails i Outlook.
1. For det første skal du deaktivere den automatisk vedhæftede signaturfunktion i Outlook. Klik venligst File (Felt) > Indstillinger at åbne Outlook Options vindue.
2. i Outlook Options vindue, vælg Post i venstre rude, og klik derefter på Underskrifter knappen i Skriv meddelelser afsnit. Se skærmbillede:
3. i Underskrifter og papirvarer dialogboksen, gå til Vælg standardsignatur afsnit under E-mail underskrift fanen skal du vælge en e-mail-konto i Email konto rullelisten, og vælg derefter (Ingen) fra Nye beskeder , Svar / videresend rullelister. Gentag disse trin, indtil alle e-mail-konti er indstillet til (Ingen). Klik derefter på OK .
Bemærk: Du kan også oprette dine nødvendige underskrifter i dette Underskrifter og papirvarer dialog boks.
4. Klik på OK knappen, når den returnerer Outlook Options vindue.
5. Tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
6. i Microsoft Visual Basic til applikationer dobbeltklik på vinduet Denne OutlookSession i venstre rude for at åbne kodevinduet og kopien under VBA-koden ind i vinduet. Se skærmbillede:
VBA-kode: Skift automatisk signatur baseret på modtagere i 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
Noter:
- 1). I VBA-koden skal du udskifte “E-mail-adresse 1/2/3/4”Med modtagerens bestemte e-mail-adresser.
- 2). "aaa.htm""bbb.htm"Og"ccc.htm" er de angivne signaturer, du vil sende til de tilsvarende modtagere.
- 3). I dette tilfælde underskrift “aaa”Vil blive sendt til“E-mail-adresse 1", Underskrift "bbb”Vil blive sendt til“E-mail-adresse 2"Og"E-mail-adresse 3", og "E-mail-adresse 4”Modtager e-mailen indlejret med signatur“ccc”. Skift dem ud fra dine behov.
- 4). Hvis der er flere modtagere i en e-mail, tager koden kun den første modtager i betragtning. I dette tilfælde vil andre modtagere modtage e-mails med samme signatur som den første modtager.
7. Klik derefter på Værktøjer > Referencer at gå til Referencer-projekt dialog boks. Kontroller begge i dialogboksen Microsoft Word-objektbibliotek og Microsoft Scripting Runtime indstillinger, og klik derefter på OK knap, se skærmbillede:
8. Tryk på andre + Q taster for at lukke Microsoft Visual Basic til applikationer vindue.
Fra nu af, efter at have skrevet en e-mail og trykket på Send-knappen, indsættes den tilsvarende signatur automatisk i slutningen af e-mail-kroppen baseret på modtagerens e-mail-adresse i feltet Til.
Indsæt automatisk den aktuelle dato som underskrift, når du sender e-mail i Outlook:
Hvis du vil indsætte tidsstempel som signatur i e-mail-kroppen, mens du opretter / besvarer / videresender ny e-mail i din Outlook, kan du aktivere Tilføj datosignatur, når du opretter en ny, svar og videresend e-mail mulighed for Kutools til Outlook at opnå det. Se skærmbillede:
Download og prøv det nu (60-dages gratis trail)
Bedste kontorproduktivitetsværktøjer
Kutools til Outlook - Over 100 kraftfulde funktioner til at superlade din Outlook
🤖 AI Mail Assistant: Øjeblikkelige pro-e-mails med AI-magi – et klik for geniale svar, perfekt tone, flersproget beherskelse. Forvandl e-mailing ubesværet! ...
📧 Email Automation: Ikke til stede (tilgængelig til POP og IMAP) / Planlæg Send e-mails / Auto CC/BCC efter regler ved afsendelse af e-mail / Automatisk videresendelse (avancerede regler) / Tilføj automatisk hilsen / Opdel automatisk e-mails med flere modtagere i individuelle meddelelser ...
📨 Email Management: Genkald nemt e-mails / Bloker svindel-e-mails af emner og andre / Slet duplikerede e-mails / Avanceret søgning / Konsolider mapper ...
📁 Vedhæftede filer Pro: Batch Gem / Batch adskilles / Batch komprimere / Automatisk gem / Automatisk afmontering / Automatisk komprimering ...
🌟 Interface Magic: 😊 Flere smukke og seje emojis / Boost din Outlook-produktivitet med fanebaserede visninger / Minimer Outlook i stedet for at lukke ...
👍 Wonders med et enkelt klik: Besvar alle med indgående vedhæftede filer / Anti-phishing e-mails / 🕘Vis afsenderens tidszone ...
👩🏼🤝👩🏻 Kontakter og kalender: Batch Tilføj kontakter fra udvalgte e-mails / Opdel en kontaktgruppe til individuelle grupper / Fjern fødselsdagspåmindelser ...
Over 100 Features Afvent din udforskning! Klik her for at finde mere.
