كيفية الرد بشكل طبيعي في مجلد العناصر المرسلة من 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 لأخذ تأثير التعليمات البرمجية ، الآن ، عند النقر فوق رد لإعادة إرسال بريد إلكتروني في المواد المرسلة المجلد ، يتم عرض عنوان المستلم الأصلي في الحقل "إلى" حسب حاجتك.
Kutools for Outlook - يجلب 100 ميزة متقدمة إلى Outlook ، ويجعل العمل أسهل كثيرًا!
- CC السيارات / BCC حسب القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل بريد إلكتروني متعددة حسب الطلب ؛ رد آلي بدون خادم صرف ، والمزيد من الميزات التلقائية ...
- تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان بريدك في قائمة BCC; تذكير عند فقدان المرفقات، والمزيد من ميزات التذكير ...
- رد (الكل) بكل المرفقات في محادثة البريد; الرد على العديد من رسائل البريد الإلكتروني في ثوان؛ إضافة تحية تلقائية عند الرد إضافة التاريخ إلى الموضوع ...
- أدوات المرفقات: إدارة جميع المرفقات في جميع الرسائل ، فصل تلقائي, ضغط الكل، إعادة تسمية الكل ، حفظ الكل ... تقرير سريع ، عد الرسائل المختارة
- رسائل البريد الإلكتروني غير الهامة القوية حسب العرف قم بإزالة الرسائل المكررة وجهات الاتصال تمكنك من أداء أذكى وأسرع وأفضل في Outlook.

