كيفية الرد بشكل طبيعي في مجلد العناصر المرسلة من Outlook؟
عادةً ، عند النقر فوق ميزة الرد في مجلد العناصر المرسلة لإرسال رسالة إضافية أخرى للأشخاص الذين أرسلتهم ، سيتم عرض عنوان بريدك الإلكتروني في الحقل "إلى" كما تظهر لقطة الشاشة التالية. قد يكون هذا مزعجًا بالنسبة لك لتغيير العنوان في كل مرة. كيف يمكن جعل Outlook يستخدم عنوان المستلم الأصلي وليس عنوانك؟
يمكنك الرد بشكل عادي في مجلد العناصر المرسلة من Outlook باستخدام ميزة "الرد على الكل"
يمكنك الرد بشكل عادي في مجلد "العناصر المرسلة" من Outlook باستخدام رمز VBA
يمكنك الرد بشكل عادي في مجلد العناصر المرسلة من Outlook باستخدام ميزة "الرد على الكل"
في Outlook ، فإن ملف الرد على الجميع يمكن أن تساعدك الميزة في حل هذه المشكلة ، يرجى القيام بذلك على النحو التالي:
عندما تحتاج إلى الرد على البريد الإلكتروني المرسل لإرساله مرة أخرى للاحتفاظ بعنوان المستلم الأصلي ، يرجى النقر الرد على الجميع ، وسيكون عنوان المستلم الأصلي موجودًا في إلى الحقل كما هو موضح في لقطة الشاشة التالية:
يمكنك الرد بشكل عادي في مجلد "العناصر المرسلة" من Outlook باستخدام رمز VBA
في وقت ما ، قد تنسى الرد على الجميع عند الرد على الرسالة المرسلة ، لذلك يمكن أن يساعدك رمز VBA أدناه على الرد بشكل طبيعي في مجلد العناصر المرسلة باستخدام ميزة الرد. قم بالخطوات التالية:
1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انقر مرتين هذه الجلسة من مشروع 1 (VbaProject.OTM) لفتح الوضع ، ثم انسخ الكود التالي والصقه في الوحدة النمطية الفارغة.
رمز فبا: الرد بشكل عادي في مجلد العناصر المرسلة من Outlook:
Option Explicit
Private WithEvents GExplorer As Explorer
Private WithEvents GMailItem As MailItem
Private Sub Application_Startup()
Set GExplorer = Application.ActiveExplorer
End Sub
Private Sub GExplorer_SelectionChange()
On Error Resume Next
Set GMailItem = GExplorer.Selection.Item(1)
End Sub
Private Sub GMailItem_Reply(ByVal Response As Object, Cancel As Boolean)
Dim xResponse As MailItem
Dim xRecipients As Outlook.Recipients
Dim xRecipient As Outlook.Recipient
Dim i As Integer
Dim xTo As String, xCC As String, xBCC As String, xName As String
On Error Resume Next
If Application.ActiveExplorer.CurrentFolder <> Session.GetDefaultFolder(olFolderSentMail) Then
Exit Sub
End If
Cancel = True
Set xResponse = GMailItem.Reply
Set xRecipients = GMailItem.Recipients
For i = xRecipients.Count To 1 Step -1
Set xRecipient = xRecipients.Item(i)
xName = xRecipient.Name
If Left(xName, 1) = "'" Then
xName = Mid(xName, 2, Len(xRecipient.Name) - 2)
End If
Select Case xRecipient.Type
Case olTo
xTo = xName & ";" & xTo
Case olCC
xCC = xName & ";" & xCC
Case olBCC
xBCC = xName & ";" & xBCC
End Select
Next
With xResponse
.To = xTo
.CC = xCC
.BCC = xBCC
End With
xResponse.Recipients.ResolveAll
xResponse.Display
End Sub
3. بعد ذلك ، احفظ الرمز ، وأعد تشغيل Outlook لأخذ تأثير التعليمات البرمجية ، الآن ، عند النقر فوق رد لإعادة إرسال بريد إلكتروني في المواد المرسلة المجلد ، يتم عرض عنوان المستلم الأصلي في الحقل "إلى" حسب حاجتك.
أفضل أدوات إنتاجية المكتب
كوتولس لتوقعات - أكثر من 100 ميزة قوية لتعزيز توقعاتك
🤖 مساعد بريد الذكاء الاصطناعي: رسائل بريد إلكتروني احترافية فورية مع سحر الذكاء الاصطناعي - بنقرة واحدة للردود العبقرية، والنغمة المثالية، وإتقان متعدد اللغات. تحويل البريد الإلكتروني دون عناء! ...
📧 أتمتة البريد الإلكتروني: خارج المكتب (متوفر لـ POP وIMAP) / جدولة إرسال رسائل البريد الإلكتروني / نسخة تلقائية/نسخة مخفية الوجهة حسب القواعد عند إرسال البريد الإلكتروني / إعادة التوجيه التلقائي (القواعد المتقدمة) / إضافة تحية تلقائية / تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل فردية
📨 إدارة البريد الإلكتروني: استدعاء رسائل البريد الإلكتروني بسهولة / حظر رسائل البريد الإلكتروني الاحتيالية حسب الموضوعات والآخرين / حذف رسائل البريد الإلكتروني المكررة / المزيد من خيارات البحث / توحيد المجلدات
📁 المرفقات برو: حفظ دفعة / فصل دفعة / ضغط دفعة / حفظ تلقائي / فصل تلقائي / ضغط تلقائي
؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة / عزز إنتاجية Outlook الخاص بك باستخدام طرق العرض المبوبة / تصغير Outlook بدلاً من الإغلاق
؟؟؟؟ بنقرة واحدة عجائب: الرد على الكل بالمرفقات الواردة / رسائل البريد الإلكتروني لمكافحة التصيد / 🕘إظهار المنطقة الزمنية للمرسل
👩🏼🤝👩🏻 جهات الاتصال والتقويم: دفعة إضافة جهات الاتصال من رسائل البريد الإلكتروني المحددة / تقسيم مجموعة اتصال إلى مجموعات فردية / إزالة تذكير عيد ميلاد
على مدى ميزات 100 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.