Kā automātiski pārvietot visus saņēmējus, izņemot sākotnējo sūtītāju, uz lauku “CC”, izmantojot programmu “Atbildēt visiem”

Daži lietotāji vienmēr visus adresātus, izņemot sākotnējo sūtītāju, pārvieto uz lauku “CC”, izmantojot programmu “Atbildēt visiem”. Šajā rakstā tiks ieviesta metode, kā automatizēt pārvietošanos ar Outlook VBA.

Pēc noklusējuma, atlasot “Atbildēt visiem”, lai atbildētu uz e-pastu, visi adresāti, kas sākotnēji atradās laukā “Kam”, joprojām tiks ievietoti atbildētāja pasta laukā “Kam”. Tomēr daudzi lietotāji vēlētos visus adresātus pārvietot uz lauku “CC”, laukā “Kam” tikai sākotnējo sūtītāju. Atbildot uz šo prasību, šeit tiks parādīts VBA koda gabals, kas to var automātiski realizēt.

Automātiski pārvietot visus saņēmējus, izņemot sākotnējo sūtītāju, laukā “Atbildēt visiem” laukā “CC”

1. Pirmkārt, palaidiet savu Outlook programmu.
2. Pēc tam galvenajā Outlook logā nospiediet taustiņu pogas “Alt + F11”.
3. Pēc tam ievadīsit Outlook VBA redaktoru.
4. Pēc tam jums jāatrod un jāatver projekts “ThisOutlookSession”.
5. Vēlāk jums būs jākopē un jāielīmē šādi VBA kodi šajā projekta logā.

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. Pēc tam jums vajadzētu parakstīt šo makro un pēc tam mainīt Outlook makro iestatījumus, lai atļautu digitāli parakstītus makro.
7. Galu galā varat restartēt programmu Outlook, lai aktivizētu jauno VBA projektu.
8. Turpmāk katru reizi, kad atbildat uz e-pasta ziņojumiem, izmantojot “Atbildēt visiem”, redzēsiet, ka visi adresāti ir pārvietoti uz lauku “CC” un laukā “Kam” ir tikai sākotnējais sūtītājs.

Vai nav panikas PST korupcijas gadījumā

Ja jūsu PST failā ir daudz vērtīgu datu, piemēram, informācija par klientu un tā tālāk, tiklīdz jūsu PST fails tiek sabojāts, jums jāuztraucas. Tomēr, ja nesen esat izveidojis faila dublējumkopiju, jūs nekad nepanicīsit. Dublējumi ļaus jums atgūt savu bojāta Outlook datus bez piepūles. Bet, ja šāda dublējuma nav, jūs joprojām varat izmantot spēcīgu atkopšanas rīku, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp remonta kv un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar