Kaip automatiškai atidaryti visus gaunamus el. laiškus iš konkrečių asmenų programoje „Outlook“.

„Outlook“ nesuteikia funkcijos, leidžiančios automatiškai atidaryti visus gaunamus el. laiškus iš konkrečių asmenų. Taigi, šis straipsnis jums parodys tokį metodą.

Neabejotina, kad nenorite praleisti jokių itin svarbių asmenų laiškų, pavyzdžiui, laiškų nuo savo viršininko. Tokiu atveju galite naudoti „Outlook“ taisyklę, kad būtų rodomas konkretus įspėjimas, kai tokie el. laiškai patenka į jūsų pašto dėžutę. Be to, galbūt norėsite, kad „Outlook“ automatiškai atidarytų tokius el. Nors jos nepalaiko „Outlook“ taisyklė, vis tiek galite tai įgyvendinti naudodami „Outlook VBA“. Dabar mes parodysime VBA kodo dalį, kuri jums padės. Skaitykite toliau, kad gautumėte.

Automatiškai atidarykite visus gaunamus el. laiškus iš konkrečių asmenų

1. Į start su, pasiekite „Outlook VBA“ redaktorių, nurodydami „Kaip paleisti VBA kodą „Outlook“.".
2. Tada atidarykite projektą „ThisOutlookSession“ ir nukopijuokite į jį šį VBA kodą.

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. Po to atstart savo „Outlook“ programą, kad suaktyvintumėte šią makrokomandą.
4. Dabar galite pabandyti. Tiesiog perkelkite el. laišką iš konkrečių siuntėjų į gautuosius. Iš karto šis el. laiškas bus automatiškai atidarytas atskirame lange.

Išspręskite erzinančias Outlook problemas

Jei „Outlook“ naudojote dešimtmečius, labai tikėtina, kad susidūrėte su įvairiomis klaidomis ir nesklandumais. Pavyzdžiui, kai star„Outlook“ gavote klaidos pranešimą, kuriame minima, kad „Outlook PST“ failas nepasiekiamas. Ši klaida paprastai rodo PST pažeidimą. Tokiu atveju jums reikės pataisyti PST failą. Jei naudosite tik gautųjų taisymo įrankį, tai gali būti labai sudėtinga. Tačiau jei pasinaudosite galingesniu ir patikimesniu įrankiu, pvz DataNumen Outlook Repair, užduotis būtų daug lengvesnė.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant pataisyti sql ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com