كيف يمكن إزالة المرفقات تلقائيًا من الرسائل المرسلة بعد إرسال رسائل البريد الإلكتروني؟
عند إرسال رسالة بريد إلكتروني تحتوي على مرفقات، يتم تخزين هذه المرفقات تلقائيًا مع الرسالة في مجلد «المرسلة». ولتقليل حجم ملف PST الخاص بك، قد ترغب في إزالة المرفقات من الرسائل المرسلة تلقائيًا بعد إرسال البريد. في هذه المقالة، سأشرح كيفية تنفيذ هذه المهمة في Outlook.
إزالة المرفقات تلقائيًا بعد إرسال رسائل البريد الإلكتروني من الرسائل المرسلة
إزالة المرفقات تلقائيًا بعد إرسال رسائل البريد الإلكتروني من الرسائل المرسلة
يمكن أن يساعدك كود VBA التالي في حذف المرفقات تلقائيًا بعد إرسال رسائل البريد الإلكتروني من Outlook الخاص بك، يُرجى اتباع الخطوات التالية:
1. اضغط مع الاستمرار على مفتاحَيْ «ALT» +"F11« لفتح نافذة »Microsoft Visual Basic for Applications".
2.في نافذة «Microsoft Visual Basic for Applications»، انقر مرتين على «ThisOutlookSession» في جزء "Project1 (VbaProject.OTM)" لفتح الوحدة النمطية، ثم انسخ والصق الكود التالي في الوحدة النمطية الفارغة.
كود VBA: إزالة المرفقات تلقائيًا بعد إرسال رسائل البريد الإلكتروني من الرسائل المرسلة:
Public WithEvents SentMailItems As Outlook.Items
Private Sub Application_Startup()
Set SentMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail).Items
End Sub
Sub SentMailItems_ItemAdd(ByVal Item As Object)
Dim xSentMail As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim xAttachmentInfo As String
On Error Resume Next
If Item.Class = olMail Then
Set xSentMail = Item
End If
Set xAttachments = xSentMail.Attachments
For i = xAttachments.Count To 1 Step -1
Set xAttachment = xAttachments.Item(i)
xAttachmentInfo = "<HTML><BODY>" & xAttachment.DisplayName & _
"</BODY></HTML>" & vbCrLf & xAttachmentInfo
xAttachment.Delete
Next
xSentMail.HTMLBody = "<HTML><BODY><font color=#FF0000>Attachment Removed: </font><br/></BODY></HTML>" & _
xAttachmentInfo & "<HTML><BODY><br/></BODY></HTML>" & xSentMail.HTMLBody
xSentMail.Save
End Sub
3. بعد إدراج الكود أعلاه، يُرجى إعادة تشغيل Outlook لتفعيله.
4. بدءًا من الآن، سيتم حذف المرفقات تلقائيًا من رسائل البريد الإلكتروني التي تُرسَل، كما هو موضح في لقطة الشاشة التالية:
ملاحظة: هذا الكود متاح لحساب البيانات الافتراضي فقط.
أفضل أدوات إنتاجية Office
جرِّب Kutools لـ Outlook الجديد كليًّا مع 100+ ميزة رائعة!انقر للتنزيل الآن!
📧أتمتة البريد الإلكتروني: الرد التلقائي (متوفر لبروتوكولي POP وIMAP) / جدولة إرسال رسائل البريد الإلكتروني / نسخة تلقائية/مخفية وفق القواعد عند إرسال البريد الإلكتروني / التحويل التلقائي (قاعدة متقدمة) / إضافة التحيّة تلقائيًّا / تقسيم رسائل البريد الإلكتروني ذات المستلمين المتعددين تلقائيًّا إلى رسائل فردية...
📨إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل الاحتيال حسب العناوين وغيرها / حذف الرسائل المكررة / البحث المتقدم / تنظيم المجلدات...
📁المرفقات الاحترافية: حفظ دفعة واحدة / فصل دفعة واحدة / ضغط دفعة واحدة / حفظ تلقائي / تفصيل تلقائي / ضغط تلقائي...
🌟سحر الواجهة: 😊إيموجيات أكثر جمالًا وروعة / إشعارك عند وصول رسائل بريد إلكتروني مهمة / تصغير Outlook بدلًا من إغلاقه...
👍عجائب النقرة الواحدة: الرد على الجميع مع المرفقات / الحماية من رسائل التصيد الاحتيالي / 🕘عرض منطقة الوقت الحالي للمرسل...
👩🏼🤝👩🏻جهات الاتصال والتقويم: إضافة جهات اتصال دفعةً واحدة من رسائل البريد الإلكتروني المحددة / تقسيم مجموعة جهات الاتصال إلى مجموعات فردية / إزالة تذكير عيد الميلاد...
استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية، وأكثر من 40 لغة أخرى!
افتح 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