Ինչպես ավտոմատ կարգավորել Outlook-ը առցանց կամ անցանց՝ ձեր աշխատանքային ժամերի հիման վրա

Որոշ օգտատերեր կցանկանային այնպես անել, որ Outlook-ը ավտոմատ կերպով անցում կատարի առցանց և անցանց կարգավիճակի միջև՝ ելնելով իրենց աշխատանքային ժամերից: Այսպիսով, այս հոդվածում մենք ձեզ հետ կկիսվենք արագ մեթոդով:

Իրականում Outlook-ի առցանց կամ անցանց կարգավորումը շատ հեշտ է: Outlook-ը անցանց կարգավիճակի վերածելու համար պարզապես կարող եք անցնել «Ուղարկել/Ստանալ» ներդիրին և սեղմել «Աշխատել անցանց» կոճակը: Իսկ առցանց կարգավիճակին վերադառնալու համար պարզապես կրկին սեղմեք այս կոճակը: Այնուամենայնիվ, որոշ օգտատերեր հույս ունեն, որ Outlook-ը կարող է ավտոմատ կերպով անցնել օֆլայն կարգավիճակի, երբ այն ավարտված է աշխատանքային ժամերին, իսկ աշխատանքային ժամերին վերադառնալ առցանց: Չնայած Outlook-ը նման հատկություն չի տրամադրում, այնուամենայնիվ, դրան հասնելու համար կարող եք օգտագործել հետևյալ VBA կոդը:

Ավտոմատ կարգավորեք Outlook-ը առցանց կամ անցանց՝ ձեր աշխատանքային ժամերի հիման վրա

1. Սկզբում գործարկեք ձեր Outlook ծրագիրը։
2. Այնուհետև, ձեր Outlook-ին հասանելիություն ստանալուց հետո դուք պետք է բացեք ձեր Tasks պանակը:
3. Հաջորդը դուք պետք է ստեղծեք ամենօրյա կրկնվող առաջադրանքի տարր:

• Կտտացրեք «Նոր առաջադրանք» կոճակը ժապավենի վրա:
• Այնուհետև առաջադրանքի թեմայի տողում մուտքագրեք «Անցանց»:
• Հաջորդը, «Առաջադրանք» ներդիրի տակ սեղմեք «Recurrence» կոճակը:
• Բացվող երկխոսության վանդակում ընտրեք «Օրական» կրկնության օրինակը, միացրեք «Ավարտման ամսաթիվը չկա» և սեղմեք «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, նույնպես անհրաժեշտության հարց է։

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում շտկել mdf և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com