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

or

Sut i aseinio categori lliw yn awtomatig i gyfarfodydd ar ôl eu derbyn yn Outlook?

Yn eich gwaith beunyddiol, efallai y byddwch yn derbyn sawl e-bost cyfarfod yn Outlook. Weithiau, rydych chi am neilltuo categori lliw penodol i gyfarfodydd yn awtomatig pan gânt eu derbyn. Fel rheol, gallwch eu haseinio â llaw, ond, bydd hyn yn drafferthus eu gosod fesul un. Yn yr erthygl hon, byddaf yn siarad am sut i'w gyflawni'n awtomatig yn Outlook.

Neilltuwch gategori lliw yn awtomatig i gyfarfodydd ar ôl eu derbyn gyda chod VBA


Neilltuwch gategori lliw yn awtomatig i gyfarfodydd ar ôl eu derbyn gyda chod VBA

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 neilltuo categori lliw i gyfarfodydd ar ôl eu derbyn

Public WithEvents SentItems As Outlook.Items
Private Sub Application_Startup()
    Set SentItems = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail).Items
End Sub
Private Sub SentItems_ItemAdd(ByVal Item As Object)
Dim xMeetingItem As Outlook.MeetingItem
Dim xMeetingItemAccepted As Outlook.MeetingItem
Dim xAppointmentItem As Outlook.AppointmentItem
On Error Resume Next
If TypeOf Item Is MeetingItem Then
    Set xMeetingItem = Item
    If InStr(xMeetingItem.Subject, "Accepted:") = 1 Then
        Set xMeetingItemAccepted = xMeetingItem
        Set xAppointmentItem = xMeetingItemAccepted.GetAssociatedAppointment(True)
        With xAppointmentItem
            .Categories = .Categories & "Red Category"
            .Save
        End With
    End If
End If
End Sub

doc auto categoreiddio cyfarfodydd 1

Nodyn: Yn y cod uchod, gallwch chi newid Categori Coch i'ch enw categori lliw a ddymunir.

3. Ac yna, ailgychwynwch eich Camre i sbarduno'r macro hwn.

4. Yna, ar ôl derbyn e-bost y cyfarfod, a chlicio Anfonwch yr Ymateb Nawr opsiwn, bydd y categori lliw penodol yn cael ei neilltuo i'r cyfarfod a dderbynnir ar unwaith. Gweler y screenshot:

doc auto categoreiddio cyfarfodydd 2

Nodyn: Dim ond i'r cyfrif data diofyn y cymhwysir y cod hwn.


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.

Be the first to comment.