Mae cwcis yn ein helpu i gyflwyno ein gwasanaethau. Drwy ddefnyddio ein gwasanaethau, rydych yn cytuno i'n defnydd cwcis.
Tip: Mae ieithoedd eraill yn Google-Cyfieithu. Gallwch ymweld â'r English fersiwn o'r ddolen hon.
Mewngofnodi
x
or
x
x
cofrestr
x

or

Sut i agor yr holl negeseuon e-bost sy'n dod i mewn gan berson penodol yn awtomatig yn Outlook?

Yn ein gwaith beunyddiol, efallai bod nifer o negeseuon e-bost yn cyrraedd yn ein Outlook, yn yr achos hwn, fe allwch anwybyddu rhai negeseuon e-bost pwysig gan berson penodol. Er mwyn osgoi colli rhai negeseuon e-bost pwysig gan rywun, gallwch wneud y negeseuon e-bost yn awtomatig wrth gyrraedd eich Outlook. Yn yr erthygl hon, byddaf yn cyflwyno cod VBA ar gyfer agor yr holl negeseuon e-bost sydd o anfonwr penodol.

Agorwch yr holl negeseuon e-bost sy'n dod i mewn yn ffurfio person penodol yn awtomatig gyda chod VBA


Agorwch yr holl negeseuon e-bost sy'n dod i mewn yn ffurfio person penodol yn awtomatig gyda chod VBA

I agor negeseuon e-bost gan berson penodol yn awtomatig, gall y cod VBA canlynol eich helpu, gwnewch fel hyn:

1. Dal i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch ddwywaith ThisOutlookSession oddi wrth y Project1 (VbaProject.OTM) pane i agor y modd, ac wedyn copïwch a gludwch y cod canlynol yn y modiwl gwag.

Cod VBA: Yn agor agor pob negeseuon e-bost gan berson penodol:

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 negeseuon agored trwy anfonwr 1

Nodyn: Yn y cod uchod, gallwch newid cyfeiriadau'r anfonwyr i'ch pen eich hun.

3. Yna, arbed a chau'r ffenestr cod hon. Ailgychwyn yr Outlook i sicrhau bod y cod yn dod i rym, o hyn ymlaen, pan fydd yr e-byst yn cyrraedd o'r personau a nodwyd gennych, bydd pob un ohonynt ar agor yn awtomatig. Gweler y sgrin:

doc negeseuon agored trwy anfonwr 2



Kutools ar gyfer Outlook

Mwy na Swyddogaethau Uwch 100 ar gyfer Outlook 2010, 2013, 2016, 2019 a 365

sgrinio kutools ar gyfer rhagolygon bach ar gyfer baner 201812

Mwy o Nodweddion | Lawrlwythiad Am Ddim | $ 39.00 yn unig ar gyfer cannoedd o swyddogaethau

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.