Hogyan lehet automatikusan megnyitni az összes bejövő e-mailt bizonyos személyektől az Outlookban

Az Outlook nem biztosít olyan funkciót, amely automatikusan megnyitja az összes bejövő e-mailt bizonyos személyektől. Ezért ez a cikk egy ilyen módszert mutat be Önnek.

Biztos, hogy nem szeretne lemaradni a rendkívül fontos személyektől származó e-mailekről, például a felettesétől. Ebben az esetben használhatja az Outlook-szabályt egy adott riasztás megjelenítésére, amikor ilyen e-mailek érkeznek a postafiókjába. Ezen kívül azt is kívánhatja, hogy az Outlook automatikusan nyissa meg az ilyen e-maileket. Bár az Outlook szabály nem támogatja, az Outlook VBA-n keresztül mégis megvalósíthatja. A következőkben bemutatunk egy VBA-kódot, amely segít Önnek. Kérjük, olvassa el, hogy megkapja.

Bizonyos személyektől érkező összes bejövő e-mail automatikus megnyitása

1. A start segítségével nyissa meg az Outlook VBA szerkesztőt a „A VBA kód futtatása az Outlookban".
2. Ezt követően nyissa meg a „ThisOutlookSession” projektet, és másolja bele a következő VBA-kódot.

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. Ezt követően restart az Outlook alkalmazásban a makró aktiválásához.
4. Most kipróbálhatod. Csak helyezzen át egy adott feladótól származó e-mailt a Beérkezett üzenetek mappába. Ez az e-mail azonnal automatikusan megnyílik a saját ablakában.

Oldja meg a bosszantó Outlook-problémákat

Feltéve, hogy évtizedek óta használja az Outlookot, nagyon valószínű, hogy különféle hibákkal és problémákkal találkozott. Például amikor starAz Outlook programban hibaüzenetet kapott, amely szerint az Outlook PST-fájlja nem érhető el. Ez a hiba általában a PST korrupcióját jelzi. Ebben az esetben kötelező lenne javítsd ki a PST-t fájlt. Meglehetősen csomós lehet, ha csak a beérkező levelek javítóeszközét használja. Mégis, ha erősebb és megbízhatóbb eszközt vesz igénybe, mint pl DataNumen Outlook Repair, a feladat sokkal könnyebb lenne.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve sql javítás és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com