Kuinka muuttaa allekirjoitusta automaattisesti vastaanottajien perusteella Outlookissa?

Oletusarvoisesti Outlookissa on sisäänrakennettu toiminto, jonka avulla käyttäjät voivat automaattisesti vaihtaa allekirjoitusta lähettäessään sähköposteja eri sähköpostitilien kautta. Mutta sen lisäksi, tässä näytän sinulle tavan muuttaa allekirjoitusta automaattisesti eri vastaanottajien perusteella Outlookin Vastaanottaja-kentässä.

Muuta allekirjoitusta vastaanottajien perusteella automaattisesti VBA-koodilla

Muuta allekirjoitusta vastaanottajien perusteella automaattisesti VBA-koodilla

Noudata alla olevia ohjeita käyttääksesi erilaisia ​​allekirjoituksia vastaaville vastaanottajille, kun lähetät sähköpostiviestejä Outlookissa.

1. Ensinnäkin sinun on poistettava automaattisesti liitetty allekirjoitusominaisuus Outlookista. Klikkaa filee > Vaihtoehdot avaa Outlook-asetukset ikkunassa.

2. Vuonna Outlook-asetukset ikkunassa, valitse posti vasemmassa ruudussa ja napsauta sitten allekirjoitukset -painiketta Kirjoita viestit osio. Katso kuvakaappaus:

3. Vuonna Allekirjoitukset ja paperitavarat valintaikkunassa, siirry kohtaan Valitse oletusallekirjoitus osiossa Sähköpostin allekirjoitus -välilehti, valitse sähköpostitili Sähköpostitili avattavasta luettelosta ja valitse sitten (Ei mitään) mistä Uusia viestejä ja Vastaukset/edelleen avattavat luettelot. Toista näitä vaiheita, kunnes kaikki sähköpostitilit on määritetty (Ei mitään). Napsauta sitten OK painiketta.

Huomautuksia: Voit myös luoda tarvittavat allekirjoitukset tähän Allekirjoitukset ja paperitavarat valintaikkuna.

4. Napsauta OK -painiketta, kun se palauttaa Outlook-asetukset ikkunassa.

5. paina muut + F11 avaimet avaamaan Microsoft Visual Basic for Applications ikkunassa.

6. Vuonna Microsoft Visual Basic for Applications ikkuna, kaksoisnapsauta ThisOutlookSession vasemmassa ruudussa Koodi-ikkunan avaamiseksi ja kopioi alla oleva VBA-koodi ikkunaan. Katso kuvakaappaus:

VBA-koodi: Muuta allekirjoitusta automaattisesti vastaanottajien perusteella Outlookissa

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

Huomautuksia:

• 1). Korvaa VBA-koodissa "Sähköpostiosoite 1/2/3/4" vastaanottajien tietyillä sähköpostiosoitteilla.
• 2). "aaa.htm""bbb.htm"Ja"ccc.htm" ovat määritetyt allekirjoitukset, jotka lähetät vastaaville vastaanottajille.
• 3). Tässä tapauksessa allekirjoitus"aaa"lähetetään"Sähköpostiosoite 1 XNUMX", allekirjoitus"BBB"lähetetään"Sähköpostiosoite 2 XNUMX"Ja"Sähköpostiosoite 3 XNUMX", Ja "Sähköpostiosoite 4 XNUMX"saavat sähköpostin, jossa on allekirjoitus"cccMuuta niitä tarpeidesi mukaan.
• 4). Jos sähköpostissa on useita vastaanottajia, koodi ottaa huomioon vain ensimmäisen vastaanottajan. Tässä tapauksessa muut vastaanottajat saavat sähköpostit samalla allekirjoituksella kuin ensimmäinen vastaanottaja.

7. Napsauta sitten Työkalut > Viitteet mennä Referenssit-projekti valintaikkuna. Tarkista valintaikkunassa molemmat Microsoft Word -objektikirjasto ja Microsoft Scripting Runtime vaihtoehdot ja napsauta sitten OK painiketta, katso kuvakaappaus:

8. paina muut + Q avaimet sulkeaksesi Microsoft Visual Basic for Applications ikkunassa.

Tästä lähtien sähköpostin kirjoittamisen ja Lähetä-painikkeen painamisen jälkeen vastaava allekirjoitus lisätään automaattisesti sähköpostin rungon loppuun vastaanottajan Vastaanottaja-kentässä olevan sähköpostiosoitteen perusteella.

---

Parhaat toimiston tuottavuustyökalut

Breaking News: Kutools for Outlook julkaisee ilmaisen version!

Koe täysin uusi Kutools for Outlook ILMAINEN versio, jossa on yli 70 uskomatonta ominaisuutta, sinun käytössäsi IKUISESTI! Lataa nyt napsauttamalla!

🤖 Kutools AI : Käyttää edistynyttä tekoälytekniikkaa sähköpostien vaivattoman käsittelyyn, mukaan lukien sähköpostien vastaaminen, yhteenveto, optimointi, laajentaminen, kääntäminen ja kirjoittaminen.

📧 Sähköpostiautomaatio: Automaattinen vastaus (saatavilla POP:lle ja IMAP:lle)  /  Ajoita sähköpostien lähettäminen  /  Automaattinen CC/BCC sääntöjen mukaan lähetettäessä sähköpostia  /  Automaattinen edelleenlähetys (lisäsäännöt)   /  Automaattinen tervehdys   /  Jaa usean vastaanottajan sähköpostit automaattisesti yksittäisiksi viesteiksi ...

📨 Sähköposti Management: Muista sähköpostit  /  Estä huijaussähköpostit aiheiden ja muiden taholta  /  Poista päällekkäiset sähköpostit  /  Tarkennettu Haku  /  Yhdistä kansiot ...

📁 Liitteet Pro: Erätallennus  /  Erä Irrota  /  Eräpakkaus  /  Automaattinen tallennus   /  Automaattinen irrotus  /  Automaattinen pakkaus ...

🌟 Interface Magic: 😊Lisää kauniita ja siistejä emojia   /  Muistuttaa sinua tärkeistä sähköpostiviesteistä  /  Minimoi Outlook sulkemisen sijaan ...

???? Yhden napsautuksen Wonders: Vastaa kaikkiin liitteillä  /   Tietojenkalastelun vastaiset sähköpostit  /  🕘Näytä lähettäjän aikavyöhyke ...

👩🏼‍🤝‍👩🏻 Yhteystiedot ja kalenteri: Erä Lisää yhteystietoja valituista sähköpostiviesteistä  /  Jaa yhteysryhmä yksittäisiin ryhmiin  /  Poista syntymäpäivämuistutukset ...

Avaa Kutools for Outlook välittömästi yhdellä napsautuksella. Älä odota, lataa nyt ja lisää tehokkuuttasi!

Ominaisuusluettelo Kutooleista Outlookille      Lataa ilmainen versio      Päivitä Professionaliin