Hur ändrar jag signatur automatiskt baserat på mottagare i Outlook?
Som standard har Outlook en inbyggd funktion för användare att automatiskt ändra signatur medan de skickar e-post via olika e-postkonton. Men utöver det här kommer jag att visa dig metod för att automatiskt ändra signatur baserat på olika mottagare i fältet Till i Outlook.
Ändra signatur baserat på mottagare automatiskt med VBA-kod
Ändra signatur baserat på mottagare automatiskt med VBA-kod
Följ stegen nedan för att tillämpa olika signaturer på motsvarande mottagare när du skickar e-post i Outlook.
1. För det första måste du inaktivera funktionen för automatisk bifogad signatur i Outlook. var god klicka Fil > Tillbehör att öppna Outlook-Val fönster.
2. I Outlook-Val fönster, välj Post i den vänstra rutan och klicka sedan på signaturer knapp i Skriv meddelanden sektion. Se skärmdump:
3. I Signaturer och brevpapper dialogrutan, gå till Välj standardsignatur avsnitt under Epostsignatur välj ett e-postkonto i Email konto rullgardinsmenyn och välj sedan (Ingen) från Nya meddelanden och Svar / framåt listrutor. Upprepa dessa steg tills alla e-postkonton är inställda på (Ingen). Klicka sedan på OK knapp.
Anmärkningar: Du kan också skapa dina nödvändiga signaturer i detta Signaturer och brevpapper dialog ruta.
4. Klicka på OK när den returnerar Outlook-Val fönster.
5. tryck på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
6. I Microsoft Visual Basic för applikationer dubbelklicka ThisOutlookSession i den vänstra rutan för att öppna kodfönstret och kopian nedanför VBA-koden i fönstret. Se skärmdump:
VBA-kod: Ändra signatur automatiskt baserat på mottagare 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
Anmärkningar:
- 1). Byt ut VBA-kodenE-postadress 1/2/3/4”Med mottagarnas vissa e-postadresser.
- 2). "aaa.htm""bbb.htm"Och"ccc.htm" är de angivna signaturerna du kommer att skicka till motsvarande mottagare.
- 3). I detta fall, signatur “aaa”Kommer att skickas till“E-postadress 1”, Signatur“bbb”Kommer att skickas till“E-postadress 2"Och"E-postadress 3", och "E-postadress 4”Får e-postmeddelandet inbäddat med signatur”ccc”. Ändra dem baserat på dina behov.
- 4). Om det finns flera mottagare i ett e-postmeddelande, tar koden endast hänsyn till den första mottagaren. I det här fallet kommer andra mottagare att få e-postmeddelanden med samma signatur som den första mottagaren.
7. Klicka sedan verktyg > Referensprojekt för att gå till Referenser-projekt dialog ruta. Kontrollera båda i dialogrutan Microsoft Word -objektbibliotek och Microsoft Scripting Runtime och klicka sedan på OK knapp, se skärmdump:
8. tryck på andra + Q för att stänga Microsoft Visual Basic för applikationer fönster.
Från och med nu, efter att du har skrivit ett e-postmeddelande och tryckt på knappen Skicka, kommer motsvarande signatur automatiskt att infogas i slutet av e-postadressen baserat på mottagarens e-postadress i fältet Till.
Infoga automatiskt aktuellt datum som signatur när du skickar e-post i Outlook:
Om du vill infoga tidsstämpel som signatur i e-postkroppen medan du skapar / svarar / vidarebefordrar nytt e-postmeddelande i Outlook kan du aktivera Lägg till datumunderskrift när du skapar nytt, svarar och vidarebefordrar e-post möjlighet till Kutools för Outlook för att uppnå det. Se skärmdump:
Ladda ner och prova det nu (60-dagars gratis spår)
Bästa kontorsproduktivitetsverktyg
Kutools för Outlook - Över 100 kraftfulla funktioner för att överladda din Outlook
🤖 AI Mail Assistant: Instant proffs-e-postmeddelanden med AI-magi – ett klick för geniala svar, perfekt ton, flerspråkig behärskning. Förvandla e-post utan ansträngning! ...
📧 Email Automation: Frånvaro (tillgänglig för POP och IMAP) / Schemalägg Skicka e-post / Auto CC/BCC enligt regler när du skickar e-post / Automatisk vidarebefordran (avancerade regler) / Lägg automatiskt till hälsning / Dela automatiskt e-postmeddelanden med flera mottagare i individuella meddelanden ...
📨 Email Management: Hämta enkelt e-postmeddelanden / Blockera bluff-e-postmeddelanden av ämnen och andra / Ta bort duplicerade e-postmeddelanden / Avancerad Sökning / Konsolidera mappar ...
📁 Bilagor Pro: Batch Spara / Batch lossa / Batchkomprimera / Automatisk sparning / Auto Lossa / Automatisk komprimering ...
🌟 Gränssnittsmagi: 😊 Fler vackra och coola emojis / Öka din Outlook-produktivitet med flikar / Minimera Outlook istället för att stänga ...
👍 Underverk med ett klick: Svara alla med inkommande bilagor / E-postmeddelanden mot nätfiske / 🕘Visa avsändarens tidszon ...
👩🏼🤝👩🏻 Kontakter och kalender: Lägg till kontakter i grupp från valda e-postmeddelanden / Dela upp en kontaktgrupp till individuella grupper / Ta bort påminnelser om födelsedag ...
Över 100 funktioner Vänta på din utforskning! Klicka här för att upptäcka mer.