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

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

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

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

حذف مسودة التحرير الحالية في جزء القراءة

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

1. قم بتشغيل Outlook ، اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انقر مرتين Project1 > كائنات Microsoft Outlook > هذه الجلسة لفتح ThisOutlookSession (رمز) نافذة او شباك. ثم انسخ كود فبا التالي إلى نافذة الكود.

رمز فبا: احذف المسودة المحررة حاليًا في جزء القراءة

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. احفظ الرمز واضغط على قديم + Q مفاتيح لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

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

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

5. في ال خيارات التوقعات مربع الحوار ، تحتاج إلى تكوين على النحو التالي.

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

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

ثم يضاف الزر الذي حددته في الخطوة 6 إلى ملف شريط أدوات الوصول السريع.

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

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

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

احذف المسودة المحررة حاليًا في نافذة جديدة

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

1. قم بتشغيل Outlook ، اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

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

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. اضغط على قديم + F11 لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

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

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

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

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

Kutools for Outlook - يجلب 100 ميزة متقدمة إلى Outlook ، ويجعل العمل أسهل كثيرًا!

• CC السيارات / BCC حسب القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل بريد إلكتروني متعددة حسب الطلب ؛ رد آلي بدون خادم صرف ، والمزيد من الميزات التلقائية ...
• تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان بريدك في قائمة BCC; تذكير عند فقدان المرفقات، والمزيد من ميزات التذكير ...
• رد (الكل) بكل المرفقات في محادثة البريد; الرد على العديد من رسائل البريد الإلكتروني في ثوان؛ إضافة تحية تلقائية عند الرد إضافة التاريخ إلى الموضوع ...
• أدوات المرفقات: إدارة جميع المرفقات في جميع الرسائل ، فصل تلقائي, ضغط الكل، إعادة تسمية الكل ، حفظ الكل ... تقرير سريع ، عد الرسائل المختارة
• رسائل البريد الإلكتروني غير الهامة القوية حسب العرف قم بإزالة الرسائل المكررة وجهات الاتصال تمكنك من أداء أذكى وأسرع وأفضل في Outlook.

اقرأ أكثر... التحميل الان...