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

Outlook: Cum să continuați să anulați întâlnirea în calendar ca organizator?

În Outlook, ca organizator de întâlnire, atunci când anulați întâlnirea, întâlnirea va fi ștearsă automat din calendar. În unele cazuri, este posibil să doriți să păstrați întâlnirile anulate în calendar pentru a face unele note. Cu toate acestea, nu există caracteristici încorporate în Outlook care să poată face față acestei sarcini. În acest tutorial, oferă două coduri VBA pentru păstrarea întâlnirii ca întâlnire în timpul anulării.

Codurile VBA pentru copierea întâlnirii anulate ca programare


Codurile VBA pentru copierea întâlnirii anulate ca programare

Iată două coduri pentru anularea întâlnirii și copierea și lipirea acesteia ca întâlnire în același timp.

Notă: înainte de a activa codul, asigurați-vă că aceste două opțiuni sunt bifate:

Activați Outlook, faceți clic pe Fișier > Opţiuni, în fereastra Opțiuni Outlook, faceți clic pe Centrul de încredere și faceți clic pe Trust Center Settings, apoi în fereastra Centrului de încredere, faceți clic Setări macro fila, verificați Activați toate macrocomenzile (nu se recomandă, codul potențial periculos poate fi rulat) și Aplicați setările de securitate macro la suplimentele instalate Opțiuni. Clic OK > OK să închidă ferestrele. Repornire perspectiva.

doc păstrează întâlnirea în calendarul 1

doc păstrează întâlnirea în calendarul 2

1. Treceți rapid la vizualizarea Calendar Outlook și selectați întâlnirea pe care doriți să o anulați Apăsați Alt + F11 tastele pentru a activa fereastra Microsoft Visual Basic pentru aplicații.

2. clic Insera > Module pentru a introduce un nou modul gol. Apoi copiați și inserați codul de mai jos în el.

Cod: copiați întâlnirea ca programare și anulați-o

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 păstrează întâlnirea în calendarul 3

3. clic Alerga sau apăsați F5 cheie, acum întâlnirea selectată a fost anulată și o nouă întâlnire numită Anulată și subiect.

doc păstrează întâlnirea în calendarul 4

Dacă doriți să copiați și să lipiți întâlnirea ca întâlnire într-un alt calendar și apoi să anulați întâlnirea, utilizați codul de mai jos:

Cod: copiați întâlnirea ca programare într-un alt calendar și anulați-o

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

Clic Alerga sau apăsați F5 tasta, apare o casetă de dialog Selectare folder pentru a alege un folder de calendar pentru a lipi întâlnirea, apoi faceți clic pe OK.

doc păstrează întâlnirea în calendarul 5

Acum întâlnirea a fost anulată și copiată și lipită ca întâlnire în folderul calendar pe care îl alegeți.

doc păstrează întâlnirea în calendarul 6


Kutools pentru Outlook - aduce 100 de caracteristici avansate în Outlook și face munca mult mai ușoară!

  • Auto CC / BCC prin reguli la trimiterea e-mailului; Auto înainte Mai multe e-mailuri personalizate; Răspuns automat fără server de schimb și mai multe funcții automate ...
  • Avertisment BCC - afișați mesajul când încercați să răspundeți la toate dacă adresa dvs. de e-mail se află în lista BCC; Amintiți-vă când lipsesc atașamentele, și mai multe caracteristici de reamintire ...
  • Răspundeți (Toate) Cu toate atașamentele din conversația prin e-mail; Răspunde la multe e-mailuri în secunde; Adăugare automată felicitare când răspundeți; Adăugați o dată în subiect ...
  • Instrumente de atașament: gestionați toate atașamentele din toate e-mailurile, Detașare automată, Comprimă toate, Redenumiți toate, Salvați toate ... Raport rapid, Numărați mesajele selectate...
  • E-mailuri nedorite puternice după obicei; Eliminați e-mailurile și persoanele de contact duplicate... Vă permit să faceți mai inteligent, mai rapid și mai bine în Outlook.
shot kutools outlook kutools fila 1180x121
shot kutools outlook kutools plus fila 1180x121
 
Comentarii (0)
Încă nu există evaluări. Fii primul care evaluează!
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL