Paano Itakda ang Default na Oras ng Pagsisimula at Pagtatapos ng mga Pangyayari sa Buong Araw Batay sa Iyong Mga Oras ng Paggawa sa Outlook

Bilang default, hindi mo maaaring baguhin ang oras ng pagsisimula at pagtatapos ng mga kaganapan sa buong araw ayon sa iyong kagustuhan sa iyong Outlook. Ngayon, ipapakita sa iyo ng artikulong ito kung paano itakda ang default na oras ng pagsisimula at pagtatapos ng mga kaganapan sa buong araw ayon sa iyong oras ng pagtatrabaho.

Gaya ng nakikita mo, kapag pinagana mo ang opsyong “Buong araw na kaganapan” sa isang appointment, ang mga field na “Oras ng Pagsisimula” at “Oras ng Pagtatapos” ay magiging kulay abo. Sa ganitong sitwasyon, nangangahulugan ito na hindi mo pinapayagang baguhin ang mga ito ayon sa gusto mo. Samakatuwid, sa mga sumusunod, ibabahagi namin sa iyo ang isang paraan upang itakda ang default na oras ng pagsisimula at pagtatapos ng mga kaganapan sa buong araw batay sa iyong oras ng pagtatrabaho sa iyong Outlook.

Itakda ang Default na Oras ng Pagsisimula at Pagtatapos ng mga Pang-araw-araw na Kaganapan ayon sa Oras ng Paggawa

1. Para magsimula, ilunsad ang iyong programa sa Outlook.
2. Pagkatapos mong makapunta sa pangunahing screen ng Outlook, maaari mong pindutin ang mga pindutan ng "Alt + F11".
3. Sa dakong huli, makakakuha ka ng access sa window ng editor ng Outlook VBA.
4. Sa kasalukuyang window na "Microsoft Visual Basic para sa Mga Aplikasyon", kailangan mong buksan ang window ng proyekto na "ThisOutlookSession".
5. Pagkatapos kopyahin ang sumusunod na VBA code sa proyektong ito.

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objAppointment As Outlook.AppointmentItem

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If Inspector.CurrentItem.Class = olAppointment Then
       Set objAppointment = Inspector.CurrentItem
    End If
End Sub

Private Sub objAppointment_PropertyChange(ByVal Name As String)
    Dim dOccuringDate As Date

    If Name = "AllDayEvent" Then
       If objAppointment.AllDayEvent = True Then
          dOccuringDate = Format(objAppointment.Start, "Short Date")
 
          'Change the Start and End Time as per Working Hours
          With objAppointment
               .AllDayEvent = False
               .Start = dOccuringDate & " 9:00:00 AM"
               .End = dOccuringDate & " 6:00:00 PM"
          End With
       End If
    End If
End Sub

Private Sub objAppointment_Open(Cancel As Boolean)
    If objAppointment.AllDayEvent = True Then
       dOccuringDate = Format(objAppointment.Start, "Short Date")
 
       With objAppointment
            .AllDayEvent = False
            .Start = dOccuringDate & " 9:00:00 AM"
            .End = dOccuringDate & " 6:00:00 PM"
       End With
    End If
End Sub

6. Pagkatapos nito, kailangan mong pirmahan ang code na ito. I-click ang "Mga Tool"> "Lagda".
7. Sa kasunod na kahon ng dayalogo, sundin ang mga tagubilin sa onscreen upang magtalaga ng isang digital na sertipiko sa bagong proyekto ng VBA.
8. Sa paglaon dapat mong baguhin ang iyong mga setting ng macro sa Outlook upang payagan ang mga digital na naka-sign na macros.
9. Sa kalaunan ay maaari mong i-restart ang iyong Outlook application upang i-activate ang macro na ito.
10. Mula ngayon, sa tuwing ie-enable mo ang opsyong “All day event” sa isang appointment sa Outlook, ang oras ng pagsisimula at pagtatapos ng appointment ay babaguhin sa iyong mga oras ng trabaho, tulad ng sumusunod na screenshot:

Kunin ang Mahalagang Data mula sa Nakompromisong file ng Outlook

Kahit na ipinagmamalaki ng Outlook ang maraming iba't ibang mga tampok, hindi ito nangangahulugan na ito ay ganap na walang kamali-mali. Maaari pa rin itong masira dahil sa iba`t ibang mga kadahilanan, tulad ng mga virus na dala ng email, hindi tamang paghawak ng tao at iba pa. Samakatuwid, bukod sa paggawa ng regular na mga backup ng data ng PST, mas mahusay mong maghanda ng isang malakas na panlabas na tool sa pag-aayos ng PST sa malapit, tulad ng DataNumen Outlook Repair. Maaari ito ayusin ang PST mga isyu sa isang maikling span ng oras.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang mdf ayusin at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa