Loncat ke daftar isi utama

Bagaimana cara mengubah default acara sepanjang hari menjadi sibuk di Outlook?

Secara default, Outlook menyetel status janji temu dan rapat ke "Sibuk", tapi acara sepanjang hari untuk "Gratis" (lihat tangkapan layar di bawah). Anda perlu mengubah status Tampilkan Sebagai secara manual menjadi Sibuk setiap kali Anda membuat acara sepanjang hari. Untuk mengubah acara default sebagai status acara sepanjang hari menjadi Sibuk, artikel ini memberi Anda dua metode.


Ubah default acara sepanjang hari menjadi sibuk dengan membuat formulir khusus

Formulir khusus dapat membantu Anda membuat acara sepanjang hari dengan default Tunjukkan Sebagai status dari Sibuk. Silakan lakukan sebagai berikut.

1. Bergeser ke tampilan Kalender. Klik Beranda > Penunjukan Baru.

2. Di jendela Appointment yang baru, klik Developer > Design This Form.

Tip: Jika Pengembang tab tidak muncul di pita, ikuti metodenya dalam artikel ini untuk menampilkannya

3. Kemudian jendela janji temu berubah ke mode desain. Anda perlu mengklik (H.2) Tab.

4. Seret Acara sepanjang hari bidang dan Tunjukkan Waktu Sebagai bidang dari Pemilih Lapangan panel secara terpisah ke papan di bawah (H.2) tab

5. Klik kanan drag-out Acara sepanjang hari bidang dan pilih Properties dari menu konteks

6. Dalam Properties kotak dialog, Anda perlu mengkonfigurasi sebagai berikut.

6.1) Buka Nilai Tab;
6.2) Di Nilai Awal bagian, periksa Tetapkan nilai awal bidang ini ke kotak;
6.3) Masukkan nilai "Benar" ke dalam kotak teks;
6.4) Klik OK tombol. Lihat tangkapan layar:

7. Klik kanan kotak kombo dari Tunjukkan Waktu Sebagai lapangan dan klik Properties dari menu konteks

8. Dalam Properties kotak dialog, Anda perlu mengkonfigurasi sebagai berikut.

8.1) Buka Nilai Tab;
8.2) Di Nilai Awal bagian, periksa Tetapkan nilai awal bidang ini ke kotak;
8.3) Masukkan nomor “2” ke dalam kotak teks;
8.4) Klik OK tombol. Lihat tangkapan layar:

9. klik Menerbitkan > Publikasikan Formulir As pada pita.

10. Dalam Publikasikan Formulir As kotak dialog, Anda perlu:

10.1) Pilih folder tujuan untuk formulir khusus di Lihat kedalam daftar drop-down. Disini saya memilih Perpustakaan Formulir Pribadi barang;
10.2) Beri nama formulir khusus di Nama tampilan kolom tulisan;
10.3) Klik Menerbitkan tombol. Lihat tangkapan layar:

11. Tutup jendela Appointment tanpa menyimpan.

12. Mulai sekarang, ketika Anda perlu membuat acara sepanjang hari dengan Tampilkan sebagai status default ke Sibuk, silakan geser ke Kalender lihat dan klik Beranda > Produk Baru > Formulir Kustom > “Nama formulir kustom”.

Catatan: Untuk membuat acara sepanjang hari dengan Tampilkan sebagai status default ke "Gratis", lakukan seperti biasa: klik Beranda > Penunjukan Baru, lalu periksa Semua acara hari kotak di Penunjukan jendela.


Ubah default acara sepanjang hari menjadi sibuk dengan menggunakan VBA

Metode di atas memiliki terlalu banyak langkah. Jika Anda selalu perlu membuat acara sepanjang hari dengan status Tampilkan Sebagai default ke "Sibuk", kode VBA berikut dapat membantu Anda menyelesaikannya dengan mudah.

1. Luncurkan Outlook Anda, tekan lain + F11 tombol secara bersamaan untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Dalam Microsoft Visual Basic untuk Aplikasi jendela, klik dua kali pada Project1 > Objek Microsoft Outlook > Sesi Pandangan ini untuk membuka Sesi Pandangan ini (Kode) jendela, dan kemudian salin kode berikut ke jendela kode ini.

Kode VBA: Setel default status acara sepanjang hari ke "Sibuk"

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. Simpan kode VBA dan mulai ulang Outlook.

Mulai sekarang, setelah mengubah janji temu atau rapat menjadi acara sepanjang hari, Tunjukkan Sebagai status akan ditampilkan sebagai "Sibuk" secara default


Terkait artikel

Ubah Waktu Pengingat Default Acara Sepanjang Hari Di Outlook
Biasanya, waktu pengingat default untuk acara sepanjang hari adalah 18 jam di Outlook 2007/2010 dan 0.5 hari di Outlook 2013. Terkadang, waktu pengingat default untuk acara sepanjang hari mungkin tidak sesuai dengan jadwal kerja Anda. Di sini kami akan memperkenalkan cara mengubah waktu pengingat default untuk acara sepanjang hari di Microsoft Outlook.

Ubah Waktu Tindak Lanjut Default Di Outlook
Seperti yang kita ketahui, saat kami menambahkan pengingat tindak lanjut untuk email di Outlook, waktu tindak lanjut default adalah 4 (atau waktu lain tergantung jam kerja Anda). Namun, Anda mungkin ingin mengubah waktu tindak lanjut default, dan membiarkannya mengingatkan Anda di awal jam kerja, seperti 30:9. Pada artikel ini, saya akan menunjukkan kepada Anda cara mengubah waktu tindak lanjut default di Outlook.

Ubah Lokasi Arsip Default Di Outlook
Secara default, Outlook memiliki lokasi default untuk file arsip. Selain lokasi default, Anda dapat mengatur lokasi arsip Anda sendiri untuk file arsip Anda. Dalam tutorial ini, kami akan menunjukkan cara mengubah lokasi arsip default di Outlook secara detail.

Ubah Lokasi Penyimpanan Lampiran Default Di Outlook
Pernahkah Anda muak menemukan lokasi lampiran yang telah Anda tentukan setiap kali meluncurkan Outlook? Dalam tutorial ini, kami akan menunjukkan cara mengubah lokasi lampiran default. Setelah itu, folder penyimpanan lampiran yang ditentukan akan dibuka secara otomatis setiap kali Anda menyimpan lampiran meskipun Anda memulai ulang Outlook.

Ubah Waktu Default Untuk Penundaan Pengiriman Di Outlook
Tutorial ini menyediakan kode VBA untuk membantu Anda mengubah waktu default untuk opsi pengiriman tunda di Outlook.


Alat Produktivitas Kantor Terbaik

Kutools untuk Outlook - Lebih dari 100 Fitur Canggih untuk Meningkatkan Outlook Anda

🤖 Asisten Surat AI: Email profesional instan dengan keajaiban AI--satu klik untuk mendapatkan balasan jenius, nada sempurna, penguasaan multibahasa. Ubah email dengan mudah! ...

📧 Email Otomatis: Di Luar Kantor (Tersedia untuk POP dan IMAP)  /  Jadwal Kirim Email  /  Auto CC/BCC Sesuai Aturan Saat Mengirim Email  /  Penerusan Otomatis (Aturan Lanjutan)   /  Tambah Salam Otomatis   /  Secara Otomatis Membagi Email Multi-Penerima menjadi Pesan Individual ...

📨 email Management: Mengingat Email dengan Mudah  /  Blokir Email Penipuan berdasarkan Subjek dan Lainnya  /  Hapus Email Duplikat  /  Pencarian  /  Konsolidasi Folder ...

📁 Lampiran ProPenyimpanan Batch  /  Pelepasan Batch  /  Kompres Batch  /  Penyimpanan otomatis   /  Lepaskan Otomatis  /  Kompres Otomatis ...

🌟 Antarmuka Ajaib: 😊Lebih Banyak Emoji Cantik dan Keren   /  Tingkatkan Produktivitas Outlook Anda dengan Tampilan Tab  /  Minimalkan Outlook Daripada Menutup ...

👍 Keajaiban sekali klik: Balas Semua dengan Lampiran Masuk  /   Email Anti-Phishing  /  🕘Tampilkan Zona Waktu Pengirim ...

👩🏼‍🤝‍👩🏻 Kontak & Kalender: Batch Tambahkan Kontak Dari Email yang Dipilih  /  Bagi Grup Kontak menjadi Grup Individual  /  Hapus Pengingat Ulang Tahun ...

Lebih 100 Fitur Tunggu Eksplorasi Anda! Klik Di Sini untuk Menemukan Lebih Banyak.

 

 

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