Cara Auto Set Outlook Secara Online atau Offline Berdasarkan Waktu Kerja Anda

Sebilangan pengguna ingin menjadikan Outlook bertukar secara automatik antara status dalam talian dan luar talian berdasarkan waktu bekerja mereka. Oleh itu, dalam artikel ini, kami akan berkongsi kaedah ringkas dengan anda.

Sebenarnya, menetapkan Outlook dalam talian atau luar talian sangat mudah. Untuk mengubah Outlook menjadi status luar talian, Anda cukup beralih ke tab "Kirim / Terima" dan tekan butang "Bekerja di Luar Talian". Dan untuk kembali ke status dalam talian, tekan butang ini sekali lagi. Walau bagaimanapun, sebilangan pengguna berharap Outlook dapat beralih ke status luar talian secara automatik ketika waktu bekerja dan kembali ke dalam talian dalam waktu bekerja. Walaupun Outlook tidak menyediakan ciri seperti itu, anda masih dapat menggunakan kod VBA berikut untuk mencapainya.

Tetapkan secara automatik Outlook dalam talian atau luar talian berdasarkan waktu bekerja anda

1. Pada peringkat awal, staraplikasi Outlook anda.
2. Kemudian, setelah mendapat akses ke Outlook, anda harus membuka folder Tasks anda.
3. Seterusnya anda harus membuat item Tugas berulang setiap hari.

• Klik pada butang "Tugas Baru" di pita.
• Kemudian masukkan "Offline" di baris subjek Task.
• Klik seterusnya pada butang "Kambuhan" di bawah tab "Tugas".
• Dalam kotak dialog pop timbul, pilih corak pengulangan "Harian", aktifkan "Tiada tarikh akhir" dan tekan "OK".
• Seterusnya anda harus mengaktifkan Peringatan pada "5:00 PM".
• Terakhir tekan butang "Simpan & Tutup".

4. Selepas itu, anda perlu membuat satu lagi Tugas berulang harian yang disebut "Online" dan mengaktifkan peringatan pada "8:00 AM", ditunjukkan seperti gambar di bawah:
5. Setelah itu, di tetingkap utama Outlook, tekan butang kekunci "Alt + F11".
6. Seterusnya anda akan mendapat akses ke Outlook VBA editor, di mana anda perlu mencari dan membuka projek "ThisOutlookSession".
7. Kemudian salin kod VBA berikut ke dalam projek ini.

Dim objNameSpace As Outlook.NameSpace

'Set Online/Offline Status on Outlook Startup
Private Sub Application_Startup()
    Set objNameSpace = Application.GetNamespace("MAPI")
 
    'If now is before 8:00 AM or after 5:00 PM on Outlook startup
    If Now() < DateSerial(Year(Now), Month(Now), Day(Now)) + #8:00:00 AM# Or Now() > DateSerial(Year(Now), Month(Now), Day(Now)) + #5:00:00 PM# Then
 
       'If Outlook is online
       If objNameSpace.Offline = False Then
          'set it offline
          ActiveExplorer().CommandBars.FindControl(, 5613).Execute
       End If
 
       'If now is between 8:00 AM and 5:00 PM
    Else
 
       'If Outlook is offline
       If objNameSpace.Offline = True Then
          'Set it online
          ActiveExplorer().CommandBars.FindControl(, 5613).Execute
       End If
    End If
End Sub

'Change Online/Offline Status at Specific Time
Private Sub Application_Reminder(ByVal Item As Object)
    Dim objOfflineTask As Outlook.TaskItem
    Dim objOnlineTask As Outlook.TaskItem
 
    Set objNameSpace = Application.GetNamespace("MAPI")
 
    If TypeOf Item Is TaskItem Then
       If Item.Subject = "Offline" Then
          Set objOfflineTask = Item
 
          'If Outlook is online when "Offline" task reminder alerts
          If objNameSpace.Offline = False Then
             'Set Outlook offline
             ActiveExplorer().CommandBars.FindControl(, 5613).Execute
          End If
 
          'Clear the reminder by marking task complete
          objOfflineTask.MarkComplete
 
       ElseIf Item.Subject = "Online" Then
          Set objOnlineTask = Item
 
          'If Outlook is offline when "Online" task reminder alerts
          If objNameSpace.Offline = True Then
             'Set Outlook online
             ActiveExplorer().CommandBars.FindControl(, 5613).Execute
          End If
 
          objOnlineTask.MarkComplete
 
       End If
    End If
End Sub

8. Akhirnya, anda boleh membuat restart Outlook untuk mengaktifkan makro ini.
9. Mulai sekarang, Outlook anda akan berada dalam talian dalam waktu bekerja dan beralih secara automatik ke status luar talian di luar waktu bekerja.

Jalan Terakhir Anda dalam Kejadian Outlook

Walaupun Outlook mempunyai banyak ciri, Outlook tetap tidak dapat menjauhkan diri dari kesalahan dan kerosakan. Tetapi jangan panik. Selagi anda membuat langkah berjaga-jaga yang mencukupi, anda masih dapat melindungi data Outlook anda dengan berkesan. Sebagai contoh, anda harus membuat sandaran fail PST anda secara berkala kerana sandaran akan membolehkan anda kembali PST yang rosak data. Juga, menyimpan alat pembaikan yang kuat, seperti DataNumen Outlook Repair, juga merupakan perkara keperluan.

Pengenalan Pengarang:

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