كيف يمكن تحويل المرفقات تلقائيًا بناءً على معايير محددة في 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 تلقائيًا بإعادة توجيه مرفقاته — دون نص الرسالة — إلى الشخص المطلوب.

ملاحظة: هذا الكود متاح للحساب الافتراضي فقط.