Kako automatski odabrati različite potpise za različite primatelje u vašim Outlook e-porukama

Outlook rješenja 29. rujna 2025.
Podijeli sada:

Mnogi se korisnici nadaju da Outlook može automatski odabrati različite potpise za različite primatelje u e-porukama. Stoga će ovaj članak naučiti kako to realizirati putem VBA.

Prema zadanim postavkama, Outlook vam dopušta samo automatsko umetanje promjenjivog potpisa u nove e-poruke, odgovore i prosljeđivanja. Međutim, mnogi se ljudi čak nadaju da Outlook može automatski odabrati različite potpise za različite primatelje. Nažalost, Outlook ne nudi takvu izravnu značajku. Dakle, morate tražiti druge načine, kao što su dodaci treće strane ili VBA kod. Sada, u nastavku, otkrit ćemo vam dio VBA koda, koji vam može pomoći da ga realizirate kao povjetarac.

Automatski odaberite različite potpise za različite primatelje u vašim Outlook e-porukama

Automatski odabir različitih potpisa za različite primatelje

  1. Za početak, trebali biste pokrenuti svoj Outlook program.
  2. Onda je bolje da onemogućite značajku automatskog umetanja potpisa.Onemogućite značajku automatskog umetanja potpisa
  • Prvo idite na izbornik "Datoteka" i odaberite "Opcije".
  • U prozoru "Opcije programa Outlook" prijeđite na karticu "Pošta".
  • Zatim pronađite i kliknite gumb "Potpisi".
  • Zatim u skočnom dijaloškom okviru postavite "(ništa)" u "Nove poruke" i "Odgovori/Prosljeđivanje".
  • Nakon toga kliknite niz "OK" za spremanje promjena.
  1. Nakon toga se možete vratiti u glavni prozor programa Outlook i pritisnuti tipke “Alt + F11”.
  2. Zatim u prozoru "Microsoft Visual Basic za aplikacije" pronađite i otvorite projekt "ThisOutlookSession".
  3. Nakon toga kopirajte i zalijepite sljedeći VBA kod u ovaj 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 kod - Automatski odabir različitih potpisa za različite primatelje

  1. Nakon toga trebate potpisati ovaj kod.
  2. Kasnije promijenite postavke Outlook makronaredbi da biste omogućili potpisane makronaredbe.
  3. Od sada, svaki put kada kliknete gumb "Pošalji" za slanje e-pošte, Outlook će identificirati primatelja i automatski umetnuti odgovarajući potpis na kraju tijela e-pošte.

Pazite na skrivene zlonamjerne makronaredbe u dolaznim porukama e-pošte

U današnje vrijeme virusi su postali vrlo zreli i moćni. U e-pošti ih uvijek maskiraju kao bezazlene stvari. Stoga, sada kada namjeravate koristiti makronaredbe u programu Outlook, trebali biste pojačati oprez protiv zlonamjernih makronaredbi. U protivnom će vaši PST podaci biti izloženi riziku. Ako se PST pokvari, dat ćete sve od sebe oporaviti PST podaci. U ovom slučaju, predlaže se primjena snažnog alata, kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql popravak i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com

Podijeli sada:

Komentari su zatvoreni.