Slik velger du automatisk forskjellige signaturer for forskjellige mottakere i Outlook-e-postene dine

Mange brukere håper at Outlook automatisk kan velge de forskjellige signaturene for forskjellige mottakere i e-postene. Derfor vil denne artikkelen lære hvordan du kan realisere det via VBA.

Som standard lar Outlook deg bare automatisk sette inn den varierende signaturen i nye e-poster, svar og videresendinger. Imidlertid håper mange til og med at Outlook automatisk kan velge de forskjellige signaturene for forskjellige mottakere. Dessverre gir ikke Outlook en slik direkte funksjon. Derfor må du søke andre måter, for eksempel tredjeparts tillegg eller VBA-kode. Nå, i det følgende, vil vi avsløre et stykke VBA-kode for deg, som kan hjelpe deg å realisere det som en lek.

Velg automatisk forskjellige signaturer for forskjellige mottakere i Outlook-e-postene dine

Velg automatisk forskjellige signaturer for forskjellige mottakere

  1. Til å begynne med bør du starte Outlook-programmet ditt.
  2. Da bør du deaktivere funksjonen for automatisk innsetting av signatur.Deaktiver funksjonen for automatisk innsetting av signatur
  • Gå først til "Fil"-menyen og velg "Alternativer".
  • I "Outlook-alternativer"-vinduet bytter du til fanen "Mail".
  • Finn deretter og klikk på "Signaturer" -knappen.
  • Neste i popup-dialogboksen, sett "(ingen)" i både "Nye meldinger" og "Svar/videresendinger".
  • Etter det klikker du på en rekke "OK" for å lagre endringene.
  1. Etter det kan du gå tilbake til hovedvinduet i Outlook og trykke "Alt + F11" -tastene.
  2. Deretter, i "Microsoft Visual Basic for Applications"-vinduet, finn og åpne "ThisOutlookSession" -prosjektet.
  3. Deretter kopierer og limer du inn følgende VBA-kode i dette prosjektet.
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-kode - Velg automatisk forskjellige signaturer for forskjellige mottakere

  1. Etter det bør du signere denne koden.
  2. Endre senere Outlook-makroinnstillingene for å tillate signerte makroer.
  3. Fra nå av, hver gang du klikker på "Send"-knappen for å sende en e-post, vil Outlook identifisere mottakeren og automatisk sette inn den tilsvarende signaturen på slutten av e-postteksten.

Se opp for skjulte ondsinnede makroer i innkommende e-poster

I dag har virus blitt veldig modne og kraftige. De skjuler dem alltid som ufarlige ting i e-posten. Derfor, nå som du har tenkt å bruke makroer i Outlook, bør du øke årvåkenhet mot de ondsinnede makroene. Ellers vil PST-dataene dine bli holdt i fare. Hvis PST blir korrupt, vil du prøve ditt beste gjenopprette PST data. I dette tilfellet foreslås det å bruke et kraftig verktøy, for eksempel DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert sql fikse og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med

Kommentarer er stengt.