Outlook бағдарламасында нақты электрондық пошта хабарламаларын автоматты түрде қалай ашуға болады

Outlook шешімдері Қыркүйек 29, 2025
Қазір бөлісу:

Outlook бағдарламасы белгілі бір адамдардан келген барлық электрондық хаттарды автоматты түрде ашатын мүмкіндік бермейді. Осылайша, бұл мақала сізге осындай әдісті ашады.

Сіз өте маңызды адамдардан, мысалы, сіздің басшыңыздан келген электрондық хаттарды жіберіп алғыңыз келмейтініне сенімдісіз. Бұл жағдайда сіз осындай электрондық хаттар сіздің пошта жәшігіңізге келген кезде белгілі бір ескертуді көрсету үшін Outlook ережесін пайдалана аласыз. Сонымен қатар, сіз Outlook-қа осындай электрондық хаттарды автоматты түрде ашуын тілей аласыз. Оны Outlook ережесі қолдамаса да, оны Outlook VBA арқылы жүзеге асыра аласыз. Енді келесіде біз сізге көмектесу үшін VBA кодын ашамыз. Оны алу үшін оқыңыз.

Нақты адамдардан келетін барлық электрондық пошталарды автоматты түрде ашыңыз

  1. Кімгеtart көмегімен Outlook VBA редакторына «сілтеме жасай отырып қол жеткізіңіз.Outlook бағдарламасында VBA кодын қалай іске қосуға болады«.
  2. Кейіннен «ThisOutlookSession» жобасын ашып, оған келесі VBA кодын көшіріңіз.
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

VBA коды - нақты адамдардан келетін барлық электрондық хаттарды автоматты түрде ашыңыз

  1. Осыдан кейін, тtart макросты іске қосу үшін Outlook бағдарламасын.
  2. Енді сіз көріңіз. Тек белгілі бір жіберушілерден келген электрондық поштаны Кіріс қалтасына жылжытыңыз. Бірден бұл электрондық пошта өз терезесінде автоматты түрде ашылады.Белгілі бір адамнан электрондық пошта автоматты түрде ашылды

Жағымсыз көріністерді шешіңіз

Егер сіз ондаған жылдар бойы Outlook бағдарламасын қолданған болсаңыз, әр түрлі қателер мен қиындықтарға тап болуыңыз әбден мүмкін. Мысалы, starOutlook бағдарламасын түзетіп, сізде Outlook PST файлына қол жетімді еместігі туралы қате туралы хабарлама келді. Бұл қате әдетте PST бұзылуын көрсетеді. Бұл жағдайда сізден талап етіледі PST түзету файл. Егер сіз тек кіріс поштасын жөндеу құралын қолдансаңыз, бұл айтарлықтай түйінді болуы мүмкін. Алайда, егер сіз мықты және сенімді құралға жүгінсеңіз, мысалы DataNumen Outlook Repair, тапсырма әлдеқайда жеңіл болар еді.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. sql түзету және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com

Қазір бөлісу:

Пікірлер жабылды.