كيفية إعادة توجيه المرفقات فقط بناءً على معايير محددة في Outlook؟
عادةً، عند إعادة توجيه بريد إلكتروني، يتم تضمين نص الرسالة الأصلية والمرفقات أيضًا. ولكن في بعض الأحيان، قد تحتاج فقط إلى إعادة توجيه المرفقات دون الرسالة الأصلية بناءً على معايير معينة لشخص محدد. كيف يمكنك تنفيذ هذه المهمة في Outlook؟
إعادة توجيه المرفقات فقط بناءً على معايير محددة لشخص ما تلقائيًا باستخدام كود VBA
إعادة توجيه المرفقات فقط بناءً على معايير محددة لشخص ما تلقائيًا باستخدام كود VBA
على سبيل المثال، عند استقبال بريد إلكتروني يحتوي موضوعه على النص “kto feature”، سيتم إعادة توجيه جميع مرفقات هذا البريد للشخص المحدد تلقائيًا بدون نص الرسالة. الخطوات التالية يمكن أن تساعدك، يرجى القيام بما يلي:
1. اضغط باستمرار على مفتاحي ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.
2. في نافذة Microsoft Visual Basic for Applications، انقر نقرًا مزدوجًا على ThisOutlookSession من لوحة Project1(VbaProject.OTM) لفتح النموذج، ثم قم بنسخ ولصق الكود التالي في الوحدة الفارغة.
كود VBA: إعادة توجيه البريد الإلكتروني تلقائيًا بدون نص الرسالة وتشمل فقط المرفقات:
Public WithEvents ReceivedItems As Outlook.Items
Private Sub Application_Startup()
Set ReceivedItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub ReceivedItems_ItemAdd(ByVal Item As Object)
Dim xForwardMail As Outlook.MailItem
Dim xEmail As MailItem
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xEmail = Item
If InStrRev(UCase(xEmail.Subject), UCase("kto feature")) = 0 Then Exit Sub 'change subject text to your need
If xEmail.Attachments.Count = 0 Then Exit Sub
Set xForwardMail = xEmail.Forward
With xForwardMail
.HTMLBody = ""
With .Recipients
.Add "skyyang@addin88.com" 'change address to your own
.ResolveAll
End With
.Send
End With
End Sub
ملاحظة: في الكود أعلاه، يجب عليك تغيير نص الموضوع وعنوان المستلم إلى بياناتك الخاصة.

3. بعد ذلك، احفظ الكود وأعد تشغيل Outlook لتفعيل الكود.
4. من الآن فصاعدًا، في كل مرة يصل فيها بريد إلكتروني جديد يحتوي على نص الموضوع المحدد إلى بريدك، سيقوم Outlook بإعادة توجيه المرفقات تلقائيًا بدون نص الرسالة إلى الشخص المطلوب.
ملاحظة: يعمل هذا الكود فقط مع الحساب الافتراضي.
أفضل أدوات إنتاجية أوفيس
أخبار عاجلة: أدوات Kutools لـ Outlook تطلق إصدارًا مجانيًا!
اختبر أدوات Kutools لـ Outlook الجديدة كليًا مع أكثر من100 ميزة مذهلة! انقر لتحميلها الآن!
📧 أتمتة البريد الإلكتروني: الرد التلقائي (متاح لـ POP و IMAP) / جدولة إرسال البريد / نسخة تلقائية/مخفية عن طريق القواعد عند إرسال البريد / التحويل التلقائي (قاعدة متقدمة) / إضافة التحية تلقائيًا / تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل منفصلة...
📨 إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل الاحتيال حسب الموضوع وغيرها / حذف الرسائل المكررة / البحث المتقدم / تنظيم المجلدات...
📁 المرفقات المتقدمة: حفظ دفعة واحدة / فصل دفعة واحدة / ضغط دفعة واحدة / حفظ تلقائي / تفصيل تلقائي / ضغط تلقائي...
🌟 سحر الواجهة: 😊 المزيد من الرموز التعبيرية الجميلة والمميزة / تذكير عند وصول البريد الهام / تصغير Outlook بدل الإغلاق...
👍 ميزات بضغطة واحدة: الرد على الجميع مع المرفقات / الحماية من التصيد الاحتيالي / 🕘 عرض المنطقة الزمنية للمرسل...
👩🏼🤝👩🏻 جهات الاتصال والتقويم: إضافة جهات الاتصال دفعة واحدة من الرسائل المحددة / تقسيم مجموعة جهات الاتصال إلى مجموعات فردية / إزالة تذكير عيد الميلاد...
استخدم أدوات Kutools بلغتك المفضلة – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية، وأكثر من40 لغة أخرى!
افتح أدوات Kutools لـ Outlook فوراً بنقرة واحدة. لا تنتظر، حمِّله الآن وحقق كفاءة أعلى!

