Az eredeti feladó kivételével az összes címzett automatikus áthelyezése a „CC” mezőbe, ha az Outlook „Válasz mindenkinek” funkcióját használja

Egyes felhasználók az eredeti feladó kivételével az összes címzettet mindig áthelyezik a „CC” mezőbe, amikor a „Válasz mindenkinek” funkciót használják az Outlookban. Ez a cikk egy módszert mutat be az áthelyezés automatizálására az Outlook VBA segítségével.

Alapértelmezés szerint, ha a „Válasz mindenkinek” lehetőséget választja egy e-mail megválaszolásához, az összes címzett, aki eredetileg a „Címzett” mezőben volt, továbbra is a válaszlevél „Címzett” mezőjébe kerül. Sok felhasználó azonban szeretné áthelyezni az összes címzettet a „CC” mezőbe, és csak az eredeti feladó szerepel a „Címzett” mezőben. Válaszul erre a követelményre, itt bemutatunk egy darab VBA-kódot, amely automatikusan megvalósítja azt.

Az eredeti feladó kivételével az összes címzett automatikus áthelyezése a „Válasz mindenkinek” mezőbe a „CC” mezőbe

1. Először indítsa el az Outlook programot.
2. Ezután az Outlook főablakában nyomja meg az „Alt + F11” billentyűket.
3. Ezután belép az Outlook VBA szerkesztőjébe.
4. Ezt követően meg kell találnia és meg kell nyitnia a „ThisOutlookSession” projektet.
5. Később ki kell másolnia és be kell illesztenie a következő VBA-kódokat ebbe a projektablakba.

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. Ezt követően írja alá ezt a makrót, majd módosítsa az Outlook makró beállításait, hogy engedélyezze a digitálisan aláírt makrókat.
7. Végül újraindíthatja az Outlookot az új VBA-projekt aktiválásához.
8. Mostantól minden alkalommal, amikor a „Válasz mindenkinek” használatával válaszol az e-mailekre, látni fogja, hogy az összes címzett átkerült a „CC” mezőbe, és csak az eredeti feladó a „Címzett” mezőben.

Ne essen pánikba PST korrupció esetén

Ha a PST-fájl sok értékes adatot tartalmaz, például ügyféladatokat és így tovább, amint a PST-fájl megsérül, aggódnia kell. Ha azonban nemrég készített biztonsági másolatot a fájlról, soha nem fog pánikba esni. A biztonsági mentések lehetővé teszik, hogy visszakapja a sajátját sérült Outlook az adatokat könnyedén. De ha nincs ilyen biztonsági mentés, akkor is használhat egy hatékony helyreállítási eszközt, mint pl DataNumen Outlook Repair.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve javítás sql és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com