Slik åpner du automatisk alle innkommende e-poster fra bestemte personer i Outlook

Outlook har ikke en funksjon som automatisk åpner alle innkommende e-poster fra bestemte personer. Derfor vil denne artikkelen avsløre en slik metode for deg.

Det er sikkert at du ikke vil gå glipp av noen e-poster fra de ekstremt viktige personene, for eksempel e-postene fra din overordnede. I dette tilfellet kan du bruke Outlook-regelen for å vise et bestemt varsel når slike e-poster kommer inn i postkassen din. Bortsett fra dette kan du også ønske at Outlook automatisk åpner slike e-poster. Selv om det ikke støttes av Outlook-regelen, kan du fortsatt realisere det via Outlook VBA. Nå, i det følgende, vil vi avsløre et stykke VBA-kode for å hjelpe deg. Vennligst les videre for å få det.

Automatisk åpne alle innkommende e-poster fra bestemte personer

1. For å begynne med, få tilgang til Outlook VBA-editoren ved å referere til «Hvordan kjøre VBA-kode i Outlook".
2. Deretter åpner du "ThisOutlookSession" -prosjektet og kopierer følgende VBA-kode inn i det.

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. Deretter starter du Outlook-programmet på nytt for å aktivere denne makroen.
4. Nå kan du prøve. Bare flytt en e-post som er fra bestemte avsendere til Inbox. Med en gang vil denne e-posten automatisk åpnes i sitt eget vindu.

Løs irriterende Outlook-problemer

Gitt at du har brukt Outlook i flere tiår, er det svært sannsynlig at du har støtt på diverse feil og problemer. For eksempel, når du starter Outlook, får du en feilmelding som sier at Outlook PST-filen din er utilgjengelig. Denne feilen indikerer vanligvis PST-korrupsjon. I dette tilfellet må du fikse PST fil. Det kan være betydelig knotete hvis du bare bruker reparasjonsverktøyet for innboksen. Likevel, hvis du bruker et kraftigere og mer pålitelig verktøy, for eksempel DataNumen Outlook Repair, ville oppgaven være mye enklere.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert fikse sql og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med