Salt la conținutul principal

Cum să schimbați evenimentul prestabilit pentru toată ziua în ocupat în Outlook?

În mod implicit, Outlook setează starea întâlnirilor și întâlnirilor la "Ocupat", dar evenimente de toată ziua să "Gratuit" (vezi captura de ecran de mai jos). Trebuie să schimbați manual starea Afișați ca la Ocupat de fiecare dată când creați un eveniment de toată ziua. Pentru a schimba afișarea implicită ca stare a evenimentelor de toată ziua la Ocupat, articolul vă oferă două metode.


Schimbați evenimentul prestabilit pentru toată ziua în ocupat prin crearea unui formular personalizat

Un formular personalizat vă poate ajuta să creați un eveniment de toată ziua cu opțiunea implicită Afișați ca starea Ocupat. Vă rugăm să faceți după cum urmează.

1. Treceți la vizualizarea Calendar. Clic Inițial > Programare noua.

2. În noua fereastră de întâlnire, faceți clic pe Dezvoltator > Proiectați acest formular.

Sfat: În cazul în care Dezvoltator fila nu apare pe panglică, vă rugăm să urmați metodele în acest articol pentru ao afișa.

3. Apoi fereastra de programare trece în modul design. Trebuie să faceți clic pe (P.2) tab.

4. Trageți Eveniment pe intreaga zi câmp și Afișați timpul ca. câmp din Alegător de câmp panoul separat de placa de sub (P.2) fila

5. Faceți clic dreapta pe tragerea Eveniment pe intreaga zi câmp și selectați Proprietăţi din meniul contextual.

6. În Proprietăţi casetă de dialog, trebuie să configurați după cum urmează.

6.1) Mergeți la Valoare filă;
6.2) În Valoarea initiala secțiune, verificați Setați valoarea inițială a acestui câmp la cutie;
6.3) Introduceți o valoare "Adevărat" în caseta de text;
6.4) Faceți clic pe OK buton. Vedeți captura de ecran:

7. Faceți clic dreapta pe caseta combinată a Afișați timpul ca. câmp și faceți clic pe Proprietăţi din meniul contextual.

8. În Proprietăţi casetă de dialog, trebuie să configurați după cum urmează.

8.1) Mergeți la Valoare filă;
8.2) În Valoarea initiala secțiune, verificați Setați valoarea inițială a acestui câmp la cutie;
8.3) Introduceți un număr „2” în caseta de text;
8.4) Faceți clic pe OK buton. Vedeți captura de ecran:

9. clic Publica > Publicați formularul As pe panglică.

10. În Publicați formularul As casetă de dialog, trebuie să:

10.1) Selectați un folder de destinație pentru formularul personalizat din Uită-te în lista verticală. Aici aleg Formulare personale Biblioteca articol;
10.2) Denumiți formularul personalizat în Numele afisat casetă de text;
10.3) Faceți clic pe Publica buton. Vedeți captura de ecran:

11. Închideți fereastra Întâlnire fără a salva.

12. De acum înainte, când trebuie să creați un eveniment de toată ziua cu Afișarea ca stare implicită la Ocupat, vă rugăm să treceți la Calendar vizualizați și faceți clic Inițial > Articole noi > Formulare personalizate > „Numele formularului personalizat”.

Notă: Pentru a crea un eveniment de toată ziua cu Afișarea ca stare implicită la „Gratuit”, procedați ca de obicei: faceți clic Inițial > Programare noua, și apoi verificați Eveniment pe intreaga zi cutie în Numire fereastră.


Schimbați evenimentul prestabilit pentru toată ziua în ocupat utilizând VBA

Metoda de mai sus are prea mulți pași. Dacă întotdeauna trebuie să creați un eveniment de toată ziua cu starea Afișați ca implicită la „Ocupat”, următorul cod VBA vă poate ajuta să finalizați cu ușurință.

1. Lansați Outlook, apăsați butonul Alt + F11 tastele simultan pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastra, faceți dublu clic pe Project1 > Obiecte Microsoft Outlook > Această sesiune Outlook pentru a deschide Această sesiune Outlook (Cod) fereastră, apoi copiați următorul cod în această fereastră de cod.

Cod VBA: setați starea evenimentului pentru toată ziua la „Ocupat”

Public WithEvents GInspectors As Inspectors
Public WithEvents GAppointmentItem As AppointmentItem

Private Sub Application_Startup()
'Updated by Extendoffice 20220413
  Set GInspectors = Application.Inspectors
End Sub

Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
  Select Case Inspector.CurrentItem.Class
    Case olAppointment
      Set GAppointmentItem = Inspector.CurrentItem
  End Select
End Sub

Private Sub GAppointmentItem_Open(Cancel As Boolean)
  Select Case GAppointmentItem.AllDayEvent
    Case True
      GAppointmentItem.BusyStatus = olBusy
  End Select
End Sub

Private Sub GAppointmentItem_PropertyChange(ByVal Name As String)
  If Name = "AllDayEvent" Then
    Select Case GAppointmentItem.AllDayEvent
      Case True
        GAppointmentItem.BusyStatus = olBusy
    End Select
  End If
End Sub

3. Salvați codul VBA și reporniți Outlook.

De acum înainte, după transformarea unei întâlniri sau a unei întâlniri într-un eveniment de toată ziua, Afișați ca starea se va afișa ca "Ocupat" în mod implicit.


Articole pe aceeași temă

Schimbați ora de memento implicită a evenimentelor de toată ziua în Outlook
În mod normal, timpul implicit de reamintire a evenimentului pe tot parcursul zilei este de 18 ore în Outlook 2007/2010 și 0.5 zile în Outlook 2013. Uneori, timpul implicit de reamintire al evenimentului pe tot parcursul zilei poate să nu fie de acord cu programul dvs. de lucru. Aici vom introduce modalitatea de a schimba timpul de memento implicit al evenimentelor de toată ziua în Microsoft Outlook.

Modificați timpul implicit de urmărire în Outlook
După cum știm, când adăugăm un memento de urmărire pentru un e-mail în Outlook, timpul implicit de urmărire este 4:30 (sau alt moment în funcție de programul dvs. de lucru). Cu toate acestea, vă recomandăm să modificați timpul de urmărire implicit și să îl lăsați să vă reamintească la începutul programului de lucru, cum ar fi 9:00 AM. În acest articol, vă voi arăta cum să modificați timpul de urmărire implicit în Outlook.

Schimbați locația implicită a arhivei în Outlook
În mod implicit, Outlook are locația implicită pentru fișierele de arhivă. Pe lângă locația implicită, puteți seta propria locație de arhivă pentru fișierele dvs. de arhivă. În acest tutorial, vă vom arăta cum să modificați locația implicită a arhivei în Outlook în detalii.

Modificați locația implicită de salvare a atașamentului în Outlook
V-ați săturat să găsiți locația atașamentului pe care ați specificat-o de fiecare dată când lansați Outlook? În acest tutorial, vă vom arăta cum să modificați locația implicită a atașamentului. După aceea, folderul specificat pentru salvarea atașamentelor va fi deschis automat de fiecare dată când salvați atașamentele, chiar dacă reporniți Outlook.

Modificați timpul implicit pentru livrarea întârziată în Outlook
Acest tutorial oferă un cod VBA pentru a vă ajuta să schimbați ora implicită pentru opțiunea de livrare întârziată în Outlook.


Cele mai bune instrumente de productivitate de birou

Kutools pentru Outlook - Peste 100 de funcții puternice pentru a vă supraalimenta Outlook

📧 Automatizare e-mail: În afara biroului (disponibil pentru POP și IMAP)  /  Programați trimiterea de e-mailuri  /  CC/BCC automat după reguli la trimiterea e-mailului  /  Redirecționare automată (Reguli avansate)   /  Adăugare automată felicitare   /  Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...

📨 Managementul e-mail: Amintește-ți cu ușurință e-mailurile  /  Blocați e-mailurile înșelătorii de către subiecți și alții  /  Ștergeți e-mailurile duplicate  /  Cautare Avansata  /  Consolidați foldere ...

📁 Atașamente ProSalvați în serie  /  Detașare lot  /  Compresă în loturi  /  Salvare automata   /  Detașare automată  /  Comprimare automată ...

🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool   /  Îmbunătățiți-vă productivitatea Outlook cu vizualizările cu file  /  Minimizați Outlook în loc să închideți ...

???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite  /   E-mailuri anti-phishing  /  🕘Afișați fusul orar al expeditorului ...

👩🏼‍🤝‍👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate  /  Împărțiți un grup de contact în grupuri individuale  /  Eliminați mementouri de ziua de naștere ...

Peste 100 Caracteristici Așteaptă explorarea ta! Click aici pentru a descoperi mai multe.

 

 

Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Ahoj,
ani mě to nefunguje. Nevyskočila ani žádná zpráva.
Office Microsoft 365 apps pro velké organizace.

Můžu to nějak trasovat nebo najít někde v logu?

Dík Honza
This comment was minimized by the moderator on the site
Hi,
I've tried the second technique but it did not work. Do you know whether this still works on the newest Outlook version ?
Best,
Ben
This comment was minimized by the moderator on the site
Hi Benjamin Djian,
Yes the code still works on the newest Outlook version? Did you get any error prompt?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations