Leid: Aistrítear Google-theangacha eile. Is féidir leat cuairt a thabhairt ar an English leagan den nasc seo.
Logáil isteach
x
or
x
x
Cláraigh
x

or

Conas gach ríomhphost atá ag teacht isteach ó dhuine ar leith a oscailt go huathoibríoch i Outlook?

In ár gcuid oibre laethúil, 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. D'fhonn roinnt ríomhphoist thábhachtacha a sheachaint ó dhuine, is féidir leat na ríomhphoist a oscailt go huathoibríoch nuair a thagann tú isteach i do Outlook. San Airteagal seo, tabharfaidh mé cód VBA isteach chun gach ríomhphost a oscailt ó sheoltóir ar leith.

Oscail gach ríomhphost atá ag teacht le duine ar leith go huathoibríoch le cód VBA


Oscail gach ríomhphost atá ag teacht le duine 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:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d'Iarratais fhuinneog.

2. Sa an Microsoft Visual Basic d'Iarratais fuinneog, cliceáil dúbailte ThisOutlookSession ó na Project1 (VbaProject.OTM) pane chun an modh a oscailt, agus 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 gach duine ó dhuine ar leith:

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 = "yy@addin99.com;applemiemie@163.com"
    If InStr(xSenders, xMailItem.SenderEmailAddress) = 0 Then Exit Sub
    xMailItem.Display
End Sub

doc ríomhphoist oscailte ag 1 seoltóir

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

3. Ansin, sábháil agus dún an fhuinneog cód seo. Athshlánú ar an Outlook chun an cód a dhéanamh a bheith éifeachtach, as seo amach, nuair a bhíonn na ríomhphoist ag teacht ó na daoine a shonraigh tú, beidh gach ceann acu ar oscailt go huathoibríoch. Féach ar an scáileán:

doc ríomhphoist oscailte ag 2 seoltóir



Kutools le haghaidh Outlook

Níos mó ná 100 Feidhmeanna Casta le haghaidh Outlook 2010, 2013, 2016, 2019 agus 365

Scáileán ar nósanna imeachta le haghaidh dearcadh bídeach don bhratach 201812

Gnéithe níos mó | Free Download | Níl ach $ 39.00 ar na céadta feidhmeanna

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.