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

في عملنا اليومي، قد تصل إلى حساب 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 لتفعيل الكود. ومن الآن فصاعدًا، سيتم فتح الرسائل الواردة من الأشخاص الذين حددتهم تلقائيًا. انظر لقطة الشاشة: