Si të zgjidhni automatikisht nënshkrime të ndryshme për marrës të ndryshëm në emailet tuaja të Outlook

Zgjidhjet e Outlook Shtator 29, 2025

Shumë përdorues shpresojnë se Outlook mund të zgjedhë automatikisht nënshkrimet e ndryshme për marrës të ndryshëm në email. Kështu, ky artikull do të mësojë se si ta realizoni atë përmes VBA.

Si parazgjedhje, Outlook ju lejon vetëm të futni automatikisht nënshkrimin e ndryshëm në emailet e reja, përgjigjet dhe përcjelljet. Megjithatë, shumë njerëz madje shpresojnë se Outlook mund të zgjedhë automatikisht nënshkrimet e ndryshme për marrës të ndryshëm. Fatkeqësisht, Outlook nuk ofron një veçori të tillë të drejtpërdrejtë. Kështu, ju duhet të kërkoni mënyra të tjera, të tilla si çdo shtesë e palës së tretë ose kod VBA. Tani, në vijim, ne do t'ju zbulojmë një pjesë të kodit VBA, i cili mund t'ju ndihmojë ta kuptoni atë si një fllad.

Zgjidhni automatikisht nënshkrime të ndryshme për marrës të ndryshëm në emailet tuaja të Outlook

Zgjidhni automatikisht nënshkrime të ndryshme për marrës të ndryshëm

  1. Për të filluar, duhet të hapni programin tuaj Outlook.
  2. Atëherë do të ishte më mirë të çaktivizoni funksionin e nënshkrimit të futjes automatike.Çaktivizo veçorinë e nënshkrimit të futjes automatike
  • Së pari, shkoni te menyja "File" dhe zgjidhni "Opsionet".
  • Në dritaren "Opsionet e Outlook", kaloni në skedën "Mail".
  • Më pas gjeni dhe klikoni në butonin "Nënshkrime".
  • Më pas në kutinë e dialogut që shfaqet, vendosni "(asnjë)" në "Mesazhet e reja" dhe "Përgjigjet/Përpara".
  • Pas kësaj, klikoni një seri "OK" për të ruajtur ndryshimet.
  1. Pas kësaj, mund të ktheheni në dritaren kryesore të Outlook dhe të shtypni butonat "Alt + F11".
  2. Më pas, në dritaren "Microsoft Visual Basic për Aplikacione", gjeni dhe hapni projektin "ThisOutlookSession".
  3. Më pas, kopjoni dhe ngjisni kodin e mëposhtëm VBA në këtë 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

Kodi VBA - Zgjidhni automatikisht nënshkrime të ndryshme për marrës të ndryshëm

  1. Pas kësaj, ju duhet të nënshkruani këtë kod.
  2. Më vonë ndryshoni cilësimet e makrove të Outlook për të lejuar makro të nënshkruara.
  3. Që tani e tutje, sa herë që klikoni butonin "Dërgo" për të dërguar një email, Outlook do të identifikojë marrësin dhe do të fusë automatikisht nënshkrimin përkatës në fund të trupit të emailit.

Kujdesuni për makro të fshehura me qëllim të keq në emailet hyrëse

Në ditët e sotme viruset janë bërë shumë të pjekur dhe të fuqishëm. Ata gjithmonë i maskojnë ato si gjëra të padëmshme në email. Prandaj, tani që keni ndërmend të përdorni makro në Outlook, duhet të rrisni vigjilencën tuaj kundër makrotave me qëllim të keq. Përndryshe, të dhënat tuaja PST do të mbahen në rrezik. Nëse PST korruptohet, do të përpiqeni më të mirën rikuperoni PST të dhëna. Në këtë rast, sugjerohet aplikimi i një mjeti të fuqishëm, si p.sh DataNumen Outlook Repair.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë rregullim sql dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com

Komentet janë të mbyllura.