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. Kezdésként nyissa meg az Outlook VBA szerkesztőt a következő hivatkozással: „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. Ezután indítsa újra az Outlook alkalmazást 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

Ha évtizedek óta használod az Outlookot, akkor valószínűleg már találkoztál különféle hibákkal és problémákkal. Például az Outlook indításakor hibaüzenetet kaptál, amely szerint az Outlook PST fájlod nem érhető el. Ez a hiba általában a PST fájl sérülését jelzi. Ebben az esetben a következőket kell tenned: 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