Πώς να αφαιρέσω τον εαυτό μου από την απάντηση όλα στο Outlook;

Εάν υπάρχουν πολλοί λογαριασμοί email στο Outlook, αυτό θα προκαλέσει ορισμένα προβλήματα όταν απαντάτε όλα σε ένα ληφθέν email. Για παράδειγμα, λαμβάνετε ένα μήνυμα ηλεκτρονικού ταχυδρομείου μέσω ενός λογαριασμού, αλλά όλες οι διευθύνσεις του λογαριασμού email Outlook εμφανίζονται ως παραλήπτες σε αυτό το μήνυμα ηλεκτρονικού ταχυδρομείου, αφού κάνετε κλικ στο κουμπί Απάντηση σε όλους, όλες οι διευθύνσεις λογαριασμού email περιλαμβάνονται στο πλαίσιο Προς, Cc ή Bcc. Στην πραγματικότητα, δεν θέλετε άλλοι λογαριασμοί email από εσάς να λάβουν αυτό το email απάντησης. Αλλά πώς να αφαιρέσω τον εαυτό μου από την απάντηση όλων; Αυτό το άρθρο θα σας προτείνει μεθόδους για να το επιτύχετε.

Καταργήστε τον εαυτό μου κατά την αποστολή μηνυμάτων ηλεκτρονικού ταχυδρομείου με κωδικό VBA
Ένα κλικ για να αφαιρέσω τον εαυτό μου από την απάντηση όλων με το Kutools για Outlook

Καταργήστε τον εαυτό μου κατά την αποστολή μηνυμάτων ηλεκτρονικού ταχυδρομείου με κωδικό VBA

Μπορείτε να προσθέσετε τις διευθύνσεις του λογαριασμού email σας στο Outlook στον ακόλουθο κώδικα VBA για να αποτρέψετε την αποστολή email στον εαυτό σας. Κάντε τα εξής:

1. Τύπος άλλος + F11 ταυτόχρονα για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε διπλό κλικ στο Project1 > Αντικείμενα του Microsoft Outlook > Αυτό το OutlookSessionκαι, στη συνέχεια, αντιγράψτε και επικολλήστε κάτω από τον κώδικα VBA στο παράθυρο Code. Δείτε το στιγμιότυπο οθόνης:

Κωδικός VBA: Καταργήστε τον εαυτό μου από όλα τα μηνύματα αποστολής στο Outlook

Private Sub RemoveRecipientsWhenItemSend(Item As Outlook.MailItem)
	Dim RemoveAddrList As VBA.Collection
	Dim Recipients As Outlook.Recipients
	Dim aRecipient As Outlook.Recipient
	Dim i
	Dim j
	Set RemoveAddrList = New VBA.Collection
	' add addresses here
	RemoveAddrList.Add ""
	RemoveAddrList.Add ""
	Set Recipients = Item.Recipients
	For i = Recipients.Count To 1 Step - 1
		Set aRecipient = Recipients.Item(i)
		For j = 1 To RemoveAddrList.Count
			If LCase$(aRecipient.Address) = LCase$(RemoveAddrList(j)) Then
				Recipients.Remove i
				Exit For
			End If
		Next
	Next
End Sub
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
	On Error Resume Next
	RemoveRecipientsWhenItemSend Item
End Sub

Notes:

1. Αλλάξτε τις διευθύνσεις email στον κώδικα VBA στους λογαριασμούς email σας.

2. Βεβαιωθείτε ότι είναι ενεργοποιημένη η επιλογή Ενεργοποίηση όλων των μακροεντολών. Δείτε το στιγμιότυπο οθόνης:

3. Κάντε κλικ στο κουμπί Αποθήκευση κουμπί και κλείστε το Microsoft Visual Basic για εφαρμογές παράθυρο.

Από τώρα και στο εξής, όταν στέλνετε μηνύματα ηλεκτρονικού ταχυδρομείου, οι καθορισμένες διευθύνσεις email των λογαριασμών σας στο Outlook θα καταργούνται αυτόματα από το πλαίσιο Προς, Cc ή Bcc.

Ένα κλικ για να αφαιρέσω τον εαυτό μου από την απάντηση όλων με το Kutools για Outlook

Όπως φαίνεται το παρακάτω στιγμιότυπο οθόνης, για να αφαιρέσω τον εαυτό μου από την απάντηση όλων στο Outlook, κάντε τα εξής.

1. Αφού κάνετε κλικ στο κουμπί Απάντηση σε όλους για να δημιουργήσετε ένα email απάντησης, κάντε κλικ Kutools > Το όνομά μου είναι. Δείτε το στιγμιότυπο οθόνης:

Στη συνέχεια, όλα τα ονόματά σας (διευθύνσεις λογαριασμού email) καταργούνται αμέσως από το πλαίσιο Προς, Cc ή Bcc.

Εάν θέλετε να δοκιμάσετε δωρεάν αυτό το βοηθητικό πρόγραμμα, μεταβείτε στη διεύθυνση δωρεάν λήψη του λογισμικού πρώτα και μετά πηγαίνετε για να εφαρμόσετε τη λειτουργία σύμφωνα με τα παραπάνω βήματα.