Outlook’ta tüm gün etkinliklerinin varsayılan durumunu “Meşgul” olarak nasıl ayarlarım?

Varsayılan olarak, Outlook toplantı durumunu «Meşgul» olarak ayarlar; ancak tüm gün süren etkinlikleri «Boş» olarak işaretler (aşağıdaki ekran görüntüsüne bakın). Her tüm gün etkinliği oluşturduğunuzda, «Göster» durumunu manuel olarak «Meşgul» olarak değiştirmek zorunda kalırsınız. Bu makalede, tüm gün etkinliklerinin varsayılan «Göster» durumunu «Meşgul» yapmak için size iki yöntem sunulmaktadır.

Özel bir form oluşturarak tüm gün etkinliği varsayılanını «Meşgul» olarak değiştirme

Özel bir form, tüm gün süren ve «Göster» durumu varsayılan olarak «Meşgul» olarak ayarlanmış bir etkinlik oluşturmanıza yardımcı olabilir. Lütfen aşağıdaki adımları uygulayın.

1. Takvim görünümüne geçmek için «Giriş» > «Randevu» seçeneğine tıklayın.

2. Randevu penceresinde, «Geliştirici» > «Bu Formu Tasarla» seçeneğine tıklayın.

İpucu: «Geliştirici» sekmesi Şerit üzerinde görünmüyorsa, görünür hale getirmek için bu makaledeki yöntemleri izleyin.

3. Ardından randevu penceresi tasarım moduna geçin. Bunun için «(P.2)» sekmesine tıklamanız gerekir.

4. «Alan Seçici» bölmesinden «Tüm Gün Etkinliği» ve «Meşgul Durumu» alanlarını ayrı ayrı, «(P.2)» sekmesinin altındaki panele sürükleyin.

5. Dışarı sürüklendiğiniz «Tüm Gün Etkinliği» alanına sağ tıklayıp bağlam menüsünden «Özellikler»i seçin.

6. «Özellikler» iletişim kutusunda aşağıdaki şekilde yapılandırmanız gerekir.

7. «Meşgul Durumu» alanındaki açılır kutuya sağ tıklayın ve bağlam menüsünden «Özellikler»i seçin.

8. «Özellikler» iletişim kutusunda aşağıdaki gibi yapılandırma yapmanız gerekir.

9. Şeritte «Yayımla» > «Formu Farklı Yayımla» seçeneğine tıklayın.

10. «Formu Farklı Yayımla» iletişim kutusunda aşağıdaki adımları uygulamanız gerekmektedir:

11. Randevu penceresini kaydetmeden kapatın.

12. Bundan sonra, varsayılan «Göster» durumu «Meşgul» olan bir tüm gün etkinliği oluşturmanız gerekiyorsa, lütfen «Takvim» görünümüne geçin ve «Giriş» > «Yeni Öğeler» > «Özel Formlar» > «Özel formun adı» seçeneğine tıklayın.

Not: «Göster» durumunda, varsayılan olarak «Boş» olan bir tüm gün etkinliği oluşturmak için normal şekilde devam edin: «Giriş» > «Randevu» seçeneğine tıklayın ve ardından «Randevu» penceresinde «Tüm gün etkinliği» kutusunu işaretleyin.

VBA kullanarak tüm gün etkinliği varsayılanını «Meşgul» olarak değiştirme

Yukarıdaki yöntemin çok fazla adımı vardır. Eğer her zaman «Göster» durumu varsayılan olarak «Meşgul» olan bir tüm gün etkinliği oluşturmanız gerekiyorsa, aşağıdaki VBA kodu bunu kolayca yapmanıza yardımcı olabilir.

1. Outlook'u başlatın ve «Microsoft Visual Basic for Applications» penceresini açmak için aynı anda «Alt» + «F11» tuşlarına basın.

2. «Microsoft Visual Basic for Applications» penceresinde, «Project1» > «Microsoft Outlook Nesneleri» > «ThisOutlookSession» öğesine çift tıklayarak «ThisOutlookSession (Kod)» penceresini açın ve aşağıdaki kodu bu kod penceresine kopyalayın.

VBA kodu: Tüm gün etkinliği durumunu varsayılan olarak «Meşgul» olarak ayarlama

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. VBA kodunu kaydedin ve Outlook'u yeniden başlatın.

Bundan sonra bir randevuyu veya toplantıyı tüm gün etkinliğine dönüştürdüğünüzde, «Göster» durumu varsayılan olarak «Meşgul» olarak görüntülenecektir.

İlgili makaleler

---

En İyi Office Verimlilik Araçları

Yepyeni Kutools for Outlook’i 100+ muhteşem özelliğiyle deneyimleyin!Şimdi indirmek için tıklayın!

🤖KUTOOLS AI:E-postaları yanıtlama, özetleme, iyileştirme, uzatma, çevirme ve yazma dahil olmak üzere zahmetsizce yönetmek için gelişmiş yapay zeka teknolojisi kullanır.

📧E-posta Otomasyonu: Otomatik Yanıt (POP ve IMAP için kullanılabilir) / E-postaları Zamanlayarak Gönderme / E-posta Gönderirken Kurallara Göre Otomatik CC/BCC / Otomatik Yönlendirme (Gelişmiş Kurallar) / Otomatik Selam Mesajı Ekleme / Çok Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Bölme…

📨E-posta Yönetimi: E-postayı Geri Çağırma, Konu Başlıklarına ve Diğerlerine Göre Dolandırıcılık E-postalarını Engelleme, Yinelenen E-postaları Silme, Gelişmiş Arama, Klasörleri Düzenleme…

📁Ek Dosyalar Pro: Toplu Kaydetme, Toplu Ayırma, Toplu Sıkıştırma, Otomatik Kaydet, Otomatik Ayır ve Otomatik Sıkıştır…

🌟Arayüz Büyüsü: 😊 Daha Güzel ve Havalı Emojiler / Önemli e-postalar geldiğinde sizi uyarır / Outlook’u Kapatmak Yerine Simge Durumuna Küçültür…

👍Tek Tıkla Harikalar: Tümüne Eklerle Yanıtla / Phishing E-postalarına Karşı Koruma / 🕘 Gönderenin Mevcut Saati: Saat Dilimini Göster…

👩🏼‍🤝‍👩🏻Kişiler & Takvim:Seçili E-postalardan Toplu Kişi Ekleme/Bir Kişi Grubunu Bireysel Gruplara Bölme/Doğum Günü Hatırlatıcısını Kaldırma…

Kutools’u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve 40’tan fazla başka dil desteğiyle!

Kutools for Outlook’u tek bir tıklamayla anında açın! Beklemeyin, hemen indirin ve verimliliğinizi artırın!

Kutools for Outlook Özellik Listesi      Şimdi İndirin      Satın Alma Sayfasına Git

🚀 Tek Tıkla İndir — Tüm Office Eklentilerini Edinin

Kesinlikle Önerilir: Kutools for Office (5’li Paket)

Beş yükleyiciyi tek tıklabir seferde indirin —Kutools for Excel, Outlook, Word, PowerPointve Office Tab Pro.Şimdi indirmek için tıklayın!

• ✅Tek tıkla kolaylık: Tüm beş kurulum paketini tek seferde indirin.
• 🚀Her Office görevine hazır: İhtiyacınız olduğunda, ihtiyacınız olan eklentileri yükleyin.
• 🧰İçerik: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

Paket Hakkında⬇ Paketi İndirin💳 Paketi Satın Alın