كيفية نقل البريد الإلكتروني إلى مجلد محدد بعد تعيين فئة معينة في Outlook؟

لنفترض أنك قمت بتعيين فئة لبريد إلكتروني مستلم في Outlook الخاص بك، وبعد تعيين الفئة، تريد أن يتم نقل هذا البريد تلقائيًا إلى مجلد بريد إلكتروني معين يحمل اسم الفئة. على سبيل المثال، سيتم نقل البريد الإلكتروني الذي تم تعيينه بالفئة “خاصة” إلى مجلد باسم “خاصة” في Outlook الخاص بك. كيف يمكنك تحقيق ذلك؟ الطريقة الموجودة في هذه المقالة يمكن أن تساعدك في حل المشكلة بسهولة.

نقل البريد الإلكتروني إلى مجلد محدد بعد تعيين فئة معينة باستخدام VBA

نقل البريد الإلكتروني إلى مجلد محدد بعد تعيين فئة معينة باستخدام VBA

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

1. اضغط على مفتاحي Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. في نافذة Microsoft Visual Basic for Applications، انقر نقرًا مزدوجًا لفتح نافذة ThisOutlookSession (Code). ثم انسخ الشفرة البرمجية VBA أدناه في النافذة. انظر لقطة الشاشة:

الشفرة البرمجية VBA: نقل البريد الإلكتروني إلى مجلد محدد بعد تعيين فئة معينة

Private WithEvents xInboxFld As Outlook.Folder
Private WithEvents xInboxItems As Outlook.Items

Private Sub Application_Startup()
    Set xInboxFld = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set xInboxItems = xInboxFld.Items
End Sub

Private Sub xInboxItems_ItemChange(ByVal Item As Object)
Dim xMailItem As Outlook.MailItem
Dim xFlds As Outlook.Folders
Dim xFld As Outlook.Folder
Dim xTargetFld As Outlook.Folder
Dim xFlag As Boolean
On Error Resume Next
If Item.Class = olMail Then
    Set xMailItem = Item
    xFlag = False
    If xMailItem.Categories <> "" Then
        Set xFlds = Application.Session.GetDefaultFolder(olFolderInbox).Folders
        If xFlds.Count <> 0 Then
            For Each xFld In xFlds
                If xFld.Name = xMailItem.Categories Then
                    xFlag = True
                End If
            Next
        End If
        If xFlag = False Then
            Application.Session.GetDefaultFolder(olFolderInbox).Folders.Add xMailItem.Categories, olFolderInbox
        End If
        Set xTargetFld = Application.Session.GetDefaultFolder(olFolderInbox).Folders(xMailItem.Categories)
        xMailItem.Move xTargetFld
    End If
End If
End Sub

3. احفظ الشفرة وأعد تشغيل Outlook.

4. من الآن فصاعدًا، عند تعيين فئة لبريد إلكتروني مستلم، سيتم إنشاء مجلد باسم الفئة تلقائيًا أسفل مجلد صندوق الوارد مع نقل البريد إليه. انظر لقطة الشاشة:

ملاحظة: سيتم نقل جميع رسائل البريد الإلكتروني التي تم تعيينها بنفس الفئة تلقائيًا إلى نفس المجلد. ولكن إذا تم تعيين فئة جديدة إلى بريد إلكتروني، فسيتم إنشاء مجلد جديد تلقائيًا.

مساعد البريد الإلكتروني الذكي في Outlook: ردود أذكى، تواصل أوضح (سحر بنقرة واحدة!) مجانًا

قم بتبسيط مهام Outlook اليومية باستخدام مساعد البريد الإلكتروني الذكي من أدوات Kutools لـ Outlook. هذا الأداة القوية تتعلم من رسائل البريد الإلكتروني السابقة لتقدم ردودًا ذكية ودقيقة، تحسين محتوى البريد الإلكتروني، وتساعدك على صياغة وتحسين الرسائل بسهولة.

هذه الميزة تدعم:

• ردود ذكية: احصل على ردود مصممة من محادثاتك السابقة - مخصصة، دقيقة وجاهزة للإرسال.
• تحسين المحتوى: قم بتحسين نصوص البريد الإلكتروني تلقائيًا لتحقيق الوضوح والتأثير.
• الكتابة السهلة: فقط قدم الكلمات المفتاحية، ودع الذكاء الاصطناعي يتولى الباقي، مع أساليب كتابة متعددة.
• التوسعات الذكية: قم بتوسيع أفكارك باقتراحات تعتمد على السياق.
• الملخصات: احصل على ملخصات مختصرة للرسائل الطويلة فورًا.
• التواصل العالمي: قم بترجمة رسائل البريد الإلكتروني إلى أي لغة بسهولة.

هذه الميزة تدعم:

• ردود البريد الإلكتروني الذكية
• المحتوى المُحسّن
• المسودات المستندة إلى الكلمات المفتاحية
• التوسع الذكي للمحتوى
• تلخيص البريد الإلكتروني
• الترجمة متعددة اللغات

الأفضل من كل هذا، هذه الميزة مجانية تمامًا للأبد! لا تنتظر—حمّل مساعد البريد الإلكتروني الذكي الآن واستمتع

مقالات ذات صلة:

• كيفية تعيين فئة للبريد الصادر في Outlook؟
• كيفية الاحتفاظ بالفئات الأصلية عند الرد أو إعادة توجيه البريد الإلكتروني في Outlook؟