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 symud yn awtomatig cyfarfodydd a anfonir at ffolder penodol yn Outlook?

Fel arfer, ar ôl anfon yr e-byst neu gyfarfodydd, bydd y ddau ohonynt wedi'u lleoli yn y ffolder Eitemau Anfonedig. Felly, bydd y ffolder Eitemau a Anfonwyd yn eithaf anhyblyg ac yn galed. Yr erthygl hon, byddaf yn cyflwyno dull ar gyfer symud y cyfarfodydd a anfonir i ffolder arall yn awtomatig ar ôl i'r cyfarfod gael ei anfon allan.

Symud y cyfarfodydd a anfonwyd yn awtomatig at ffolder penodol gyda chod VBA


Symud y cyfarfodydd a anfonwyd yn awtomatig at ffolder penodol gyda chod VBA

I symud pob gwahoddiad cyfarfod a anfonwyd i ffolder arall yn awtomatig, gall y cod 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: Symud y cyfarfodydd a anfonir yn awtomatig at ffolder penodol

PreEndodiadau Preifat GExplorer Fel Outlook.Explorer Public WithEvents GSentFolder Fel Outlook.Folder Public WithEvents GSentItems Fel Outlook.Items Private Application Application (Set) GExplorer = Outlook.Application.ActiveExplorer End Sub Private Sub GExplorer_SelectionChange () Dim xFolder Fel Folder, xRootFolder Fel Folder Dim xRootFldName Fel String Dim xPos Fel Ymatal Ar Gwall Dechreuwch Gosod Nesaf xFolder = Outlook.Application.ActiveExplorer.CurrentFolder xPos = VBA.InStr (3, xFolder.FolderPath, "\") Os xPos> 0 Yna xRootFldName = VBA.Mid (xFolder. FolderPath, 3, xPos - 3) Else xRootFldName = VBA.Mid (xFolder.FolderPath, 3, Len (xFolder.FolderPath) - 2) Diwedd Os Set xRootFolder = Outlook.Application.Session.Folders (xRootFldName) Gosod GSentFolder = xRootFolder. Folders ("Eitemau a Ddefnyddiwyd") Gosodwch GSentItems = GSentFolder.Items Is-Gynnwys Preifat Is-GSentItems_ItemAdd (Gan Eitem Fel Gwrthwynebiad) Dim xMeetingItem Fel Outlook.MeetingItem Dim xTargetFolder Fel Outlook.Folder Ar Gwall Yn Ailddechrau Nesaf Os Ite m.Class <> olMeetingRequest Yna Gosod Allanol xMeetingItem = Eitem Set xTargetFolder = GSentFolder.Folders ("Cyfarfodydd") Os nad yw xTargetFolder Does Dim Yna, Gosod xTargetFolder = GSentFolder.Folders.Add ("Cyfarfodydd") Diwedd Os xMeetingItem.Move xTargetFolder End Sub

symudodd yr anfonwyd cyfarfod 1

3. Yna, arbed a chau'r ffenestr cod. Nawr, pan anfonir e-bost cyfarfod, bydd yn symud i ffolder newydd a enwir cyfarfodydd O dan y Eitemau wedi'u hanfon ffolder yn awtomatig, gweler y sgrin:

symudodd yr anfonwyd cyfarfod 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.