Як автоматично встановити Outlook в Інтернеті або в автономному режимі на основі Вашого робочого часу

Деякі користувачі хотіли б, щоб Outlook автоматично перемикався між онлайновим та офлайн-статусом залежно від робочого часу. Отже, у цій статті ми поділимося з вами швидким методом.

Насправді встановити Outlook в Інтернеті чи в автономному режимі дуже просто. Щоб перевести Outlook у офлайн-статус, ви можете просто перейти на вкладку «Надіслати / Отримати» та натиснути кнопку «Працювати в автономному режимі». А щоб повернутися до стану Інтернету, просто натисніть цю кнопку ще раз. Однак деякі користувачі сподіваються, що Outlook може автоматично перейти в офлайн-статус, коли він не працює, і повернутися до Інтернету в робочий час. Незважаючи на те, що Outlook не надає такої функції, ви все одно можете використовувати наступний код VBA для її досягнення.

Автоматично встановлюйте Outlook в Інтернеті або в режимі офлайн залежно від робочого часу

1. На самому початку запустіть програму Outlook.
2. Потім, отримавши доступ до Outlook, слід відкрити папку Завдання.
3. Далі слід створити щоденний повторюваний пункт Завдання.

• Натисніть кнопку «Нове завдання» на стрічці.
• Потім введіть “Offline” у рядок теми Завдання.
• Потім натисніть кнопку «Повторення» на вкладці «Завдання».
• У спливаючому діалоговому вікні виберіть "Щоденний" шаблон повторення, увімкніть "Без дати завершення" та натисніть "OK".
• Далі слід увімкнути нагадування о “5:00”.
• Нарешті натисніть кнопку «Зберегти та закрити».

4. Згодом вам потрібно створити ще одне щоденне повторюване завдання під назвою «Інтернет» і ввімкнути нагадування о «8:00», як показано нижче:
5. Після цього в головному вікні Outlook натисніть клавіші “Alt + F11”.
6. Далі ви отримаєте доступ до редактора Outlook VBA, в якому вам потрібно знайти та відкрити проект “ThisOutlookSession”.
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