كيفية إزالة نفسي من حقل إلى/نسخة/نسخة مخفية عند الرد على الكل في Outlook؟

Author: Siluvia Last Modified: 2025-05-30

إذا كان لديك عدة حسابات بريد إلكتروني في Outlook الخاص بك، فقد يتسبب ذلك في بعض المشاكل عند الرد على جميع الرسائل المستلمة. على سبيل المثال، إذا كنت قد تلقيت رسالة عبر أحد الحسابات، ولكن جميع عناوين حسابات البريد الإلكتروني الخاصة بك معروضة كمستلمين في هذه الرسالة، بعد النقر على زر الرد على الكل، سيتم تضمين جميع عناوين الحسابات في حقل إلى، أو النسخة أو النسخة المخفية. لكن في الواقع، لا تريد أن تتلقى حسابات البريد الإلكتروني الأخرى الخاصة بك هذه الرسالة المرتدة. إذن كيف يمكن إزالة نفسي من الرد على الكل؟ ستقترح هذه المقالة عليك طرقًا لتحقيق ذلك.

إزالة نفسي عند إرسال رسائل البريد الإلكتروني باستخدام كود VBA

نقرة واحدة لإزالة نفسي من الرد على الكل باستخدام أدوات Kutools لـ Outlook

إزالة نفسي عند إرسال رسائل البريد الإلكتروني باستخدام كود VBA

يمكنك إضافة عناوين حسابات البريد الإلكتروني الخاصة بك داخل Outlook إلى الكود التالي VBA لمنع إرسال رسائل البريد الإلكتروني لنفسك. يرجى القيام بما يلي.

1. اضغط على مفاتيح Alt + F11 معًا لفتح نافذة Microsoft Visual Basic for Applications.

2. في نافذة Microsoft Visual Basic for Applications، انقر نقرًا مزدوجًا على Project1 > Microsoft Outlook Objects > ThisOutlookSession، ثم قم بنسخ ولصق الكود التالي VBA في نافذة الكود. شاهد لقطة الشاشة:

delete myself address from to filed when reply all using vba 1

كود 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 "happy.xuebi@163.com"
	RemoveAddrList.Add "siluvia@extendoffice.com"
	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

الآن:

1. يرجى تغيير عناوين البريد الإلكتروني في كود VBA إلى حسابات البريد الإلكتروني الخاصة بك.

2. تأكد من تمكين خيار تمكين كافة الوحدات النمطية. شاهد لقطة الشاشة:

delete myself address from to filed when reply all using vba 2

3. انقر على زر الحفظ وأغلق نافذة Microsoft Visual Basic for Applications.

من الآن فصاعدًا، عند إرسال رسائل البريد الإلكتروني، سيتم إزالة عناوين البريد الإلكتروني المحددة لحسابات Outlook الخاصة بك تلقائيًا من حقول إلى، أو النسخة أو النسخة المخفية.

نقرة واحدة لإزالة نفسي من الرد على الكل باستخدام أدوات Kutools لـ Outlook

إذا كان لديك أدوات Kutools لـ Outlook، يمكنك إزالة عناوينك من حقول إلى، أو النسخة أو النسخة المخفية عند إرسال رسائل البريد الإلكتروني بنقرة واحدة.

👉 يتوفر الآن إصدار مجاني من أدوات Kutools لـ Outlook، حيث تكون 70+ الميزات مجانية مدى الحياة. قم بتنزيل الإصدار المجاني الآن.

كما هو موضح في لقطة الشاشة التالية، لإزالة نفسي من الرد على الكل في Outlook، يرجى القيام بما يلي.

delete myself address from to filed when reply all using kutools for outlook 1

1. بعد النقر على زر الرد على الكل لإنشاء رسالة رد، يرجى النقر على Kutools > أسمائي. شاهد لقطة الشاشة:

delete myself address from to filed when reply all using kutools for outlook 2

ثم يتم إزالة جميع أسمائك (عناوين حسابات البريد الإلكتروني) فورًا من حقول إلى، أو النسخة أو النسخة المخفية.

delete myself address from to filed when reply all using kutools for outlook 3

إذا كنت ترغب في الحصول على نسخة تجريبية مجانية من هذه الأداة، يرجى الانتقال إلى تنزيل البرنامج أولاً، ثم الانتقال لتطبيق العملية وفقًا للخطوات المذكورة أعلاه.