Ορισμένοι χρήστες μετακινούν πάντα όλους τους παραλήπτες εκτός από τον αρχικό αποστολέα στο πεδίο "CC" όταν χρησιμοποιούν το "Reply All" στο Outlook. Αυτό το άρθρο θα εισαγάγει μια μέθοδο για την αυτοματοποίηση της κίνησης με το Outlook VBA.
Από προεπιλογή, όταν επιλέγετε "Απάντηση σε όλους" για να απαντήσετε σε ένα μήνυμα ηλεκτρονικού ταχυδρομείου, όλοι οι παραλήπτες που ήταν αρχικά στο πεδίο "Προς" θα εξακολουθήσουν να τοποθετούνται στο πεδίο "Προς" στο απαντητικό μήνυμα. Ωστόσο, πολλοί χρήστες θα ήθελαν να μετακινήσουν όλους τους παραλήπτες στο πεδίο "CC" με μόνο τον αρχικό αποστολέα στο πεδίο "Προς". Σε απάντηση αυτής της απαίτησης, εδώ θα εκθέσουμε ένα κομμάτι κώδικα VBA, το οποίο μπορεί να το πραγματοποιήσει αυτόματα.
Αυτόματη μετακίνηση όλων των παραληπτών εκτός από τον αρχικό αποστολέα στο πεδίο "CC" στο "Απάντηση σε όλους"
- Πρώτα, ξεκινήστε το πρόγραμμα Outlook.
- Στη συνέχεια, στο κύριο παράθυρο του Outlook, πατήστε τα πλήκτρα "Alt + F11".
- Στη συνέχεια θα εισέλθετε στον επεξεργαστή VBA του Outlook.
- Στη συνέχεια, θα πρέπει να βρείτε και να ανοίξετε το έργο "ThisOutlookSession".
- Αργότερα θα πρέπει να αντιγράψετε και να επικολλήσετε τους ακόλουθους κωδικούς VBA σε αυτό το παράθυρο του έργου.
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
- Μετά από αυτό, θα πρέπει να υπογράψετε αυτήν τη μακροεντολή και, στη συνέχεια, να αλλάξετε τις ρυθμίσεις μακροεντολής του Outlook για να επιτρέψετε τις μακροεντολές με ψηφιακή υπογραφή.
- Τελικά, μπορείτε να επανεκκινήσετε το Outlook για να ενεργοποιήσετε το νέο έργο VBA.
- Από εδώ και στο εξής, κάθε φορά που απαντάτε σε email χρησιμοποιώντας το "Reply All", θα βλέπετε ότι όλοι οι παραλήπτες έχουν μετακινηθεί στο πεδίο "CC" με μόνο τον αρχικό αποστολέα στο πεδίο "To".
Μην πανικοβληθείτε σε περίπτωση διαφθοράς PST
Εάν το αρχείο PST περιέχει πολλά από τα πολύτιμα δεδομένα σας, όπως πληροφορίες πελάτη και ούτω καθεξής, όταν το αρχείο PST καταστραφεί, θα πρέπει να ανησυχείτε. Ωστόσο, εάν έχετε δημιουργήσει αντίγραφα ασφαλείας του αρχείου σας πρόσφατα, δεν θα πανικοβληθείτε ποτέ. Τα αντίγραφα ασφαλείας θα σας επιτρέψουν να ανακτήσετε το δικό σας κατεστραμμένο Outlook δεδομένα με αβίαστη ευκολία. Αλλά αν δεν υπάρχει τέτοιο αντίγραφο ασφαλείας, μπορείτε ακόμα να χρησιμοποιήσετε ένα ισχυρό εργαλείο ανάκτησης, όπως π.χ DataNumen Outlook Repair.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων επισκευή sql και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com