Kuidas automaatselt valida Outlooki meilides erinevatele adressaatidele erinevaid allkirju

Outlooki lahendused September 29, 2025

Paljud kasutajad loodavad, et Outlook saab meilides automaatselt valida erinevatele adressaatidele erinevad allkirjad. Seega õpetab see artikkel, kuidas seda VBA kaudu realiseerida.

Vaikimisi võimaldab Outlook uutesse meilidesse, vastustesse ja edasisaatmistesse erinevat allkirja automaatselt sisestada. Paljud inimesed loodavad aga isegi, et Outlook suudab erinevatele adressaatidele erinevaid allkirju automaatselt valida. Kahjuks Outlook sellist otsest funktsiooni ei paku. Seega peate otsima muid võimalusi, näiteks mis tahes kolmanda osapoole lisandmooduleid või VBA-koodi. Järgnevalt tutvustame teile VBA-koodi, mis aitab teil seda imelihtsalt realiseerida.

Valige oma Outlooki meilides automaatselt erinevatele adressaatidele erinevad allkirjad

Erinevate adressaatide jaoks erinevate allkirjade automaatne valimine

  1. Alustuseks peaksite käivitama oma Outlooki programmi.
  2. Seejärel keelake allkirja automaatse lisamise funktsioon.Keelake allkirja automaatse lisamise funktsioon
  • Esiteks minge menüüsse "Fail" ja valige "Valikud".
  • Lülitage aknas "Outlooki suvandid" vahekaardile "Mail".
  • Seejärel leidke ja klõpsake nuppu "Allkirjad".
  • Järgmisena määrake hüpikakna dialoogiboksis "(puudub)" nii väljale "Uued sõnumid" kui ka "Vastused/edasi".
  • Pärast seda klõpsake muudatuste salvestamiseks rida "OK".
  1. Pärast seda saate naasta Outlooki põhiaknasse ja vajutada klahve Alt + F11.
  2. Järgmisena leidke ja avage aknas "Microsoft Visual Basic for Applications" projekt "ThisOutlookSession".
  3. Seejärel kopeerige ja kleepige sellesse projekti järgmine VBA kood.
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 kood – erinevatele adressaatidele erinevate allkirjade automaatne valimine

  1. Pärast seda peaksite sellele koodile alla kirjutama.
  2. Hiljem muutke oma Outlooki makro sätteid, et lubada allkirjastatud makrod.
  3. Edaspidi tuvastab Outlook iga kord, kui klõpsate meili saatmiseks nuppu "Saada", adressaadi ja lisab vastava allkirja automaatselt e-kirja lõppu.

Vaadake sissetulevates meilides peidetud pahatahtlikke makrosid

Tänapäeval on viirused muutunud väga küpseks ja võimsaks. Nad maskeerivad neid meilis alati kahjututeks asjadeks. Seetõttu peaksite nüüd, kui kavatsete Outlookis makrosid kasutada, suurendama oma valvsust pahatahtlike makrode vastu. Vastasel juhul on teie PST-andmed ohus. Kui PST saab rikutud, annate endast parima taastada PST andmeid. Sel juhul on soovitatav kasutada tugevat tööriista, näiteks DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas sql parandus ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.