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.
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
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.
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.
Acum întâlnirea a fost anulată și copiată și lipită ca întâlnire în folderul calendar pe care îl alegeți.
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.

