Być może zauważyłeś, że odwołane spotkania nadal będą widoczne w Twoim kalendarzu. Wymaga to ręcznego usunięcia, co jest bardzo uciążliwe. Dlatego warto, aby Outlook automatycznie usuwał odwołane spotkania. Ten post pomoże Ci to zrozumieć.
Właściwie mój poprzedni artykuł - „Jak taktownie usunąć anulowane spotkania z kalendarza programu Outlook”Wprowadził kilka wskazówek, jak ręcznie usuwać anulowane spotkania. Ponadto w ostatniej sekcji tego artykułu opisano sposób, aby umożliwić programowi Outlook automatyczne usuwanie anulowanych spotkań. Ale ta metoda pozwoli również programowi Outlook automatycznie akceptować wszystkie zaproszenia na spotkanie. Czasami tego nie chcesz. Dlatego tutaj pokażemy Ci inny sposób, który jest dość prosty i znacznie wygodniejszy.
Automatyczne usuwanie anulowanych spotkań z kalendarza
- Na samym początku uruchom program Outlook.
- Następnie należy w oknie Outlooka wcisnąć klawisze „Alt + F11”.
- Następnie w kolejnym oknie edytora VBA należy dwukrotnie kliknąć projekt „ThisOutlookSession” po lewej stronie.
- Następnie należy skopiować następujący kod VBA do tego projektu.
Private WithEvents objInbox As Outlook.Folder
Private WithEvents objItems As Outlook.Items
Private Sub Application_Startup()
Set objInbox = Application.Session.GetDefaultFolder(olFolderInbox)
Set objItems = objInbox.Items
End Sub
'Occurs when the meeting cancellation arrives in your Inbox
Private Sub objItems_ItemAdd(ByVal Item As Object)
Dim objCalendar As Outlook.Folder
Dim objAppointments As Outlook.Items
Dim i As Long
Dim objMeeting As Outlook.AppointmentItem
If TypeOf Item Is MeetingItem Then
If Left(LCase(Item.Subject), 9) = "canceled:" Then
'Remove canceled meeting
Set objCalendar = Application.Session.GetDefaultFolder(olFolderCalendar)
Set objAppointments = objCalendar.Items
For i = objAppointments.count To 1 Step -1
Set objAppointment = objAppointments.Item(i)
If Left(objAppointment.Subject, 9) = "Canceled:" Then
objAppointment.Delete
End If
Next
End If
End If
End Sub
- Następnie możesz przypisać certyfikat cyfrowy do tego projektu. Kliknij „Narzędzia” i wybierz „Podpis cyfrowy”. Następnie postępuj zgodnie z instrukcjami kreatora, aby go ukończyć.
- Później zamknij okno „Microsoft Visual Basic for Applications” i przejdź do zmiany ustawień makr programu Outlook, aby zezwolić na podpisane makra.
- Ewentualnie możesz ponownie uruchomić program Outlook, aby włączyć nowy projekt VBA.
- Od tej pory za każdym razem, gdy do Twojej skrzynki odbiorczej dotrze odwołane spotkanie, makro uruchomi się i automatycznie usunie odwołane spotkanie z kalendarza.
Wykorzystaj w pełni narzędzie do naprawy skrzynki odbiorczej
Wielu użytkowników programu Outlook mogło być nękanych różnymi problemami w programie Outlook, w tym drobnymi awariami, komunikatami o błędach i nagłym brakiem odpowiedzi, a także poważnymi uszkodzeniami itp. Szczerze mówiąc, w przypadku drobnych problemów program Outlook ma wbudowane narzędzie do naprawy - skanpst, który może je z łatwością naprawić. Dzięki temu, gdy napotkasz problemy w Outlooku, możesz użyć go do zrobienia zdjęcia. Jeśli to się nie powiedzie, możesz nadal korzystać z doświadczonego i niezwykłego narzędzia innej firmy, takiego jak DataNumen Outlook Repair.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym odzyskiwanie sql i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com