Preskoči na glavno vsebino

Kako spremeniti privzeto vrednost celodnevnega dogodka v zasedeno v Outlooku?

Outlook privzeto nastavi stanje sestankov in sestankov na "Zaseden", ampak celodnevni dogodki do "Prost" (glej posnetek zaslona spodaj). Vsakič, ko ustvarite celodnevni dogodek, morate ročno spremeniti stanje Pokaži kot v Zasedeno. Če želite spremeniti privzeto prikazovanje kot stanje celodnevnih dogodkov v Zasedeno, vam članek ponuja dva načina.


Spremenite privzeti celodnevni dogodek na zaseden, tako da ustvarite obrazec po meri

Obrazec po meri vam lahko pomaga ustvariti celodnevni dogodek s privzeto Pokaži kot statusa Zaseden. Prosimo, naredite naslednje.

1. Premaknite se na pogled koledarja. Kliknite Domov > Novo imenovanje.

2. V novem oknu za sestanek kliknite Razvijalec > Oblikovanje tega obrazca.

Nasvet: Če Razvojni zavihek ni prikazan na traku, sledite metodam v tem članku da ga prikažete.

3. Nato se okno za sestanek preklopi v način oblikovanja. Morate klikniti na (P.2) tab.

4. Povlecite Celodnevni dogodek polje in Prikaži čas kot polje iz Izbira polja podokno ločeno od plošče pod (P.2) tab

5. Z desno miškino tipko kliknite povlečeno Celodnevni dogodek polje in izberite Nepremičnine iz kontekstnega menija.

6. V Ljubljani Nepremičnine pogovorno okno, morate konfigurirati na naslednji način.

6.1) Pojdite na vrednost zavihek;
6.2) V Začetna vrednost odsek, preverite Nastavite začetno vrednost tega polja na škatla;
6.3) Vnesite vrednost "Prav" v besedilno polje;
6.4) Kliknite OK . Oglejte si posnetek zaslona:

7. Z desno tipko miške kliknite kombinirano polje Prikaži čas kot polje in kliknite Nepremičnine iz kontekstnega menija.

8. V Ljubljani Nepremičnine pogovorno okno, morate konfigurirati na naslednji način.

8.1) Pojdite na vrednost zavihek;
8.2) V Začetna vrednost odsek, preverite Nastavite začetno vrednost tega polja na škatla;
8.3) Vnesite številko "2” v besedilno polje;
8.4) Kliknite OK . Oglejte si posnetek zaslona:

9. klik objavi > Objavi obrazec As na traku.

10. V Ljubljani Objavi obrazec As pogovorno okno, morate:

10.1) Izberite ciljno mapo za obrazec po meri v Poglej v spustni seznam. Tukaj izberem Knjižnica osebnih obrazcev predmet;
10.2) Poimenujte obrazec po meri v Prikazno ime besedilno polje;
10.3) Kliknite objavi . Oglejte si posnetek zaslona:

11. Zaprite okno Imenovanje brez shranjevanja.

12. Od zdaj naprej, ko boste morali ustvariti celodnevni dogodek s privzetim statusom Pokaži kot Zasedeno, preklopite na Koledar ogled in klik Domov > Novi Izdelki > Obrazci po meri > »Ime obrazca po meri«.

Opomba: Če želite ustvariti celodnevni dogodek s statusom Prikaži kot privzeto na »Brezplačno«, naredite kot običajno: kliknite Domov > Novo imenovanjein nato preverite Celodnevni dogodek polje v Imenovanje okno.


Spremenite privzeti celodnevni dogodek v zaseden z uporabo VBA

Zgornja metoda ima preveč korakov. Če morate vedno ustvariti celodnevni dogodek s privzetim statusom Prikaži kot na »Zaseden«, vam lahko naslednja koda VBA pomaga pri preprosti izvedbi.

1. Zaženite Outlook, pritisnite druga + F11 tipke hkrati, da odprete Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, dvokliknite na Project1 > Predmeti Microsoft Outlook > Ta OutlookSession da odprete Ta OutlookSession (Koda) okno in nato v to kodno okno kopirajte naslednjo kodo.

Koda VBA: nastavite status celodnevnega dogodka privzeto na »Zaseden«

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. Shranite kodo VBA in znova zaženite Outlook.

Od zdaj naprej, po pretvorbi sestanka ali sestanka v celodnevni dogodek, Pokaži kot status bo prikazan kot "Zaseden" privzeto.


Sorodni članki

Spremenite privzeti čas opomnika za celodnevne dogodke v Outlooku
Običajno je privzeti čas opomnika za celodnevni dogodek 18 ur v programu Outlook 2007/2010 in 0.5 dan v programu Outlook 2013. Včasih se privzeti čas opomnika za celodnevni dogodek morda ne ujema z vašim urnikom dela. Tu bomo predstavili način spreminjanja privzetega časa opomnika za celodnevne dogodke v programu Microsoft Outlook.

Spremenite privzeti nadaljnji čas v Outlooku
Kot vemo, ko v Outlook dodamo opomnik za nadaljnje spremljanje e-pošte, je privzeti čas nadaljnjega spremljanja 4 (ali drug čas, odvisno od vašega delovnega časa). Vendar pa boste morda želeli spremeniti privzeti čas nadaljnjega spremljanja in naj vas opomni na začetku delovnega časa, na primer ob 30:9. V tem članku vam bom pokazal, kako spremenite privzeti čas spremljanja v Outlooku.

Spremenite privzeto lokacijo arhiva v Outlooku
Outlook ima privzeto privzeto mesto za arhivske datoteke. Poleg privzete lokacije lahko za svoje arhivske datoteke nastavite tudi lastno lokacijo arhiva. V tej vadnici vam bomo podrobno prikazali, kako spremenite privzeto lokacijo arhiva v Outlooku.

Spremenite privzeto lokacijo za shranjevanje prilog v Outlooku
Ste se naveličali iskanja mesta priloge, ki ste ga vsakič določili ob zagonu Outlooka? V tej vadnici vam bomo pokazali, kako spremeniti privzeto mesto priloge. Po tem se bo navedena mapa za shranjevanje prilog samodejno odprla vsakič, ko shranite priloge, čeprav znova zaženete Outlook.

Spremenite privzeti čas za zamudo pri dostavi v Outlooku
Ta vadnica ponuja kodo VBA, ki vam pomaga spremeniti privzeti čas za možnost zakasnitve dostave v Outlooku.


Najboljša pisarniška orodja za produktivnost

Kutools za Outlook - Več kot 100 zmogljivih funkcij za nadgradnjo vašega Outlooka

🤖 AI poštni pomočnik: Takojšnja profesionalna e-poštna sporočila z umetno inteligenco – z enim klikom do genialnih odgovorov, popoln ton, večjezično znanje. Preoblikujte pošiljanje e-pošte brez napora! ...

📧 Avtomatizacija e-pošte: Odsoten (na voljo za POP in IMAP)  /  Načrtujte pošiljanje e-pošte  /  Samodejna CC/BCC po pravilih pri pošiljanju e-pošte  /  Samodejno naprej (napredna pravila)   /  Samodejno dodaj pozdrav   /  E-poštna sporočila več prejemnikov samodejno razdeli na posamezna sporočila ...

📨 Email upravljanje: Enostaven priklic e-pošte  /  Blokiraj prevarantska e-poštna sporočila glede na teme in druge  /  Izbriši podvojena e-poštna sporočila  /  napredno iskanje  /  Združite mape ...

📁 Priloge ProShrani paket  /  Batch Detach  /  Paketno stiskanje  /  Samodejno shranite   /  Samodejno loči  /  Samodejno stiskanje ...

🌟 Vmesnik Magic: 😊Več lepih in kul emojijev   /  Povečajte Outlookovo produktivnost s pogledi z zavihki  /  Minimizirajte Outlook, namesto da bi ga zaprli ...

???? Čudeži z enim klikom: Odgovori vsem z dohodnimi prilogami  /   E-poštna sporočila proti lažnemu predstavljanju  /  🕘Pokaži pošiljateljev časovni pas ...

👩🏼‍🤝‍👩🏻 Stiki in koledar: Paketno dodajanje stikov iz izbranih e-poštnih sporočil  /  Razdelite skupino stikov na posamezne skupine  /  Odstranite opomnike za rojstni dan ...

Over 100 Lastnosti Čakajte na svoje raziskovanje! Kliknite tukaj, če želite odkriti več.

 

 

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