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. Til start med, få tilgang til Outlook VBA-editor 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. Etter det, restart Outlook-programmet 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

Forutsatt at du har brukt Outlook i flere tiår, er det svært sannsynlig at du må ha kommet over diverse feil og problemer. For eksempel når starNår du har Outlook, mottok du en feilmelding som nevner at Outlook PST-filen er utilgjengelig. Denne feilen indikerer vanligvis PST-korrupsjon. I dette tilfellet må du gjøre det 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