Sådan vælges forskellige signaturer automatisk til forskellige modtagere i dine Outlook-e-mails

Mange brugere håber, at Outlook automatisk kan vælge de forskellige underskrifter for forskellige modtagere i e-mails. Således lærer denne artikel, hvordan man realiserer det via VBA.

Som standard giver Outlook dig kun mulighed for automatisk at indsætte den forskellige signatur i nye e-mails, svar og videresend. Men mange mennesker håber endda, at Outlook automatisk kan vælge de forskellige underskrifter for forskellige modtagere. Desværre leverer Outlook ikke sådan en direkte funktion. Således er du nødt til at søge andre måder, såsom eventuelle tredjeparts tilføjelsesprogrammer eller VBA-kode. Nu i det følgende vil vi afsløre et stykke VBA-kode til dig, som kan hjælpe dig med at indse det som en leg.

Vælg automatisk forskellige signaturer til forskellige modtagere i dine Outlook-e-mails

Vælg automatisk forskellige signaturer til forskellige modtagere

  1. Til at begynde med skal du starte dit Outlook-program.
  2. Derefter havde du bedre deaktiveret funktionen til automatisk indsættelse af signatur.Deaktiver funktionen til automatisk indsættelse af signatur
  • For det første skal du gå til menuen "File" og vælge "Options".
  • I vinduet "Outlook-indstillinger" skal du skifte til "Mail" -fanen.
  • Find og klik derefter på knappen "Signaturer".
  • Dernæst i popup-dialogboksen skal du indstille “(ingen)” i både “Nye meddelelser” og “Svar / videresend”.
  • Klik derefter på en række “OK” for at gemme ændringerne.
  1. Derefter kan du vende tilbage til Outlook-hovedvinduet og trykke på "Alt + F11" -tasterne.
  2. Find derefter og åbn projektet "ThisOutlookSession" i vinduet "Microsoft Visual Basic til applikationer".
  3. Kopier og indsæt derefter følgende VBA-kode i dette projekt.
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 - Vælg automatisk forskellige signaturer til forskellige modtagere

  1. Derefter skal du underskrive denne kode.
  2. Senere ændre dine Outlook-makroindstillinger for at tillade signerede makroer.
  3. Fra nu af, hver gang du klikker på knappen "Send" for at sende en e-mail, identificerer Outlook modtageren og indsætter automatisk den tilsvarende signatur i slutningen af ​​e-mail-kroppen.

Hold øje med skjulte ondsindede makroer i indgående e-mails

I dag er vira blevet meget modne og magtfulde. De forklæder dem altid som uskadelige ting i e-mailen. Derfor, nu hvor du har til hensigt at bruge makroer i Outlook, bør du øge din årvågenhed over for de ondsindede makroer. Ellers holdes dine PST-data i fare. Hvis PST bliver korrupt, prøver du dit bedste for at gendanne PST data. I dette tilfælde foreslås det at anvende et kraftigt værktøj, såsom DataNumen Outlook Repair.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder sql rettelse og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com

Kommentarer er lukket.