Outlook-da ma'lum shaxslardan kelgan barcha elektron pochta xabarlarini qanday avtomatik ochish mumkin

Outlook yechimlari Sentyabr 29, 2025

Outlook ma'lum shaxslardan kelgan barcha elektron pochta xabarlarini avtomatik ravishda ochish xususiyatini ta'minlamaydi. Shunday qilib, ushbu maqola sizga bunday usulni ochib beradi.

Ishonchim komilki, siz o'ta muhim shaxslarning elektron pochta xabarlarini, masalan, boshlig'ingizning elektron pochta xabarlarini o'tkazib yuborishni xohlamaysiz. Bunday holda, pochta qutingizga bunday xatlar kelganida ma'lum bir ogohlantirishni ko'rsatish uchun Outlook qoidasidan foydalanishingiz mumkin. Bundan tashqari, Outlook-dan bunday elektron pochta xabarlarini avtomatik ochishni ham xohlashingiz mumkin. Garchi u Outlook qoidasi tomonidan qo'llab-quvvatlanmasa ham, uni Outlook VBA orqali amalga oshirishingiz mumkin. Endi, quyida biz sizga yordam berish uchun VBA kodining bir qismini ko'rsatamiz. Iltimos, uni olish uchun o'qing.

Muayyan shaxslardan kelgan barcha elektron pochta xabarlarini avtomatik ochish

S gatart bilan Outlook VBA muharririga “ ga murojaat qilib kiring.Outlook-da VBA kodini qanday ishlatish kerak".
Keyinchalik, "ThisOutlookSession" loyihasini oching va unga quyidagi VBA kodini nusxalang.

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

Shundan so'ng, restart ushbu makrosni faollashtirish uchun Outlook ilovangizga kiring.
Endi siz sinab ko'rishingiz mumkin. Muayyan jo'natuvchilardan kelgan elektron pochta xabarini Inbox-ga o'tkazish kifoya. Bir vaqtning o'zida ushbu elektron pochta o'z oynasida avtomatik ravishda ochiladi.

Zerikarli Outlook muammolarini hal qiling

Agar siz Outlook-dan o'nlab yillar davomida foydalangan bo'lsangiz, ehtimol siz turli xil xatolar va muammolarga duch kelgan bo'lishingiz mumkin. Masalan, qachon starOutlook-ni ishlatganda, siz Outlook PST faylingizga kirish imkoni yo'qligi haqida xato xabari oldingiz. Ushbu xato odatda PST buzilishini ko'rsatadi. Bunday holda, sizdan talab qilinadi PST ni tuzatish fayl. Agar siz faqat kirish qutisini ta'mirlash vositasidan foydalansangiz, bu juda murakkab bo'lishi mumkin. Shunga qaramay, agar siz kuchliroq va ishonchli vositaga murojaat qilsangiz, masalan DataNumen Outlook Repair, vazifa ancha oson bo'lar edi.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc sql-ni tuzatish va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com