كيف يمكنني حذف المسودة المعدَّلة حاليًا دون التأثير على البريد الإلكتروني الأصلي في Outlook؟

يقوم Microsoft Outlook 2013 والإصدارات الأحدث بفتح ردود البريد الإلكتروني في جزء القراءة بشكل افتراضي. فلنفترض أنك أجبت على رسالة إلكترونية، وبعد مرور 3 دقائق، يحفظ Outlook ردك تلقائيًا كمسودة. لكن بعد ذلك قررت ألا تُرسل هذا الرد وحذفت المسودة. في هذه الحالة، يميل بعض مستخدمي Outlook إلى النقر على زر «حذف» الموجود ضمن علامة التبويب «الرئيسية» لحذف المسودة من جزء القراءة (كما هو موضح في لقطة الشاشة أدناه). غير أن هذا الإجراء يؤدي أيضًا إلى حذف البريد الإلكتروني الأصلي!

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

حذف المسودة المُعدَّلة حاليًا في جزء القراءة
حذف المسودة المُعدَّلة حاليًا في نافذة جديدة

حذف المسودة المُعدَّلة حاليًا في جزء القراءة

إذا كنت معتادًا على الرد على رسائل البريد الإلكتروني من جزء القراءة، يمكنك استخدام رمز VBA التالي لحذف المسودة المعدَّلة حاليًا دون التأثير على البريد الإلكتروني الأصلي في Outlook.

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

2. في نافذةMicrosoft Visual Basic for Applications، انقر مرتين علىProject1 > كائنات Microsoft Outlook > ThisOutlookSession لفتح نافذةThisOutlookSession (الكود). ثم انسخ رمز VBA التالي إلى نافذة الكود.

رمز VBA: حذف المسودة المُعدَّلة حاليًا في جزء القراءة

Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220713
Public WithEvents GInlineMail As MailItem
Private Sub Application_Startup()
  Set GExplorer = Application.ActiveExplorer
End Sub
Private Sub GExplorer_InlineResponse(ByVal Item As Object)
  Set GInlineMail = Item
End Sub
Sub InlineDiscard()
  On Error Resume Next
  If Not GInlineMail Is Nothing And Not GInlineMail.Sent Then
    GInlineMail.UnRead = False
    GInlineMail.Delete
  End If
  Set GInlineMail = Nothing
End Sub

3. احفظ الكود، ثم اضغط على مفاتيحAlt+Q لإغلاق نافذةMicrosoft Visual Basic for Applications.

أنت الآن بحاجة إلى زرٍ لتشغيل الماكرو.

4. انقر علىتخصيص شريط الأدوات السريع > مزيد من الأوامر.

5. في مربع حوارخيارات Outlook، قم بالتهيئة كما يلي:

6. احتفظ بالنص المحدد في المربع الأيمن، ثم انقر على زرتعديل. في مربع حوارتعديل الزر، قم بتعيين زر جديد للنص واضغط علىموافق.

7. انقر علىموافقفي مربع حوارخيارات Outlookلحفظ التغييرات.

بعد ذلك، يُضاف الزر الذي حددته في الخطوة 6 إلىشريط الأدوات السريع.

8. أعد تشغيل Outlook لتفعيل الكود.

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

ملاحظة:بعد تشغيل النص، ستحتاج إلى تحديد رسالة إلكترونية أخرى في قائمة البريد لتحديث عرض البريد في المجلد الحالي.

مساعد البريد الذكي في Outlook: ردود أذكى، وتواصل أوضح (سحر بنقرة واحدة!)

بسِّط مهام Outlook اليومية مع مساعد البريد الذكي من Kutools لـ Outlook! تعلّم هذه الأداة القوية من بريدك السابق لتقدّم لك ردودًا ذكية ودقيقة، وتحسّن محتوى رسائلك، وتساعدك في صياغتها وتنقيحها بسلاسة ودون أي جهد.

يدعم هذا الميزة:

• الردود الذكية: احصل على ردود مُعدَّة مسبقًا من محادثاتك السابقة—مخصصة بدقة، وملائمة تمامًا، وجاهزة للاستخدام الفوري.
• قم بتنقية نص بريدك تلقائيًا لضمان وضوحه وتأثيره.
• الكتابة دون عناء: ما عليك سوى إدخال الكلمات المفتاحية، ودع الذكاء الاصطناعي يتولى الباقي، مع توفر عدة أساليب كتابة.
• الامتدادات الذكية: وسِّع آفاقك باقتراحات ذكية تراعي السياق!
• التلخيص: احصل فورًا على نظرة عامة موجزة للرسائل الإلكترونية الطويلة.
• الوصول العالمي: ترجم رسائلك الإلكترونية إلى أي لغة بسهولة.

يدعم هذا الميزة:

• الردود الذكية على البريد الإلكتروني
• المحتوى المُحسَّن
• مسودات مبنية على الكلمات المفتاحية
• تمديد المحتوى الذكي
• تلخيص البريد الإلكتروني
• الترجمة متعددة اللغات

لا تنتظر—نزّل مساعد البريد الذكي الآن واستمتع بـ!

a name="a2"> حذف المسودة المُعدَّلة حاليًا في نافذة جديدة

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

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

2. انقر علىإدراج > وحدة نمطية، ثم انسخ رمز VBA التالي إلى نافذة الوحدة النمطية.

Sub DeleteDraftMessageWindow()
'Updated by Extendoffice 20220713
  Dim xInspector As Inspector
  Dim xMail As MailItem
  On Error Resume Next
  Set xInspector = Application.ActiveInspector
  If xInspector Is Nothing Then Exit Sub
  Set xMail = xInspector.CurrentItem
  If Not xMail.Sent Then
    xMail.UnRead = False
    xMail.Delete
  End If
End Sub

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

أنت الآن بحاجة إلى زر لتشغيل الماكرو.

4. انقر علىالصفحة الرئيسية > إنشاء بريد إلكتروني جديدلإنشاء بريد إلكتروني جديد. في نافذة الرسالة، انقر علىتخصيص شريط الأدوات السريع > مزيد من الأوامر.

5. ثم كرّر الخطوات أعلاهمن 5 إلى 7 لإنشاء زر للنصوإضافته إلىشريط الأدوات السريعفي نافذة الرسالة.

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

---

أفضل أدوات إنتاجية Office

جرِّب Kutools لـ Outlook الجديد كليًّا مع 100+ ميزة رائعة!انقر للتنزيل الآن!

🤖KUTOOLS AI:يستخدم تقنية ذكاء اصطناعي متقدمة للتعامل مع رسائل البريد الإلكتروني بسلاسة، بما في ذلك الرد عليها، وتلخيصها، وتحسينها، وتوسيعها، وترجمتها، وصياغتها.

📧أتمتة البريد الإلكتروني: الرد التلقائي (متوفر لبروتوكولي POP وIMAP) / جدولة إرسال رسائل البريد الإلكتروني / نسخة تلقائية/مخفية وفق القواعد عند إرسال البريد الإلكتروني / التحويل التلقائي (قاعدة متقدمة) / إضافة التحيّة تلقائيًّا / تقسيم رسائل البريد الإلكتروني ذات المستلمين المتعددين تلقائيًّا إلى رسائل فردية...

📨إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل الاحتيال حسب العناوين وغيرها / حذف الرسائل المكررة / البحث المتقدم / تنظيم المجلدات...

📁المرفقات الاحترافية: حفظ دفعة واحدة / فصل دفعة واحدة / ضغط دفعة واحدة / حفظ تلقائي / تفصيل تلقائي / ضغط تلقائي...

🌟سحر الواجهة: 😊إيموجيات أكثر جمالًا وروعة / إشعارك عند وصول رسائل بريد إلكتروني مهمة / تصغير Outlook بدلًا من إغلاقه...

👍عجائب النقرة الواحدة: الرد على الجميع مع المرفقات / الحماية من رسائل التصيد الاحتيالي / 🕘عرض منطقة الوقت الحالي للمرسل...

👩🏼‍🤝‍👩🏻جهات الاتصال والتقويم: إضافة جهات اتصال دفعةً واحدة من رسائل البريد الإلكتروني المحددة / تقسيم مجموعة جهات الاتصال إلى مجموعات فردية / إزالة تذكير عيد الميلاد...

استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية، وأكثر من 40 لغة أخرى!

افتح Kutools لـ Outlook بنقرة واحدة فورًا! لا تنتظر، نزِّله الآن وحسِّن كفاءتك!

قائمة ميزات Kutools لـ Outlook      نزِّل الآن      اذهب للشراء

🚀 التنزيل بنقرة واحدة — احصل على جميع إضافات Office

موصى به بشدة: Kutools for Office (5 في 1)

نقرة واحدة لتنزيلخمسة برامج تثبيتدفعة واحدة —Kutools لـ Excel وOutlook وWord وPowerPointوOffice Tab Pro.انقر للتنزيل الآن!

• ✅سهولة النقرة الواحدة: نزِّل جميع حزم الإعداد الخمس دفعة واحدة!
• 🚀جاهز لأي مهمة في Office: ثبِّت الإضافات التي تحتاجها، متى احتجتَ إليها.
• 🧰متضمَّن: Kutools لـ Excel / Kutools لـ Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

حول الحزمة⬇ نزِّل الحزمة💳 اشترِ الحزمة