Cara Menetapkan Masa Mula dan Tamat Lalai Acara Sepanjang Hari Berdasarkan Waktu Kerja Anda dalam Outlook

Secara lalai, anda tidak dibenarkan mengubah masa mula dan tamat acara sepanjang hari mengikut kehendak anda dalam Outlook anda. Kini, artikel ini akan menunjukkan kepada anda cara menetapkan masa mula dan tamat lalai acara sepanjang hari mengikut waktu kerja anda.

Seperti yang anda lihat, apabila anda mendayakan pilihan "Acara sepanjang hari" dalam temu janji, kedua-dua medan "Waktu Mula" dan "Waktu Tamat" akan dikelabukan. Dalam senario ini, ini bermakna anda tidak dibenarkan mengubahnya mengikut citarasa anda. Oleh itu, berikut, kami akan berkongsi kaedah untuk menetapkan masa mula dan tamat lalai bagi acara sepanjang hari berdasarkan waktu kerja anda dalam Outlook anda.

Tetapkan Waktu Mula dan Tamat Lalai bagi Acara Sepanjang Hari mengikut Waktu Bekerja

1. Untuk bermula, lancarkan program Outlook anda.
2. Setelah masuk ke skrin Outlook utama, anda dapat menekan butang "Alt + F11".
3. Selepas itu, anda akan mendapat akses ke tetingkap editor Outlook VBA.
4. Pada tetingkap "Microsoft Visual Basic for Applications" semasa, anda perlu membuka tetingkap projek "ThisOutlookSession".
5. Kemudian salin kod VBA berikut ke dalam projek ini.

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objAppointment As Outlook.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_PropertyChange(ByVal Name As String)
    Dim dOccuringDate As Date

    If Name = "AllDayEvent" Then
       If objAppointment.AllDayEvent = True Then
          dOccuringDate = Format(objAppointment.Start, "Short Date")
 
          'Change the Start and End Time as per Working Hours
          With objAppointment
               .AllDayEvent = False
               .Start = dOccuringDate & " 9:00:00 AM"
               .End = dOccuringDate & " 6:00:00 PM"
          End With
       End If
    End If
End Sub

Private Sub objAppointment_Open(Cancel As Boolean)
    If objAppointment.AllDayEvent = True Then
       dOccuringDate = Format(objAppointment.Start, "Short Date")
 
       With objAppointment
            .AllDayEvent = False
            .Start = dOccuringDate & " 9:00:00 AM"
            .End = dOccuringDate & " 6:00:00 PM"
       End With
    End If
End Sub

6. Selepas itu, anda perlu menandatangani kod ini. Klik "Alat"> "Tandatangan".
7. Dalam kotak dialog seterusnya, ikuti arahan pada skrin untuk memberikan sijil digital untuk projek VBA baru.
8. Kemudian anda harus mengubah tetapan makro Outlook anda untuk membenarkan makro yang ditandatangani secara digital.
9. Akhirnya anda boleh memulakan semula aplikasi Outlook anda untuk mengaktifkan makro ini.
10. Mulai sekarang, setiap kali anda mendayakan pilihan "Acara sepanjang hari" dalam temu janji Outlook, masa mula dan tamat temu janji akan ditukar kepada waktu kerja anda, seperti tangkapan skrin berikut:

Dapatkan data berharga dari fail Outlook yang dikompromikan

Walaupun Outlook mempunyai pelbagai ciri, itu tidak bermaksud sepenuhnya sempurna. Ia masih boleh rosak kerana pelbagai faktor, seperti virus yang ditanggung e-mel, pengendalian manusia yang tidak betul dan sebagainya. Oleh itu, selain daripada membuat sandaran data PST biasa, anda lebih baik menyediakan alat memperbaiki PST luaran yang kuat di dekatnya, seperti DataNumen Outlook Repair. Ia boleh membaiki PST masalah dalam jangka masa yang singkat.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk mdf betulkan dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com