Note: The other languages of the website are Google-translated. Back to English

Outlook: Sut i gadw cyfarfod canslo yn y calendr fel trefnydd?

Yn Outlook, fel trefnydd cyfarfod, pan fyddwch chi'n canslo'r cyfarfod, bydd y cyfarfod yn cael ei ddileu'n awtomatig o'r calendr. Mewn rhai achosion, efallai y byddwch am gadw'r cyfarfodydd sydd wedi'u canslo yn y calendr i wneud rhai marciau. Fodd bynnag, nid oes unrhyw nodweddion adeiledig yn Outlook a all drin y swydd hon. Yn y tiwtorial hwn, mae'n darparu dau god VBA ar gyfer cadw'r cyfarfod fel apwyntiad wrth ganslo.

Codau VBA ar gyfer copïo cyfarfod wedi'i ganslo fel apwyntiad


Codau VBA ar gyfer copïo cyfarfod wedi'i ganslo fel apwyntiad

Dyma ddau god ar gyfer canslo’r cyfarfod a’i gopïo a’i gludo fel apwyntiad ar yr un pryd.

Nodyn: cyn i chi alluogi'r cod, gwnewch yn siŵr bod y ddau opsiwn hyn yn cael eu gwirio:

Galluogi Camre, cliciwch ffeil > Dewisiadau, yn ffenestr Outlook Options, cliciwch Canolfan yr Ymddiriedolaeth tab, a chlicio Gosodiadau Canolfan Ymddiriedolaeth, yna yn ffenestr Canolfan yr Ymddiriedolaeth, cliciwch Gosodiadau Macro tab, gwirio Galluogi pob macros (heb ei argymell; gall cod a allai fod yn beryglus redeg) ac Cymhwyso gosodiadau diogelwch macro i ychwanegion sydd wedi'u gosod opsiynau. Cliciwch OK > OK i gau y ffenestri. Ail-ddechrau Rhagolwg.

doc cadw'r cyfarfod yn y calendr 1

doc cadw'r cyfarfod yn y calendr 2

1. Swift i Outlook golwg Calendr, a dewiswch y cyfarfod yr ydych am ei ganslo Pwyswch Alt + F11 allweddi i alluogi ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau i fewnosod modiwl gwag newydd. Yna copïwch a gludwch y cod isod iddo.

Cod: Copïwch y cyfarfod fel apwyntiad a'i ganslo

Sub CopyMeetingAsAppointmentBeforeCancel()
'UpdatebyExtendoffice20221129
Dim xAppointmentItem As AppointmentItem
Dim xMeetingItem As AppointmentItem
On Error Resume Next
Set xMeetingItem = GetCurrentItem()
Set xAppointmentItem = Application.CreateItem(olAppointmentItem)
With xAppointmentItem
  .Subject = "Canceled: " & xMeetingItem.Subject
  .Start = xMeetingItem.Start
  .Duration = xMeetingItem.Duration
  .Location = xMeetingItem.Location
  .Body = xMeetingItem.Body
  .Save
  .Move Application.ActiveExplorer.CurrentFolder
End With
With xMeetingItem
  .MeetingStatus = olMeetingCanceled
  .Send
  .Delete
End With
Set xAppointmentItem = Nothing
Set xMeetingItem = Nothing
End Sub

Function GetCurrentItem() As Object
  On Error Resume Next
  Select Case TypeName(Application.ActiveWindow)
    Case "Explorer"
      Set GetCurrentItem = Application.ActiveExplorer.Selection.Item(1)
    Case "Inspector"
      Set GetCurrentItem = Application.ActiveInspector.CurrentItem
  End Select
End Function

doc cadw'r cyfarfod yn y calendr 3

3. Cliciwch Run botwm neu wasg F5 allweddol, nawr mae'r cyfarfod a ddewiswyd wedi'i ganslo ac apwyntiad newydd o'r enw Cancled & subjet.

doc cadw'r cyfarfod yn y calendr 4

Os ydych chi am gopïo a gludo'r cyfarfod fel apwyntiad mewn calendr arall ac yna canslo'r cyfarfod, defnyddiwch y cod isod:

Cod: Copïwch y cyfarfod fel apwyntiad mewn calendr arall a'i ganslo

Sub CopyMeetingAsAppointmentToCalenderBeforeCancel()
'Updatebyextendoffice20221129
Dim xDestCalendar As Outlook.MAPIFolder
Dim xNameSpace As Outlook.NameSpace
Dim xAppointmentItem As AppointmentItem
Dim xMeetingItem As AppointmentItem
On Error Resume Next
Set xNameSpace = Application.GetNamespace("MAPI")
Set xDestCalendar = xNameSpace.PickFolder
If xDestCalendar.DefaultItemType <> olAppointmentItem Then
  MsgBox "Please Select calendar folder. ", vbOKOnly + vbInformation, "Kutools for Outlook"
  Exit Sub
End If
Set xMeetingItem = GetCurrentItem()
Set xAppointmentItem = Application.CreateItem(olAppointmentItem)
With xAppointmentItem
  .Subject = "Canceled: " & xMeetingItem.Subject
  .Start = xMeetingItem.Start
  .Duration = xMeetingItem.Duration
  .Location = xMeetingItem.Location
  .Body = xMeetingItem.Body
  .Save
  .Move xDestCalendar
End With
With xMeetingItem
  .MeetingStatus = olMeetingCanceled
  .Send
  .Delete
End With
Set xDestCalendar = Nothing
Set xNameSpace = Nothing
Set xAppointmentItem = Nothing
Set xMeetingItem = Nothing
End Sub

Function GetCurrentItem() As Object
  On Error Resume Next
  Select Case TypeName(Application.ActiveWindow)
    Case "Explorer"
      Set GetCurrentItem = Application.ActiveExplorer.Selection.Item(1)
    Case "Inspector"
      Set GetCurrentItem = Application.ActiveInspector.CurrentItem
  End Select
End Function

Cliciwch Run botwm neu wasg F5 allweddol, mae deialog Dewis Ffolder yn ymddangos i chi ddewis ffolder calendr i gludo'r apwyntiad, yna cliciwch Iawn.

doc cadw'r cyfarfod yn y calendr 5

Nawr mae'r cyfarfod wedi'i ganslo a'i gopïo a'i gludo fel apwyntiad yn y ffolder calendr o'ch dewis.

doc cadw'r cyfarfod yn y calendr 6


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
 
sylwadau (0)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL