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

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

1. Başlamaq üçün Outlook VBA redaktoruna "" bölməsinə müraciət edərək daxil olun.Outlook-da VBA kodunu necə işlətmək olar".
2. 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

3. Bundan sonra, bu makronu aktivləşdirmək üçün Outlook tətbiqinizi yenidən başladın.
4. İ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

Outlook-dan on illərdir istifadə etdiyiniz təqdirdə, çox güman ki, müxtəlif səhvlər və problemlərlə qarşılaşmısınız. Məsələn, Outlook-u işə salarkən Outlook PST faylınızın əlçatan olmadığını bildirən bir səhv mesajı aldınız. Bu səhv adətən PST-nin zədələnməsini 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