كيفية فتح جميع رسائل البريد الإلكتروني الواردة من شخص معين تلقائيًا في Outlook؟

Author: Xiaoyang Last Modified: 2025-08-06

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

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

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

لفتح رسائل البريد الإلكتروني تلقائيًا من شخص معين، يمكن أن يساعدك الكود التالي لـ VBA، يرجى القيام بما يلي:

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

2. في نافذة Microsoft Visual Basic for Applications، انقر نقرًا مزدوجًا فوق ThisOutlookSession من لوحة Project1(VbaProject.OTM) لفتح النموذج، ثم قم بنسخ ولصق الكود التالي في الوحدة الفارغة.

كود VBA: فتح جميع رسائل البريد الإلكتروني تلقائيًا من شخص معين:

Public WithEvents GInboxFolder As Outlook.Folder
Public WithEvents GInboxItems As Outlook.Items
Private Sub Application_Startup()
    Set GInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set GInboxItems = GInboxFolder.Items
End Sub
Private Sub GInboxItems_ItemAdd(ByVal Item As Object)
    Dim xMailItem As Outlook.MailItem
    Dim xSenders As String
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xMailItem = Item
    xSenders = "yy@addin99.com;applemiemie@163.com"
    If InStr(xSenders, xMailItem.SenderEmailAddress) = 0 Then Exit Sub
    xMailItem.Display
End Sub

ملاحظة: في الكود أعلاه، يمكنك تغيير عناوين المرسلين إلى العناوين الخاصة بك.

3. بعد ذلك، احفظ وأغلق نافذة الكود هذه. أعد تشغيل Outlook لجعل الكود يعمل، ومن الآن فصاعدًا، عندما تصل الرسائل من الأشخاص الذين حددتهم، سيتم فتحها جميعًا تلقائيًا. انظر لقطة الشاشة: