İş saatlarınıza əsasən Outlook-u onlayn və ya oflayn olaraq necə avtomatik qurmaq olar

Bəzi istifadəçilər Outlook-u iş saatlarına əsasən onlayn və oflayn statuslar arasında avtomatik keçid etmək istəyirlər. Beləliklə, bu yazıda sizinlə sürətli bir üsul paylaşacağıq.

Əslində, Outlook-u onlayn və ya oflayn qurmaq çox asandır. Outlook-u oflayn vəziyyətə çevirmək üçün sadəcə “Göndər/Qəbul” sekmesine keçib “Oflayn işlə” düyməsini sıxa bilərsiniz. Onlayn statusa qayıtmaq üçün bu düyməni yenidən sıxmaq kifayətdir. Bununla belə, bəzi istifadəçilər ümid edirlər ki, Outlook iş vaxtı bitdikdə avtomatik olaraq oflayn vəziyyətə keçə və iş saatlarında onlayn rejimə qayıda bilər. Outlook belə bir xüsusiyyət təmin etməsə də, buna nail olmaq üçün hələ də aşağıdakı VBA kodundan istifadə edə bilərsiniz.

İş saatlarınıza əsasən Outlook-u Onlayn və ya Oflayn olaraq avtomatik təyin edin

1. Ən başında, Outlook tətbiqinizi başladın.
2. Sonra, Outlook-a daxil olduqdan sonra Tapşırıqlar qovluğunu açmalısınız.
3. Sonra gündəlik təkrarlanan Tapşırıq elementi yaratmalısınız.

• Lentdəki "Yeni tapşırıq" düyməsini basın.
• Sonra Tapşırığın mövzu sətrində “Oflayn” yazın.
• Sonra "Tapşırıq" sekmesinin altındakı "Təkrarlama" düyməsini basın.
• Açılan informasiya qutusunda “Gündəlik” təkrarlanma nümunəsini seçin, “Bitmə tarixi yoxdur” seçimini aktivləşdirin və “OK” düyməsini basın.
• Sonra “5:00-da” Xatırlatma aktivləşdirməlisiniz.
• Sonda "Saxla və Bağla" düyməsini basın.

4. Daha sonra, "Onlayn" adlı başqa bir gündəlik təkrarlanan Tapşırıq yaratmalı və aşağıdakı şəkildə göstərildiyi kimi "8:00 AM" xatırladıcısını aktivləşdirməlisiniz:
5. Bundan sonra, Outlook əsas pəncərəsində "Alt + F11" düymələrini basın.
6. Sonra, “ThisOutlookSession” layihəsini tapıb açmalı olduğunuz Outlook VBA redaktoruna giriş əldə edəcəksiniz.
7. Daha sonra bu layihəyə aşağıdakı VBA kodunu kopyalayın.

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. Nəhayət, bu makronu aktivləşdirmək üçün Outlook-u yenidən başlada bilərsiniz.
9. Bundan sonra Outlook iş saatlarında onlayn olacaq və iş saatları xaricində avtomatik olaraq oflayn vəziyyətə keçəcək.

Outlook qəzaları zamanı son çarəniz

Outlook bir çox xüsusiyyətlərə malik olsa da, Outlook hələ də səhvlərdən və zərərlərdən uzaqlaşa bilmir. Amma panik etməyin. Kifayət qədər ehtiyat tədbirləri gördüyünüz müddətdə Outlook məlumatlarınızı hələ də effektiv şəkildə qoruya bilərsiniz. Məsələn, PST fayllarınızın ehtiyat nüsxəsini müntəzəm surətdə çıxarmalısınız, çünki ehtiyat nüsxələri sizə geri qayıtmağa imkan verəcək pozulmuş PST data. Həmçinin, kimi güclü təmir aləti saxlamaq DataNumen Outlook Repair, həm də zərurət məsələsidir.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc mdf düzəldin və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com