Kā automātiski atvērt visus ienākošos e-pastus no konkrētām personām programmā

Outlook nenodrošina funkciju, lai automātiski atvērtu visus ienākošos e-pastus no konkrētām personām. Tādējādi šis raksts jums atklās šādu metodi.

Ir skaidrs, ka nevēlaties palaist garām nevienu ārkārtīgi svarīgu personu e-pasta ziņojumu, piemēram, sava priekšnieka e-pastus. Šajā gadījumā varat izmantot Outlook kārtulu, lai parādītu konkrētu brīdinājumu, kad šādi e-pasta ziņojumi nonāk jūsu pastkastē. Bez tam, jūs varat arī vēlēties, lai Outlook automātiski atvērtu šādus e-pastus. Lai gan Outlook kārtula to neatbalsta, tomēr to var realizēt, izmantojot Outlook VBA. Turpmāk mēs atklāsim daļu VBA koda, kas jums palīdzēs. Lūdzu, izlasiet, lai to iegūtu.

Automātiski atvērt visus ienākošos e-pastus no konkrētām personām

1. Uz start, piekļūstiet Outlook VBA redaktoram, atsaucoties uzKā palaist VBA kodu programmā Outlook".
2. Pēc tam atveriet projektu “ThisOutlookSession” un iekopējiet tajā šādu VBA kodu.

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. Pēc tam reztart, lai aktivizētu šo makro, savu Outlook lietojumprogrammu.
4. Tagad jūs varat izmēģināt. Vienkārši pārvietojiet e-pastu no konkrētiem sūtītājiem uz iesūtni. Uzreiz šis e-pasts tiks automātiski atvērts savā logā.

Atrisiniet kaitinošas perspektīvas problēmas

Ja esat izmantojis programmu Outlook gadu desmitiem, ļoti iespējams, ka esat saskāries ar dažādām kļūdām un nepatikšanām. Piemēram, kad starPēc jūsu Outlook saņemat kļūdas ziņojumu, kurā minēts, ka jūsu Outlook PST fails nav pieejams. Šī kļūda parasti norāda uz PST korupciju. Šajā gadījumā jums to prasīs noteikt PST failu. Tas varētu būt ievērojami mezglains, ja izmantojat tikai iesūtnes labošanas rīku. Tomēr, ja izmantojat jaudīgāku un uzticamāku rīku, piemēram, DataNumen Outlook Repair, uzdevums būtu daudz vienkāršāks.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp labot kv un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar