Podrazumevano, novi sastanci se prikazuju kao "Zauzet". Međutim, nekim korisnicima se to ne sviđa. Sada ćemo u ovom postu podijeliti dva načina za promjenu zadanog statusa novih sastanaka u Outlooku.
Mnogim korisnicima se ne sviđa zadani status „Prikaži kao“ za nove sastanke u Outlooku – „Zauzeto“. Međutim, Outlook ne dozvoljava korisnicima da direktno promene ovaj status. Dakle, ako želite da ga promenite, morate tražiti druga sredstva. Ovdje ćemo vas naučiti 2 metode.

Metoda 1: Primijenite prilagođeni obrazac na foldere kalendara
- Prvo, pokrenite Outlook aplikaciju.
- Zatim pristupite području „Kalendar“.
- Zatim kliknite na dugme „Novi termin“ na traci.
- Nakon toga, u prozoru Zakazivanje, pomaknite se na karticu „Programer“ i kliknite na dugme „Dizajn ovog obrasca“.
- Nakon toga, na novom ekranu, prebacite se na karticu "(Sva polja)".
- Zatim odaberite “Sva polja za sastanke” u polju “Odaberi iz”.
- Kasnije bi se trebali pomicati prema dolje dok ne pronađete polje „Prikaži vrijeme kao“, koje trebate promijeniti „Zauzeto“ u „Slobodno“.
- Nakon toga, možete kliknuti na dugme “Objavi” i odabrati “Objavi obrazac kao”.
- U iskačućem dijaloškom okviru unesite naziv za ovaj obrazac, kao što je “Besplatan termin” i pritisnite “Objavi”.
- Zatim možete zatvoriti ovaj sastanak bez spremanja.
- Zatim kliknite desnim tasterom miša na kalendar u oknu za navigaciju i izaberite 'Svojstva' u kontekstualnom meniju.
- Zatim, u novom polju, promijenite “IPM.Appointment” u “Free Appointment” kao na sljedećem snimku ekrana.
- Na kraju, kliknite na “OK” da sačuvate promjene.
- Od tada će svi novi sastanci dodati u ovaj kalendar po defaultu biti prikazani kao „Besplatni“.
Metoda 2: Automatska primjena drugog statusa na nove sastanke putem VBA
- Prvo, pritisnite tipke “Alt + F11”.
- Zatim u prozoru „Microsoft Visual Basic za aplikacije“ pronađite i otvorite projekat „ThisOutlookSession“.
- Zatim kopirajte i zalijepite sljedeći VBA kod u ovaj projekat.
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 Inspector.CurrentItem.Class = olAppointment Then
Set objAppointment = Inspector.CurrentItem
End If
End Sub
Private Sub objAppointment_Open(Cancel As Boolean)
'Get the brand new appointment
If Len(objAppointment.Subject) = 0 And Len(objAppointment.Location) = 0 Then
'change busy status to free
objAppointment.BusyStatus = olFree
End If
End Sub
- Nakon toga, potpišite ovaj kod.
- Na kraju biste trebali ponovo pokrenuti Outlook da biste aktivirali ovaj makro.
- Od sada će novi termin zasigurno automatski biti prikazan kao „Besplatan“.
Šta učiniti ako vam se Outlook ruši
Outlook se može srušiti bez ikakvih upozorenja. Stoga je prilično teško predvidjeti i spriječiti ovakve strašne slučajeve. Međutim, i dalje biste trebali poduzeti efikasne mjere olakšanja, uključujući ažurirane sigurnosne kopije za Outlook podatke, kao i moćan alat za popravke, kao što je DataNumen Outlook Repair. Doći će vam u pomoć ako scanpst, ugrađeni alat za popravku ne može napraviti efekte.
Uvod za autora:
Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql corruption i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com


