كيفية الرد بشكل طبيعي في مجلد العناصر المرسلة من 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 لأخذ تأثير التعليمات البرمجية ، الآن ، عند النقر فوق رد لإعادة إرسال بريد إلكتروني في المواد المرسلة المجلد ، يتم عرض عنوان المستلم الأصلي في الحقل "إلى" حسب حاجتك.