Çalışma Saatlerinize Göre Outlook'u Çevrimiçi veya Çevrimdışı Olarak Otomatik Olarak Ayarlama

Bazı kullanıcılar, çalışma saatlerine bağlı olarak Outlook'un çevrimiçi ve çevrimdışı durum arasında otomatik olarak geçiş yapmasını ister. O yüzden bu yazımızda sizinle hızlı bir yöntem paylaşacağız.

Aslında, Outlook'u çevrimiçi veya çevrimdışı olarak ayarlamak çok kolaydır. Outlook'u çevrimdışı duruma getirmek için "Gönder/Al" sekmesine geçip "Çevrimdışı Çalış" düğmesine basmanız yeterlidir. Ve çevrimiçi duruma geri dönmek için bu düğmeye tekrar basmanız yeterlidir. Ancak bazı kullanıcılar, Outlook'un çalışma saatleri dışında otomatik olarak çevrimdışı duruma geçebileceğini ve çalışma saatlerinde çevrimiçi duruma dönebileceğini umuyor. Outlook böyle bir özellik sağlamasa da, bunu elde etmek için aşağıdaki VBA kodunu kullanabilirsiniz.

Çalışma Saatlerinize Göre Outlook'u Çevrimiçi veya Çevrimdışı Olarak Otomatik Olarak Ayarlayın

1. Öncelikle Outlook uygulamanızı başlatın.
2. Ardından, Outlook'unuza eriştikten sonra Görevler klasörünüzü açmalısınız.
3. Ardından, günlük olarak yinelenen bir Görev öğesi oluşturmalısınız.

• Şeritteki “Yeni Görev” düğmesine tıklayın.
• Ardından, Görev konu satırına "Çevrimdışı" yazın.
• Daha sonra “Görev” sekmesi altındaki “Yineleme” düğmesine tıklayın.
• Açılır iletişim kutusunda, "Günlük" yinelenme modelini seçin, "Bitiş tarihi yok"u etkinleştirin ve "Tamam"a basın.
• Ardından, "5:00"da bir Hatırlatıcıyı etkinleştirmelisiniz.
• Son olarak “Kaydet ve Kapat” düğmesine basın.

4. Ardından, "Çevrimiçi" adlı başka bir günlük yinelenen Görev oluşturmanız ve aşağıdaki resimde gösterildiği gibi "8:00"da bir hatırlatıcıyı etkinleştirmeniz gerekir:
5. Ardından Outlook ana penceresinde “Alt + F11” tuşlarına basın.
6. Ardından, "ThisOutlookSession" projesini bulup açmanız gereken Outlook VBA düzenleyicisine erişeceksiniz.
7. Daha sonra aşağıdaki VBA kodunu bu projeye 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. Son olarak, bu makroyu etkinleştirmek için Outlook'u yeniden başlatabilirsiniz.
9. Artık Outlook'unuz çalışma saatlerinde çevrimiçi olacak ve çalışma saatleri dışında otomatik olarak çevrimdışı duruma geçecektir.

Outlook Çökmesi Durumunda Son Çareniz

Outlook birden çok özelliğe sahip olsa da, Outlook yine de hatalardan ve hasarlardan uzak duramaz. Ama panik yapmayın. Yeterli önlemleri aldığınız sürece, Outlook verilerinizi etkili bir şekilde koruyabilirsiniz. Örneğin, yedeklemeler geri dönmenizi sağlayacağından, PST dosyalarınızı düzenli olarak yedeklemelisiniz. bozuk PST veri. Ayrıca, güçlü bir onarım aracına sahip olmak, örneğin DataNumen Outlook Repair, aynı zamanda bir zaruret meselesidir.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. mdf'yi düzelt ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com