Outlook дээр амралтын өдрүүдийн товыг хэрхэн автоматаар хувийн гэж тэмдэглэх вэ

Outlook шийдлүүд Есдүгээр сарын 29, 2025

М-ийн хувьдost хэрэглэгчид, амралтын өдрүүдэд товлосон уулзалтууд нь ихэвчлэн хувийн байдаг. Тиймээс тэд Outlook-г автоматаар тэмдэглэж, хувийн уулзалтуудыг харуулахыг хүсч байна. Энэ нийтлэлд бид үүнийг бага зэрэг скриптээр бодит болгох болно.

Бизнес болон хувийн уулзалтуудыг ялгахын тулд Outlook нь хэрэглэгчдэд уулзалтыг хувийн гэж тэмдэглэх боломжийг олгодог. Ингэснээр та хувийн уулзалт хийхгүйгээр хуанли хэвлэхэд маш тохиромжтой, хялбар байх болно. Энэ тохиолдолд та Outlook-оо автоматаар таньж, тодорхой уулзалтуудыг хувийн гэж тэмдэглэхийг хүсч болно. Жишээлбэл, ерөнхийдөө амралтын өдрүүдийн уулзалтууд хувийн шинж чанартай байдаг тул Outlook-д автоматаар хувийн гэж тэмдэглэхийг хүсч байна. Үүний дараа бид таныг зорилгодоо хүрэхэд чиглүүлэх болно.

Амралтын өдрүүдийн товыг автоматаар хувийн гэж тэмдэглэ

Эхлээд "-ын дагуу Outlook VBA засварлагчийг ажиллуулна уу.Таны Outlook дээр VBA кодыг хэрхэн ажиллуулах вэ".
Дараа нь "Microsoft Visual Basic for Applications" цонхонд дараах кодыг "ThisOutlookSession" төсөлд оруулна.

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

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
    Set objExplorer = Outlook.Application.ActiveExplorer
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 objExplorer_Activate()
    On Error Resume Next
    If objExplorer.Selection.Item(1).Class = olAppointment Then
       Set objAppointment = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objAppointment_Open(Cancel As Boolean)
    Call MarkWeedendAppointmentPrivate(objAppointment)
End Sub

Private Sub objAppointment_PropertyChange(ByVal Name As String)
    If Name = "Start" Or Name = "End" Then
       Call MarkWeedendAppointmentPrivate(objAppointment)
    End If
End Sub

Private Sub MarkWeedendAppointmentPrivate(ByVal objAppointment As Outlook.AppointmentItem)
    Dim dStartDate As Date
 
    dStartDate = Format(objAppointment.Start, "Short Date")
 
    'If the appointment start falls on weekend
    Select Case Weekday(dStartDate)
           Case 7, 1
                'Mark it private
                objAppointment.Sensitivity = olPrivate
    End Select
End Sub

Үүний дараа дахинtarМакро идэвхжүүлэхийн тулд Outlook.
Одооноос эхлэн таныг шинэ уулзалт үүсгэх эсвэл одоо байгаа товыг амралтын өдөр болгон өөрчлөх бүрт Outlook автоматаар үүнийг хувийн гэж тэмдэглэх болно.

Ядаргаатай Outlook асуудлуудыг шийдээрэй

Та Outlook-тэй ажиллахдаа гэнэтийн програм хөлдөх, гарч ирэх алдааны мэдэгдэл гэх мэт зарим асуудалтай тулгарсан байж магадгүй юм. Тэднийг зовоож байхдаа та санаа зовох болно. Тайвширна уу! Үймээн самуун нь юу ч тус болохгүй, гэхдээ хэргийг улам дордуулна. Эхний ээлжинд та ердийнхөөрөө PST файлд хандах боломжтой эсэхийг шалгаж болно. Хэрэв тийм бол та PST файлыг засах хэрэгтэй бөгөөд үүнийг ашиглан хийж болно ирсэн хайрцаг засах хэрэгсэл эсвэл илүү хүчирхэг гадны хэрэгсэл гэх мэт DataNumen Outlook Repair.

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

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