Note: The other languages of the website are Google-translated. Back to English
Mewngofnodi  \/ 
x
or
x
Cofrestru  \/ 
x

or

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

Yn ein gwaith beunyddiol, efallai bod llawer o negeseuon e-bost yn cyrraedd ein Camre, yn yr achos hwn, efallai y byddwch yn anwybyddu rhai negeseuon e-bost pwysig gan berson penodol. Er mwyn osgoi colli rhai negeseuon e-bost pwysig gan rywun, gallwch wneud i'r e-byst agor yn awtomatig wrth gyrraedd eich Camre. Yn yr erthygl hon, byddaf yn cyflwyno cod VBA ar gyfer agor pob e-bost sydd gan anfonwr penodol.

Agorwch bob e-bost sy'n dod i mewn o berson penodol yn awtomatig gyda chod VBA


Agorwch bob e-bost sy'n dod i mewn o berson penodol yn awtomatig gyda chod VBA

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

1. Daliwch 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 Prosiect1 (VbaProject.OTM) cwarel i agor y modd, ac yna copïo a gludo'r cod canlynol i'r modiwl gwag.

Cod VBA: Auto yn agor pob 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

e-byst agored doc gan anfonwr 1

Nodyn: Yn y cod uchod, gallwch newid cyfeiriadau'r anfonwyr i'ch un chi.

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

e-byst agored doc gan anfonwr 2


Kutools for Outlook - Yn Dod â 100 o Nodweddion Uwch i'w Rhagweld, a Gwneud Gwaith yn Haws Osgach!

  • Auto CC / BCC yn ôl rheolau wrth anfon e-bost; Auto Ymlaen E-byst Lluosog yn ôl arfer; Ymateb Auto heb weinydd cyfnewid, a nodweddion mwy awtomatig ...
  • Rhybudd BCC - dangoswch neges pan geisiwch ateb popeth os yw'ch cyfeiriad post yn rhestr BCC; Atgoffwch Wrth Ymlyniadau ar Goll, a mwy o nodweddion atgoffa ...
  • Ymateb (Pawb) Gyda'r Holl Atodiadau yn y sgwrs bost; Ateb Llawer o E-byst mewn eiliadau; Auto Ychwanegu Cyfarchiad wrth ateb; Ychwanegu Dyddiad i'r pwnc ...
  • Offer Ymlyniad: Rheoli Pob Atodiad ym mhob Post, Datgysylltiad Auto, Cywasgu Pawb, Ail-enwi Pawb, Arbed Pawb ... Adroddiad Cyflym, Cyfrif Postiau Dethol...
  • E-byst Sothach Pwerus yn ôl arfer; Tynnwch y Post a Chysylltiadau Dyblyg... Yn eich galluogi i wneud yn ddoethach, yn gyflymach ac yn well yn Outlook.
tab kutools rhagweld kutools tab 1180x121
kutools rhagweld rhagolygon kutools ynghyd â thab 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    aashish · 1 years ago
    did not work on my case i restarted i added 4 email address.