Ugrás a tartalomra

Outlook: Hogyan lehet a megbeszélés lemondását a naptárban tartani szervezőként?

Az Outlook programban értekezletszervezőként az értekezlet törlésekor az értekezlet automatikusan törlődik a naptárból. Bizonyos esetekben érdemes megőrizni a törölt értekezleteket a naptárban, hogy néhány jelölést elvégezhessen. Az Outlookban azonban nincsenek olyan beépített szolgáltatások, amelyek képesek kezelni ezt a feladatot. Ebben az oktatóanyagban két VBA-kódot biztosít az értekezlet találkozóként való megtartásához lemondás közben.

VBA-kódok a lemondott értekezlet találkozóként való másolásához


VBA-kódok a lemondott értekezlet találkozóként való másolásához

Íme két kód az értekezlet lemondására, valamint a találkozó egyidejű másolására és beillesztésére.

Megjegyzés: a kód engedélyezése előtt győződjön meg arról, hogy a következő két lehetőség be van jelölve:

Engedélyezze az Outlook alkalmazást, kattintson a gombra filé > Opciók, az Outlook Beállítások ablakában kattintson a gombra Trust Center lapot, és kattintson a gombra Trust Center beállítások, majd a Bizalmi központ ablakában kattintson a gombra Makróbeállítások fül, csekk Minden makró engedélyezése (nem ajánlott; potenciálisan veszélyes kód futtatható) és a Alkalmazza a makró biztonsági beállításait a telepített bővítményekre opciók. Kattints OK > OK becsukni az ablakokat. Újraindítás Outlook.

doki tartsa a találkozót a naptárban 1

doki tartsa a találkozót a naptárban 2

1. Gyorsan lépjen az Outlook naptár nézetébe, és válassza ki a megszakítani kívánt értekezletet Nyomja meg a gombot más + F11 kulcsok a Microsoft Visual Basic for Applications ablak engedélyezéséhez.

2. kettyenés betétlap > Modulok új üres modul beillesztéséhez. Ezután másolja ki és illessze be az alábbi kódot.

Kód: Másolja a találkozót találkozóként, és mondja le

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

doki tartsa a találkozót a naptárban 3

3. kettyenés futás vagy nyomja meg a gombot F5 gombot, most a kiválasztott találkozót törölték, és egy új találkozót töröltek és tárgy.

doki tartsa a találkozót a naptárban 4

Ha az értekezletet találkozóként szeretné másolni és beilleszteni egy másik naptárba, majd törölni szeretné az értekezletet, használja az alábbi kódot:

Kód: Másolja a találkozót találkozóként egy másik naptárba, és mondja le

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

Kattints futás vagy nyomja meg a gombot F5 gombot, egy Mappa kiválasztása párbeszédpanel jelenik meg, ahol kiválaszthatja a naptármappát a találkozó beillesztéséhez, majd kattintson az OK gombra.

doki tartsa a találkozót a naptárban 5

Az értekezlet törölve, találkozóként másolva és beillesztve a kiválasztott naptármappába.

doki tartsa a találkozót a naptárban 6


A legjobb irodai hatékonyságnövelő eszközök

Kutools az Outlook számára - Több mint 100 hatékony funkció az Outlook feltöltéséhez

???? E-mail automatizálás: Hivatalon kívül (POP és IMAP esetén elérhető)  /  Ütemezze az e-mailek küldését  /  Automatikus CC/BCC szabályok szerint e-mail küldésekor  /  Automatikus továbbítás (Speciális szabályok)   /  Automatikus üdvözlet hozzáadása   /  A több címzettnek szóló e-mailek automatikus felosztása egyedi üzenetekre ...

📨 Email Management: Könnyen visszahívhatja az e-maileket  /  Blokkolja az alanyok és mások átverő e-mailjeit  /  Törölje az ismétlődő e-maileket  /  Részletes keresés  /  Mappák összevonása ...

📁 Attachments ProKötegelt mentés  /  Batch Detach  /  Batch tömörítés  /  Automatikus mentés   /  Automatikus leválasztás  /  Automatikus tömörítés ...

🌟 Interface Magic: 😊További szép és menő hangulatjelek   /  Növelje Outlook termelékenységét a füles nézetekkel  /  Minimalizálja az Outlookot a bezárás helyett ...

👍 Csodák egy kattintással: Válasz mindenkinek a bejövő mellékletekkel  /   Adathalászat elleni e-mailek  /  🕘A feladó időzónájának megjelenítése ...

👩🏼‍🤝‍👩🏻 Névjegyek és naptár: Névjegyek kötegelt hozzáadása a kiválasztott e-mailekből  /  Egy kapcsolattartó csoport felosztása egyéni csoportokra  /  Távolítsa el a születésnapi emlékeztetőket ...

Több, mint 100 Jellemzők Várja felfedezését! Kattintson ide, ha többet szeretne megtudni.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations