Outlook-da xüsusi şəxslərdən gələn bütün e-poçtları necə avtomatik açmaq olar

Outlook Həlləri Sentyabr 29, 2025

Outlook müəyyən şəxslərdən gələn bütün e-poçtları avtomatik açmaq funksiyasını təmin etmir. Beləliklə, bu məqalə sizə belə bir üsul təqdim edəcəkdir.

Əminik ki, son dərəcə vacib şəxslərdən gələn məktubları, məsələn, rəhbərinizdən gələn məktubları qaçırmaq istəmirsiniz. Bu halda, belə e-poçtlar poçt qutunuza gələndə xüsusi xəbərdarlıq göstərmək üçün Outlook qaydasından istifadə edə bilərsiniz. Bundan əlavə, Outlook-un belə e-poçtları avtomatik açmasını da istəyə bilərsiniz. Outlook qaydası tərəfindən dəstəklənməsə də, siz hələ də Outlook VBA vasitəsilə həyata keçirə bilərsiniz. İndi, aşağıda sizə kömək etmək üçün VBA kodunun bir hissəsini təqdim edəcəyik. Onu əldə etmək üçün oxuyun.

Xüsusi şəxslərdən gələn bütün e-poçtları avtomatik açın

Start ilə Outlook VBA redaktoruna müraciət edərək “Outlook-da VBA kodunu necə işlətmək olar".
Daha sonra “ThisOutlookSession” layihəsini açın və aşağıdakı VBA kodunu ona kopyalayın.

Public WithEvents objInbox As Outlook.Folder
Public WithEvents objInboxItems As Outlook.Items

Private Sub Application_Startup()
    Set objInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set objInboxItems = objInbox.Items
End Sub

'Occurs when incoming emails arrive in Inbox
Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim strSenders As String
    Dim varSenders As Variant
    Dim i As Long
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'Change the specific persons
       strSenders = "bob_black@datanumen.com; shelly@datanumen.com; kim@datanumen.com"
 
       varSenders = Split(strSenders, ";")
 
       'Open the emails from specific persons
       For i = 0 To UBound(varSenders)
           If objMail.SenderEmailAddress = varSenders(i) Then
              objMail.Display
              Exit For
           End If
       Next
    End If
End Sub

Bundan sonra, restart bu makronu aktivləşdirmək üçün Outlook proqramınızı seçin.
İndi cəhd edə bilərsiniz. Sadəcə xüsusi göndərənlərdən olan e-poçtu Gələnlər qutusuna köçürün. Bu e-poçt dərhal öz pəncərəsində avtomatik olaraq açılacaq.

Zəhlətökən Outlook problemlərini həll edin

Əgər onilliklər ərzində Outlook-dan istifadə etmisinizsə, çox güman ki, müxtəlif səhvlər və problemlərlə rastlaşmısınız. Məsələn, starOutlook-u istifadə edərkən, Outlook PST faylınızın əlçatmaz olduğunu qeyd edən xəta mesajı aldınız. Bu səhv adətən PST-nin pozulduğunu göstərir. Bu halda sizdən tələb olunacaq PST-ni düzəldin fayl. Yalnız gələnlər qutusunun təmiri alətindən istifadə etsəniz, bu, xeyli düyünlü ola bilər. Bununla belə, daha güclü və etibarlı bir vasitəyə müraciət etsəniz, məsələn DataNumen Outlook Repair, iş çox asan olardı.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc sql-ı düzəldin və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com