Kuinka valita eri allekirjoitukset eri vastaanottajille Outlook-sähköpostisi

Monet käyttäjät toivovat, että Outlook voi automaattisesti valita eri allekirjoitukset eri vastaanottajille sähköposteissa. Siten tämä artikkeli opettaa kuinka toteuttaa se VBA: n kautta.

Oletuksena Outlook sallii vain lisätä vaihtelevan allekirjoituksen automaattisesti uusiin sähköposteihin, vastauksiin ja edelleenlähetyksiin. Monet ihmiset kuitenkin toivovat jopa, että Outlook voi automaattisesti valita eri allekirjoitukset eri vastaanottajille. Valitettavasti Outlook ei tarjoa niin suoraa ominaisuutta. Siksi sinun on etsittävä muita tapoja, kuten minkä tahansa kolmannen osapuolen lisäosat tai VBA-koodi. Seuraavassa paljastamme sinulle osan VBA-koodista, mikä voi auttaa sinua ymmärtämään sen kuin tuulta.

Valitse automaattisesti eri allekirjoitukset eri vastaanottajille Outlook-sähköpostisi

Valitse automaattisesti eri allekirjoitukset eri vastaanottajille

  1. Kohteeseen starKäynnistä Outlook-ohjelma.
  2. Sitten sinun on parempi poistaa automaattisen lisäyksen allekirjoitusominaisuus käytöstä.Poista käytöstä automaattisen lisäyksen allekirjoitusominaisuus
  • Ensinnäkin, siirry "File" -valikkoon ja valitse "Options".
  • Vaihda Outlook-asetukset-ikkunassa Mail-välilehteen.
  • Etsi ja napsauta ”Allekirjoitukset” -painiketta.
  • Aseta seuraavaksi ponnahdusikkunassa ”(ei mitään)” sekä ”Uudet viestit” - ja “Vastaukset / välitykset” -kohtiin.
  • Sen jälkeen napsauta “OK” -sarjaa tallentaaksesi muutokset.
  1. Sen jälkeen voit palata Outlookin pääikkunaan ja painaa “Alt + F11” -näppäimiä.
  2. Etsi ja avaa seuraavaksi Microsoft Visual Basic for Applications -ikkunassa ThisOutlookSession-projekti.
  3. Kopioi ja liitä seuraava VBA-koodi tähän projektiin.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objRecipients As Outlook.Recipients
    Dim objRecipient As Outlook.recipient
    Dim strRecipientAddress As String
    Dim strSignatureFile As String
    Dim objFileSystem As Object
    Dim objTextStream As Object
    Dim strSignature As String
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       Set objRecipients = objMail.Recipients
    End If
 
    'Select different signature files based on recipients
    'You can change the conditions as per you actual needs
    If objRecipients.Count = 1 Then
       Set objRecipient = objRecipients.Item(1)
       strRecipientAddress = objRecipient.Address
       If strRecipientAddress = "mandy@datanumen.com" Then
          strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\Test John Smith.htm"
       ElseIf strRecipientAddress = "anne@datanumen.com" Or strRecipientAddress = "tony@datanumen.com" Then
          strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\Johnny.htm"
       ElseIf strRecipientAddress = "abby@datanumen.com" Then
          strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\New John Smith.htm"
       End If
    Else
       strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\John Smith.htm"
    End If
 
    'Read the specific signature file
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    Set objTextStream = objFileSystem.OpenTextFile(strSignatureFile)
    strSignature = objTextStream.ReadAll
 
    'Insert the signature to this email
    objMail.HTMLBody = objMail.HTMLBody & "<HTML><BODY><br>" & strSignature & "</br></HTML></BODY>"
End Sub

VBA-koodi - Valitse eri allekirjoitukset automaattisesti eri vastaanottajille

  1. Sen jälkeen sinun tulee allekirjoittaa tämä koodi.
  2. Muuta myöhemmin Outlook-makroasetuksia sallimaan allekirjoitetut makrot.
  3. Tästä lähtien joka kerta kun napsautat Lähetä-painiketta lähettääksesi sähköpostia, Outlook tunnistaa vastaanottajan ja lisää vastaavan allekirjoituksen sähköpostirungon loppuun.

Etsi saapuvien sähköpostien piilotettuja haitallisia makroja

Nykyään viruksista on tullut hyvin kypsiä ja voimakkaita. He peittävät heidät aina vaarattomiksi asioiksi sähköpostissa. Siksi nyt, kun aiot käyttää makroja Outlookissa, sinun on lisättävä valppautta haitallisia makroja vastaan. Muussa tapauksessa PST-tietosi pysyvät vaarassa. Jos PST vioittuu, yrität parhaasi mukaan palauttaa PST tiedot. Tässä tapauksessa on suositeltavaa käyttää voimakasta työkalua, kuten DataNumen Outlook Repair.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien sql-korjaus ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com

Kommenttien lisääminen on estetty.