2 Methoden zum automatischen Festlegen des Status des ganztägigen Ereignisses in Ihrem Outlook auf "Besetzt"

Jetzt teilen:

Standardmäßig lautet der Status des ganztägigen Ereignisses "Kostenlos". In Wirklichkeit hoffen wir jedoch allgemein, den Status auf "Beschäftigt" zu setzen. Daher zeigt Ihnen dieser Artikel zwei Ansätze, um dies zu realisieren.

Viele Benutzer ärgern sich darüber, dass Outlook das Ereignis "Ganztägig" standardmäßig als "Kostenlos" anzeigt. Daher müssen sie den Status jedes Mal manuell ändern, wenn sie ein ganztägiges Ereignis erstellen. Zweifellos ist es ziemlich mühsam. Daher werden hier zwei Tipps vorgestellt, mit denen Sie den Status des ganztägigen Ereignisses automatisch auf "Besetzt" setzen können.

Automatisch Setzen Sie den Status des ganztägigen Ereignisses in Ihrem Outlook auf "Besetzt"

Methode 1: Entwerfen Sie ein benutzerdefiniertes Formular für das Ereignis "Besetzt den ganzen Tag"

  1. Starten Sie zunächst Outlook.
  2. Gehen Sie dann zum Navigationsbereich „Kalender“.
  3. Als Nächstes können Sie einen neuen Termin erstellen, indem Sie in der Multifunktionsleiste auf die Schaltfläche „Neuer Termin“ klicken.
  4. Wechseln Sie im Terminfenster zur Registerkarte "Entwickler" und klicken Sie auf die Schaltfläche "Dieses Formular entwerfen".Entwerfen Sie dieses Formular
  5. Danach müssen Sie zur Seite „P.2“ wechseln.
  6. Ziehen Sie später im Popup-Dialogfeld "Feldauswahl" die Felder "Ganztägiges Ereignis" und "Zeit anzeigen als" per Drag & Drop auf die Seite "P.2".Fügen Sie die Felder "Ganztägiges Ereignis" und "Zeit anzeigen als" hinzu
  7. Klicken Sie anschließend mit der rechten Maustaste auf das Feld "Ganztägiges Ereignis" und wählen Sie im Kontextmenü die Option "Eigenschaften".
  8. Wechseln Sie im Popup-Dialogfeld zur Registerkarte "Wert", aktivieren Sie "Setzen Sie den Anfangswert dieses Felds auf" und geben Sie "True" in das unten stehende Feld ein.Stellen Sie den Feldwert "All Day Event" ein
  9. Klicken Sie dann auf "OK", um die Änderungen zu speichern.
  10. Klicken Sie danach mit der rechten Maustaste auf das Kombinationsfeld neben dem Feld "Zeit anzeigen als" und wählen Sie "Eigenschaften".
  11. Wechseln Sie im nachfolgenden Dialogfeld zur Registerkarte "Wert", aktivieren Sie das Kontrollkästchen "Setzen Sie den Anfangswert dieses Felds auf" und geben Sie "2" in das unten stehende Feld ein.Stellen Sie den Feldwert "Show Time As" ein
  12. Klicken Sie später auf "OK", um zum Formular zurückzukehren.
  13. Schließlich können Sie in der Multifunktionsleiste auf die Schaltfläche "Veröffentlichen" klicken und "Formular veröffentlichen als" auswählen. Geben Sie im neuen Dialogfeld einen Namen in das Feld "Anzeigename" ein und klicken Sie schließlich auf die Schaltfläche "Veröffentlichen".Formular veröffentlichen
  14. Von nun an können Sie jedes Mal, wenn Sie klicken können, um ein ganztägiges Ereignis zu erstellen, auf "Neues Element"> "Formular auswählen"> "Besetzte ganztägige Ereignisse" klicken.Erstellen Sie ein benutzerdefiniertes ganztägiges Ereignis aus einem benutzerdefinierten Formular

Wenn Sie der Meinung sind, dass es nicht so praktisch ist, wie Sie es wünschen, können Sie den folgenden Weg wählen, bei dem VBA verwendet wird.

Methode 2: Automatisches Setzen des ganztägigen Ereignisses über VBA auf "Besetzt"

  1. Drücken Sie zunächst im Hauptfenster von Outlook die Tasten „Alt + F11“.
  2. Öffnen Sie nach dem Zugriff auf den Outlook VBA-Editor das Projektfenster „ThisOutlookSession“.
  3. Kopieren Sie dann den folgenden VBA-Code in dieses Projekt.
Private WithEvents objInspectors As Inspectors
Private WithEvents objAppointment As AppointmentItem

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeName(Inspector.CurrentItem) = "AppointmentItem" Then
       Set objAppointment = Inspector.CurrentItem
    End If
End Sub

'Occur when opening an appointment
Private Sub objAppointment_Open(Cancel As Boolean)
    If objAppointment.AllDayEvent = True Then
       objAppointment.BusyStatus = olBusy
    End If
End Sub

'Occur when changing an appointment
Private Sub objAppointment_PropertyChange(ByVal Name As String)
    If Name = "AllDayEvent" Then
       'If you set the appointment to all day event
       If objAppointment.AllDayEvent = True Then
          objAppointment.BusyStatus = olBusy
       End If
    End If
End Sub

VBA-Code - Automatisch Setzen Sie den Status des Ganztagesereignisses auf "Besetzt".

  1. Signieren Sie anschließend diesen Code und ändern Sie Ihre Outlook-Makroeinstellungen.
  2. Starten Sie abschließend Ihre Outlook-Anwendung neu, um dieses neue Projekt zu aktivieren.
  3. Seitdem wird der Status jedes Mal, wenn Sie ein ganztägiges Ereignis erstellen, automatisch auf "Besetzt" gesetzt.

Sichern Sie Ihre Outlook-Daten

Ohne Zweifel gibt es in Outlook zahlreiche potenzielle Sicherheitsbedrohungen. Das Sichern unserer Outlook-Daten ist daher ziemlich mühsam und mühsam. Wir sollten die ganze Zeit wachsam bleiben. Um rechtzeitig Hilfsmaßnahmen ergreifen zu können, sollten wir außerdem eine PST beheben Werkzeug, wie DataNumen Outlook Repair.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich mdf reparieren und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX

Jetzt teilen:

Kommentare sind geschlossen.