Conas gach ríomhphost a thagann isteach ó dhuine ar leith a oscailt go huathoibríoch in Outlook?

Inár gcuid oibre laethúla, b’fhéidir go bhfuil go leor ríomhphoist ag teacht isteach inár Outlook, sa chás seo, féadfaidh tú neamhaird a dhéanamh ar roinnt ríomhphoist thábhachtacha ó dhuine ar leith. Chun roinnt ríomhphoist thábhachtacha ó dhuine a sheachaint, féadfaidh tú na ríomhphoist a oscailt go huathoibríoch agus tú ag teacht isteach i do Outlook. San Airteagal seo, tabharfaidh mé isteach cód VBA chun gach ríomhphost a oscailt ó sheoltóir ar leith.

Oscail gach ríomhphost a thagann isteach ó dhuine ar leith go huathoibríoch le cód VBA

Oscail gach ríomhphost a thagann isteach ó dhuine ar leith go huathoibríoch le cód VBA

Chun na ríomhphoist a oscailt go huathoibríoch ó dhuine ar leith, is féidir leis an gcód VBA seo a leanas cabhrú leat, déan mar seo le do thoil:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Sa an Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil dúbailte ThisOutlookSession ó na Tionscadal1 (VbaProject.OTM) pána chun an modh a oscailt, agus ansin an cód seo a leanas a chóipeáil agus a ghreamú isteach sa mhodúl bán.

Cód VBA: Oscail gach ríomhphost ó dhuine ar leith go huathoibríoch:

Public WithEvents GInboxFolder As Outlook.Folder
Public WithEvents GInboxItems As Outlook.Items
Private Sub Application_Startup()
    Set GInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set GInboxItems = GInboxFolder.Items
End Sub
Private Sub GInboxItems_ItemAdd(ByVal Item As Object)
    Dim xMailItem As Outlook.MailItem
    Dim xSenders As String
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xMailItem = Item
    xSenders = ";"
    If InStr(xSenders, xMailItem.SenderEmailAddress) = 0 Then Exit Sub
    xMailItem.Display
End Sub

ríomhphoist oscailte doc de réir seoltóra 1

nótaí: Sa chód thuas, is féidir leat seoltaí na seoltóirí a athrú go dtí do cheann féin.

3. Ansin, sábháil agus dún an fhuinneog cód seo. Atosaigh an Outlook chun go dtiocfaidh an cód i bhfeidhm, as seo amach, nuair a bheidh na ríomhphoist a thagann ó na daoine a shonraigh tú, beidh siad ar fad oscailte go huathoibríoch. Féach an pictiúr:

ríomhphoist oscailte doc de réir seoltóra 2