Анхдагч байдлаар, Outlook нь бүх төрлийн дарцагласан зүйлд даалгаврын өгөгдмөл сануулагч цагийг автоматаар ашиглах болно. Гэсэн хэдий ч, хэрэв та дарцагласан зүйлсийн төрлөөс хамааран өөр өөр сануулах цаг ашиглахыг хүсвэл энэ нийтлэлд танилцуулсан аргыг ашиглаж болно.
Outlook нь тухайн зүйлийн төрлөөс үл хамааран бүх дарцагласан зүйлд анхдагч сануулах хугацааг тохируулах боломжийг олгодог. Та "Файл" цэс рүү очоод "Сонголтууд" дээр дарна уу. Дараа нь "Outlook Options" цонхонд "Tasks" таб дээрх "Өгөгдмөл сануулагч цаг" сонголтыг дараах дэлгэцийн агшинд үзүүлсэн шиг харж болно.

Гэсэн хэдий ч ихэнх хэрэглэгчид тэмдэглэгдсэн имэйлийн хувьд "9:00" болон тэмдэглэгдсэн харилцагчдын хувьд "17:30" гэх мэт янз бүрийн төрлийн тэмдэглэгдсэн зүйлсийн хувьд өөр өөр сануулах хугацааг ашиглахыг хүсдэг. Одоо доор бид аргыг танилцуулахын тулд энэ жишээнд анхаарлаа хандуулах болно.
Төрөл бүрийн дарцагласан зүйлсэд өөр өөр өгөгдмөл сануулагч цаг тохируулах
- Эхлэхийн тулд Outlook програмыг ажиллуулна уу.
- Дараа нь Outlook VBA засварлагч руу нэвтрэх "Таны Outlook дээр VBA кодыг хэрхэн ажиллуулах вэ".
- Дараагийн "Microsoft Visual Basic for Applications" цонхонд дараах кодыг "ThisOutlookSession" төсөл рүү хуулна уу.
Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMail As Outlook.MailItem
Public WithEvents objContact As Outlook.ContactItem
Private Sub Application_Startup()
Set objExplorer = Outlook.Application.ActiveExplorer
Set objInspectors = Outlook.Application.Inspectors
End Sub
Private Sub objExplorer_SelectionChange()
On Error Resume Next
If objExplorer.Selection.Item(1).Class = olMail Then
Set objMail = objExplorer.Selection.Item(1)
ElseIf TypeOf objExplorer.Selection.Item(1) Is ContactItem Then
Set objContact = objExplorer.Selection.Item(1)
End If
End Sub
Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
If Inspector.CurrentItem.Class = olMail Then
Set objMail = Inspector.CurrentItem
ElseIf Inspector.CurrentItem.Class = olContact Then
Set objContact = Inspector.CurrentItem
End If
End Sub
Private Sub objMail_PropertyChange(ByVal Name As String)
If Name = "ToDoTaskOrdinal" Then
If objMail.IsMarkedAsTask = True Then
If objMail.TaskDueDate <> "1/1/4501" Then
With objMail
.ReminderSet = True
'Change the reminder time for flagged emails
.ReminderTime = objMail.TaskDueDate & " 10:00"
.Save
End With
End If
End If
End If
End Sub
Private Sub objContact_PropertyChange(ByVal Name As String)
If Name = "ToDoTaskOrdinal" Then
If objContact.IsMarkedAsTask = True Then
If objContact.TaskDueDate <> "1/1/4501" Then
With objContact
.ReminderSet = True
'Change the reminder time for flagged contacts
.ReminderTime = objContact.TaskDueDate & " 17:30"
.Save
End With
End If
End If
End If
End Sub
- Үүний дараа энэ макрог идэвхжүүлэхийн тулд Outlook-г дахин эхлүүлнэ үү.
- Одооноос эхлэн таныг цахим шуудангаар дарцаглах бүрт сануулагчийн цагийг дарцаг дуусах өдөр "10:00" болгож тохируулах болно.
- Мөн та харилцагчийг дарцаглах үед сануулах цагийг дарцаг дуусах өдөр "17:30" болгож тохируулна.
Төлөвийн асуудлуудыг уян хатан байдлаар шийдвэрлэх
Та Outlook дээрээ бүх төрлийн асуудалтай тулгарч болно. Тиймээс тэдгээрийг шийдвэрлэх зарим арга хэмжээг урьдчилан сурах хэрэгтэй. Жишээлбэл, хэрэв таны Outlook байнга дахин ачаалагддаг бол та Office-г засах эсвэл гуравдагч талын нэмэлтүүдийг идэвхгүй болгох шаардлагатай. Эсвэл хэрэв таны Outlook PST эвдэрсэн бол та эхлээд туршиж үзэж болно ирсэн хайрцаг засах хэрэгсэл. Энэ нь амжилтгүй болсон тохиолдолд та гадны хүчирхэг хэрэгсэл, жишээ нь DataNumen Outlook Repair.
Зохиогчийн танилцуулга:
Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. mdf сэргээх програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com


