Jak automatycznie przenieść przychodzące spotkania do określonego kalendarza programu Outlook Outlook

Podziel się teraz:

Możesz być przyzwyczajony do oddzielania spotkań przychodzących od spotkań utworzonych przez Ciebie. W takiej sytuacji będziesz tęsknił za sposobem, który automatycznie przenosi przychodzące spotkania do określonego kalendarza. Ten artykuł pokaże Ci tak sprytną metodę.

Domyślnie program Outlook automatycznie przechowuje spotkania przychodzące w domyślnym kalendarzu. Jednak wielu użytkowników woli przechowywać spotkania osobno, nie mieszać ich ze zwykłymi terminami. Dlatego chętnie umożliwiają programowi Outlook automatyczne przenoszenie przychodzących spotkań do kalendarza innego niż domyślny. Chociaż Outlook nie oferuje do tego żadnych natywnych funkcji, nadal można to osiągnąć za pomocą odrobiny skryptów. W dalszej części przedstawimy go szczegółowo.

Automatyczne przenoszenie przychodzących spotkań do określonego kalendarza programu Outlook

Automatyczne przenoszenie przychodzących spotkań do określonego kalendarza

  1. Na początek uzyskaj dostęp do edytora Outlook VBA. O krokach przeczytaj artykuł „Jak uruchomić kod VBA w swoim Outlooku".
  2. Następnie w nowym oknie umieść następujący kod VBA w module.
Sub MoveIncomingMeeting(objItem As MeetingItem)
    Dim objMeetingRequest As Outlook.MeetingItem
    Dim objMeeting As Outlook.AppointmentItem
    Dim objCopiedMeeting As Outlook.AppointmentItem
    Dim objCalendar As Outlook.Folder
 
    If TypeOf objItem Is MeetingItem And Left(objItem.Subject, 9) <> "Canceled:" Then
       Set objMeetingRequest = objItem
       Set objMeeting = objMeetingRequest.GetAssociatedAppointment(True)
       Set objCopiedMeeting = objMeeting.Copy
 
       'Change to your own calendar
       Set objCalendar = Application.Session.GetDefaultFolder(olFolderCalendar).Folders("Meetings")
       Set objCopiedMeeting = objCopiedMeeting.Move(objCalendar)
       If Left(objCopiedMeeting.Subject, 6) = "Copy: " Then
          objCopiedMeeting.Subject = Replace(objCopiedMeeting.Subject, "Copy: ", "")
          objCopiedMeeting.Save
       End If
 
       objMeeting.Delete
    End If
End Sub

Kod VBA - automatyczne przenoszenie przychodzących spotkań do określonego kalendarza

  1. Następnie zamknij edytor VBA.
  2. Później przejdź do "Plik" i kliknij przycisk "Zarządzaj regułami i alertami".
  3. W nowym oknie kliknij „Nowa reguła”.
  4. Następnie w wyskakującym oknie dialogowym wybierz „Zastosuj regułę do otrzymywanych wiadomości” i naciśnij „Dalej”.
  5. Następnie określ warunki reguły zgodnie ze swoimi potrzebami i kliknij „Dalej”.
  6. W kroku „Rule Action” wybierz „uruchom skrypt” i użyj wcześniej dodanego makra.Uruchom regułę skryptu
  7. Następnie postępuj zgodnie z kreatorami wyświetlanymi na ekranie, aby zakończyć konfigurację reguły.
  8. Odtąd za każdym razem, gdy otrzymasz wezwanie na spotkanie, Outlook automatycznie przeniesie odpowiednie spotkanie do określonego kalendarza.Automatyczne przenoszenie przychodzących spotkań w określonym kalendarzu

Wzmocnij ochronę danych programu Outlook

Nie można zaprzeczyć, że program Outlook jest rzeczywiście bogaty w funkcje. Nie oznacza to jednak, że może trwale pozbyć się błędów lub uszkodzeń. W rzeczywistości w dalszym ciągurary, Outlook jest bardzo podatny na ataki. Wszelkie drobne problemy mogą doprowadzić do awarii, co spowoduje utratę danych programu Outlook. Dlatego musisz wzmocnić ochronę danych programu Outlook. Mówiąc konkretnie, musisz regularnie tworzyć kopie zapasowe, trzymać z daleka spam, wirusy lub złośliwe oprogramowanie i przygotować niezwykłą Naprawa PST narzędzie, takie 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 stały SQL Server i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com

Podziel się teraz:

Możliwość dodawania komentarzy nie jest dostępna.