Hvordan automatisk flytte alle mottakere unntatt original avsender til "CC"-feltet når du bruker "Svar alle" i Outlook

Noen brukere flytter alltid alle mottakerne unntatt den opprinnelige avsenderen til "CC"-feltet når de bruker "Svar alle" i Outlook. Denne artikkelen vil introdusere en metode for å automatisere bevegelsen med Outlook VBA.

Som standard, når du velger «Svar alle» for å svare på en e-post, vil alle mottakerne som opprinnelig var i «Til»-feltet, fortsatt plasseres i «Til»-feltet i den svarende e-posten. Imidlertid vil mange brukere flytte alle mottakerne til "CC"-feltet med bare den opprinnelige avsenderen i "Til"-feltet. Som svar på dette kravet vil vi her avsløre et stykke VBA-kode, som kan realisere det automatisk.

Flytt automatisk alle mottakere unntatt original avsender til "CC"-feltet i "Svar alle"

1. For det første, start Outlook-programmet.
2. Deretter trykker du på "Alt + F11" i hovedvinduet i Outlook.
3. Deretter går du inn i Outlook VBA-editoren.
4. Deretter bør du finne og åpne "ThisOutlookSession" -prosjektet.
5. Senere må du kopiere og lime inn følgende VBA-koder i dette prosjektvinduet.

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. Etter det bør du signere denne makroen og deretter endre Outlook-makroinnstillingene for å tillate digitalt signerte makroer.
7. Til slutt kan du starte Outlook på nytt for å aktivere det nye VBA-prosjektet.
8. Fra nå av, hver gang du svarer på e-poster med «Svar alle», vil du se at alle mottakerne er flyttet til «CC»-feltet med bare den opprinnelige avsenderen i «Til»-feltet.

Ikke få panikk i tilfelle PST-korrupsjon

Hvis PST-filen inneholder mye av dine verdifulle data, for eksempel klientinformasjon og så videre, må du bli bekymret når PST-filen din blir korrupt. Men hvis du har sikkerhetskopiert filen nylig, vil du aldri få panikk. Sikkerhetskopiene vil gjøre det mulig for deg å få tilbake din skadet Outlook data med uanstrengt letthet. Men hvis det ikke finnes en slik sikkerhetskopi, kan du fortsatt bruke et kraftig gjenopprettingsverktøy, for eksempel DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert reparere sql og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med