Outlook дээрх ажлын цаг дээрээ үндэслэн бүтэн өдрийн үйл явдлын анхдагч эхлэх болон дуусах цагийг хэрхэн тохируулах вэ

Анхдагчаар та Outlook дээрх бүхэл өдрийн үйл явдлын эхлэх болон дуусах цагийг өөрийн хүссэнээр өөрчлөх боломжгүй. Одоо энэ нийтлэлд ажлын цагийн дагуу бүхэл өдрийн үйл явдлын эхлэх болон дуусах анхдагч цагийг хэрхэн тохируулахыг харуулах болно.

Таны харж байгаагаар, та уулзалтад "Бүтэн өдрийн арга хэмжээ" сонголтыг идэвхжүүлэхэд "Эхлэх цаг" болон "Дуусах цаг" талбарууд хоёулаа саарал өнгөтэй болно. Энэ тохиолдолд та тэдгээрийг өөрийн хүссэнээр өөрчлөх боломжгүй гэсэн үг юм. Тиймээс, доор бид таны Outlook дээрх ажлын цаг дээр үндэслэн бүтэн өдрийн арга хэмжээний анхдагч эхлэх болон дуусах цагийг тохируулах аргыг танд хуваалцах болно.

Ажлын цагийн дагуу бүтэн өдрийн үйл явдлын анхдагч эхлэх болон дуусах цагийг тохируулах

1. Эхлэхийн тулд Outlook програмаа ажиллуулна уу.
2. Та Outlook-ийн үндсэн дэлгэц рүү орсны дараа "Alt + F11" товчлууруудыг дарж болно.
3. Дараа нь та Outlook VBA засварлагч цонхонд хандах боломжтой болно.
4. Одоогийн "Програмд ​​зориулсан Microsoft Visual Basic" цонхонд та "ThisOutlookSession" төслийн цонхыг нээх хэрэгтэй.
5. Дараа нь дараах VBA кодыг энэ төсөлд хуулж ав.

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. Үүний дараа та энэ кодонд гарын үсэг зурах хэрэгтэй. "Багаж хэрэгсэл"> "Гарын үсэг" дээр дарна уу.
7. Дараагийн харилцах цонхонд VBA-ийн шинэ төсөлд дижитал гэрчилгээ олгохын тулд дэлгэцэн дээрх зааврыг дагана уу.
8. Дараа нь та дижитал гарын үсэг бүхий макро зөвшөөрөхийн тулд Outlook макро тохиргоогоо өөрчлөх хэрэгтэй.
9. Эцэст нь та энэ макрог идэвхжүүлэхийн тулд Outlook програмаа дахин эхлүүлж болно.
10. Одооноос эхлэн та Outlook уулзалтад "Бүтэн өдрийн арга хэмжээ" сонголтыг идэвхжүүлэх бүрт уулзалтын эхлэх болон дуусах цагийг дараах дэлгэцийн агшин шиг таны ажлын цаг болгон өөрчлөх болно.

Үнэт өгөгдлийг буулгасан Outlook файлаас авах

Хэдийгээр Outlook нь олон янзын онцлог шинж чанаруудтай боловч энэ нь бүрэн өөгүй гэсэн үг биш юм. Энэ нь имэйлээр дамждаг вирус, хүний ​​буруу харьцах гэх мэт янз бүрийн хүчин зүйлээс шалтгаалан гэмтэж болзошгүй юм. Тиймээс тогтмол PST өгөгдлийн нөөцлөлт хийхээс гадна ойролцоох хүчирхэг гадаад PST засах хэрэгсэл бэлтгэх нь дээр DataNumen Outlook RepairБайна. Ингэж чаддаг засварын газар богино хугацаанд гаргана.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. mdf засах програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com