انتقل إلى المحتوى الرئيسي

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

شنومكس) في اختر الأوامر من القائمة المنسدلة ، حدد وحدات ماكرو.
5.2) حدد الماكرو الذي أضفته في الخطوة السابقة ؛
شنومكس) انقر فوق أضف زر لإضافة هذا الماكرو إلى ملف تخصيص شريط أدوات الوصول السريع مربع.

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 لإنشاء زر للبرنامج النصي وإضافته إلى شريط أدوات الوصول السريع من نافذة الرسالة.

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


أفضل أدوات إنتاجية المكتب

كوتولس لتوقعات - أكثر من 100 ميزة قوية لتعزيز توقعاتك

🤖 مساعد بريد الذكاء الاصطناعي: رسائل بريد إلكتروني احترافية فورية مع سحر الذكاء الاصطناعي - بنقرة واحدة للردود العبقرية، والنغمة المثالية، وإتقان متعدد اللغات. تحويل البريد الإلكتروني دون عناء! ...

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

📨 إدارة البريد الإلكتروني: استدعاء رسائل البريد الإلكتروني بسهولة  /  حظر رسائل البريد الإلكتروني الاحتيالية حسب الموضوعات والآخرين  /  حذف رسائل البريد الإلكتروني المكررة  /  المزيد من خيارات البحث  /  توحيد المجلدات 

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

؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة   /  عزز إنتاجية Outlook الخاص بك باستخدام طرق العرض المبوبة  /  تصغير Outlook بدلاً من الإغلاق 

؟؟؟؟ بنقرة واحدة عجائب: الرد على الكل بالمرفقات الواردة  /   رسائل البريد الإلكتروني لمكافحة التصيد  /  🕘إظهار المنطقة الزمنية للمرسل 

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

على مدى ميزات 100 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations