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 SesiwnOutlook 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 = ";"
If InStr(xSenders, xMailItem.SenderEmailAddress) = 0 Then Exit Sub
xMailItem.Display
End Sub
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:
Offer Cynhyrchiant Swyddfa Gorau
Kutools ar gyfer Rhagolwg - Dros 100 o Nodweddion Pwerus i Werthu Eich Outlook
🤖 Cynorthwy-ydd Post AI: E-byst pro ar unwaith gyda hud AI - un clic i atebion athrylith, tôn berffaith, meistrolaeth amlieithog. Trawsnewid e-bostio yn ddiymdrech! ...
📧 E-bostio Automation: Allan o'r Swyddfa (Ar gael ar gyfer POP ac IMAP) / Amserlen Anfon E-byst / Auto CC/BCC gan Reolau Wrth Anfon E-bost / Awto Ymlaen (Rheolau Uwch) / Auto Ychwanegu Cyfarchiad / Rhannwch E-byst Aml-Dderbynnydd yn Negeseuon Unigol yn Awtomatig ...
📨 Rheoli E-bost: Dwyn i gof E-byst yn Hawdd / Rhwystro E-byst Sgam gan Bynciau ac Eraill / Dileu E-byst Dyblyg / Chwilio Manwl / Cydgrynhoi Ffolderi ...
📁 Ymlyniadau Pro: Arbed Swp / Swp Datgysylltu / Cywasgu Swp / Auto Achub / Datgysylltiad Auto / Cywasgiad Auto ...
🌟 Rhyngwyneb Hud: 😊Mwy o Emojis Pretty a Cŵl / Rhowch hwb i'ch Cynhyrchiant Outlook gyda Golygfeydd Tabbed / Lleihau Outlook Yn lle Cau ...
???? Rhyfeddodau un clic: Ateb Pawb ag Ymlyniadau Dod i Mewn / E-byst Gwrth-Gwe-rwydo / 🕘Dangos Parth Amser yr Anfonwr ...
👩🏼🤝👩🏻 Cysylltiadau a Chalendr: Swp Ychwanegu Cysylltiadau O E-byst Dethol / Rhannwch Grŵp Cyswllt i Grwpiau Unigol / Dileu Atgoffa Pen-blwydd ...
Dros Nodweddion 100 Aros Eich Archwiliad! Cliciwch Yma i Ddarganfod Mwy.