Qanday qilib Outlookni ish vaqtingizga qarab onlayn yoki oflayn rejimda avtomatik sozlash mumkin

Ba'zi foydalanuvchilar Outlook-ni ish soatlariga qarab onlayn va oflayn holat o'rtasida avtomatik almashishni xohlashadi. Shunday qilib, ushbu maqolada biz siz bilan tezkor usulni baham ko'ramiz.

Aslida, Outlook-ni onlayn yoki oflayn rejimda sozlash juda oson. Outlook-ni oflayn holatga o'tkazish uchun siz shunchaki "Yuborish/qabul qilish" yorlig'iga o'tishingiz va "Oflayn rejimda ishlash" tugmasini bosishingiz mumkin. Onlayn holatga qaytish uchun esa yana shu tugmani bosing. Biroq, ba'zi foydalanuvchilar Outlook ish vaqtidan tashqarida avtomatik ravishda oflayn holatga o'tishi va ish vaqtida onlayn rejimiga qaytishiga umid qiladi. Outlook bunday xususiyatni taqdim qilmasa ham, unga erishish uchun quyidagi VBA kodidan foydalanishingiz mumkin.

Outlookni ish vaqtingizga qarab onlayn yoki oflayn rejimda avtomatik sozlash

1. Eng boshidanoq, Outlook ilovangizni ishga tushiring.
2. Keyin, Outlook-ga kirganingizdan so'ng, Vazifalar papkasini ochishingiz kerak.
3. Keyin kundalik takrorlanadigan vazifa elementini yaratishingiz kerak.

• Tasmadagi "Yangi vazifa" tugmasini bosing.
• Keyin Vazifa mavzusiga "Oflayn" ni kiriting.
• Keyin "Vazifa" yorlig'i ostidagi "Takrorlanish" tugmasini bosing.
• Qalqib chiquvchi dialog oynasida "Kundalik" takrorlash namunasini tanlang, "Yakunlash sanasi yo'q" ni yoqing va "OK" tugmasini bosing.
• Keyin "5:00" da Eslatmani yoqishingiz kerak.
• Nihoyat, "Saqlash va yopish" tugmasini bosing.

4. Keyinchalik, "Onlayn" deb nomlangan yana bir kunlik takrorlanadigan vazifani yaratishingiz va quyidagi rasmda ko'rsatilgan "8:00 AM" da eslatmani yoqishingiz kerak:
5. Shundan so'ng, Outlook asosiy oynasida "Alt + F11" tugmachalarini bosing.
6. Keyinchalik siz Outlook VBA muharririga kirishingiz mumkin, unda siz "ThisOutlookSession" loyihasini topishingiz va ochishingiz kerak.
7. Keyinchalik ushbu loyihaga quyidagi VBA kodini nusxa ko'chiring.

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. Oxir-oqibat, ushbu so'lni faollashtirish uchun Outlook-ni qayta ishga tushirishingiz mumkin.
9. Bundan buyon sizning Outlook ish vaqtida onlayn bo'ladi va ish vaqtidan tashqarida avtomatik ravishda oflayn holatga o'tadi.

Outlook ishlamay qolganda sizning oxirgi chorangiz

Outlook bir nechta funksiyalarga ega bo'lsa-da, Outlook hali ham xatolar va zararlardan uzoqlasha olmaydi. Lekin vahima qo'ymang. Etarlicha ehtiyot choralarini ko'rsangiz, Outlook ma'lumotlaringizni samarali himoya qila olasiz. Misol uchun, siz PST fayllaringizni muntazam ravishda zaxiralashingiz kerak, chunki zaxira nusxalari sizga qaytishga imkon beradi buzilgan PST ma'lumotlar. Bundan tashqari, kuchli ta'mirlash vositasini saqlash, masalan DataNumen Outlook Repair, ham zarurat masalasidir.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc mdf ni tuzatish va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com