Si të zhvendosni automatikisht të gjithë marrësit përveç dërguesit origjinal në fushën "CC" kur përdorni "Përgjigju të gjithëve" në Outlook

Disa përdorues lëvizin gjithmonë të gjithë marrësit përveç dërguesit origjinal në fushën "CC" kur përdorin "Përgjigju të gjithëve" në Outlook. Ky artikull do të prezantojë një metodë për të automatizuar lëvizjen me Outlook VBA.

Si parazgjedhje, kur zgjidhni "Përgjigju të gjithëve" për t'iu përgjigjur një emaili, të gjithë marrësit që ishin fillimisht në fushën "Për" do të vendosen ende në fushën "Për" në postën që përgjigjet. Megjithatë, shumë përdorues dëshirojnë t'i zhvendosin të gjithë marrësit në fushën "CC" me vetëm dërguesin origjinal në fushën "Për". Në përgjigje të kësaj kërkese, këtu do të ekspozojmë një pjesë të kodit VBA, i cili mund ta realizojë atë automatikisht.

Zhvendos automatikisht të gjithë marrësit përveç dërguesit origjinal në fushën "CC" në "Përgjigju të gjithëve"

1. Në radhë të parë, nisni programin tuaj Outlook.
2. Pastaj në dritaren kryesore të Outlook, shtypni butonat "Alt + F11".
3. Më pas do të hyni në redaktorin VBA të Outlook.
4. Më pas, ju duhet të gjeni dhe hapni projektin "ThisOutlookSession".
5. Më vonë ju duhet të kopjoni dhe ngjisni kodet e mëposhtme VBA në këtë dritare të projektit.

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objExplorer_Activate()
    On Error Resume Next
    If objExplorer.Selection.Item(1).Class = olMail Then
       Set objMail = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If Inspector.CurrentItem.Class = olMail Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

Private Sub objMail_ReplyAll(ByVal Response As Object, Cancel As Boolean)
    Dim objReplyAll As Outlook.MailItem
    Dim objRecipient As Outlook.recipient
    Dim objCCRecipient As Outlook.recipient
    Dim strSender As String
 
    Set objReplyAll = objMail.ReplyAll
 
    strSender = objMail.SenderEmailAddress
 
    For Each objRecipient In objMail.Recipients
        'Exclude yourself
        If objRecipient.Address <> "youremail@datanumen.com" Then
           'Add the recipients as CC recipients
           Set objCCRecipient = objReply.Recipients.Add(objRecipient.Address)
           objCCRecipient.Type = olCC
        End If
    Next
 
    'Keep original sender in To field
    objReplyAll.To = strSender
    objReplyAll.Display
 
    Cancel = True
End Sub

6. Pas kësaj, duhet të nënshkruani këtë makro dhe më pas të ndryshoni cilësimet e makrove të Outlook për të lejuar makro të nënshkruara dixhitale.
7. Përfundimisht mund ta rinisni Outlook-un tuaj për të aktivizuar projektin e ri VBA.
8. Tani e tutje, sa herë që i përgjigjeni emaileve duke përdorur "Përgjigju të gjithëve", do të shihni që të gjithë marrësit janë zhvendosur në fushën "CC" me vetëm dërguesin origjinal në fushën "Për".

Mos u frikësoni në rast të korrupsionit në PST

Nëse skedari juaj PST përmban shumë nga të dhënat tuaja të vlefshme, të tilla si informacione për klientin e kështu me radhë, sapo skedari juaj PST të korruptohet, duhet të shqetësoheni. Megjithatë, nëse e keni bërë kopje rezervë të skedarit tuaj kohët e fundit, nuk do t'ju shqetësojë kurrë. Rezervimet do t'ju mundësojnë të rifitoni tuajin Outlook i dëmtuar të dhëna me lehtësi të lehtë. Por nëse nuk ka një kopje rezervë të tillë, prapë mund të përdorni një mjet të fuqishëm rikuperimi, 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ë riparimi sql dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com