Ажлын цаг дээр үндэслэн Outlook-ийг онлайн эсвэл офлайнаар хэрхэн автоматаар тохируулах вэ

Зарим хэрэглэгчид Outlook-ийг ажлын цагаараа онлайн болон офлайн статусын хооронд автоматаар солихыг хүсдэг. Тиймээс, энэ нийтлэлд бид тантай хурдан аргыг хуваалцах болно.

Үнэндээ Outlook-ийг онлайн эсвэл офлайнаар тохируулах нь маш хялбар юм. Outlook-г офлайн төлөвт шилжүүлэхийн тулд та "Илгээх/хүлээн авах" таб руу шилжиж, "Офлайнаар ажиллах" товчийг дарахад л хангалттай. Онлайн статус руу буцахын тулд энэ товчийг дахин дарна уу. Гэсэн хэдий ч зарим хэрэглэгчид Outlook нь ажлын цаг дууссан үед автоматаар офлайн төлөвт шилжиж, ажлын цагаар онлайн горимд буцаж чадна гэж найдаж байна. Хэдийгээр Outlook нь ийм боломжоор хангаагүй ч та үүнийг хэрэгжүүлэхийн тулд дараах VBA кодыг ашиглаж болно.

Таны ажлын цаг дээр үндэслэн Outlook-ийг онлайн эсвэл офлайнаар автоматаар тохируулна уу

1. Хамгийн эхэнд Outlook програмаа ажиллуулна уу.
2. Дараа нь Outlook рүүгээ нэвтэрсний дараа та Tasks хавтасаа нээх хэрэгтэй.
3. Дараа нь та өдөр бүр давтагдах Даалгаврын зүйлийг үүсгэх хэрэгтэй.

• Тууз дээрх "Шинэ даалгавар" товчийг дарна уу.
• Дараа нь Даалгаврын сэдвийн мөрөнд "Оффлайн" гэж оруулна уу.
• Дараа нь "Даалгавар" таб дээрх "Дахин давтагдах" товчийг дарна уу.
• Гарч ирэх харилцах цонхноос "Өдөр тутмын" давталтын загварыг сонгоод "Төгсгөлийн огноо байхгүй" гэснийг идэвхжүүлээд "OK" дээр дарна уу.
• Дараа нь та "5:00"-д Сануулагчийг идэвхжүүлэх хэрэгтэй.
• Эцэст нь "Хадгалах, хаах" товчийг дарна уу.

4. Дараа нь та "Онлайн" нэртэй өдөр бүр давтагдах өөр ажил үүсгэж, доорх зурагт үзүүлсэн "8:00 AM"-д сануулагчийг идэвхжүүлэх хэрэгтэй.
5. Үүний дараа Outlook үндсэн цонхонд "Alt + F11" товчийг дарна уу.
6. Дараа нь та "ThisOutlookSession" төслийг олж нээх шаардлагатай Outlook VBA засварлагч руу нэвтрэх боломжтой болно.
7. Дараа нь энэ төсөл рүү дараах VBA кодыг хуулна уу.

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. Эцэст нь та энэ макрог идэвхжүүлэхийн тулд Outlook-г дахин эхлүүлж болно.
9. Одооноос таны Outlook ажлын цагаар онлайн байх ба ажлын бус цагаар автоматаар офлайн төлөвт шилжих болно.

Outlook эвдэрсэн тохиолдолд таны хамгийн сүүлчийн арга зам

Outlook нь олон боломжуудтай хэдий ч Outlook нь алдаа, гэмтэлээс хол байж чадахгүй. Гэхдээ бүү сандар. Хангалттай урьдчилан сэргийлэх арга хэмжээ авснаар та Outlook мэдээллээ үр дүнтэй хамгаалж чадна. Жишээлбэл, та PST файлуудаа тогтмол нөөцлөх хэрэгтэй, учир нь нөөцлөлт нь танд буцааж авах боломжийг олгоно авлига авсан PST өгөгдөл. Мөн хүчирхэг засварын хэрэгслийг хадгалах, гэх мэт DataNumen Outlook Repair, бас зайлшгүй шаардлагатай асуудал юм.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. mdf-ийг засах програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com