ნაგულისხმევად, Outlook ავტომატურად გამოიყენებს ამოცანების ნაგულისხმევ შეხსენების დროს ყველა სახის დროშით მონიშნულ ელემენტს. თუმცა, თუ გსურთ გამოიყენოთ სხვადასხვა შეხსენების დრო დროშით მონიშნული ერთეულებისთვის ნივთის ტიპის მიხედვით, შეგიძლიათ მიმართოთ ამ სტატიაში დანერგილ მეთოდს.
Outlook გაძლევთ საშუალებას დააყენოთ ნაგულისხმევი შეხსენების დრო ყველა დროშით მონიშნული ელემენტისთვის, მიუხედავად ელემენტის ტიპისა. შეგიძლიათ გადახვიდეთ "ფაილი" მენიუში და დააწკაპუნოთ "პარამეტრები". შემდეგ, "Outlook Options" ფანჯარაში შეგიძლიათ იხილოთ "ნაგულისხმევი შეხსენების დრო" ოფცია "Tasks" ჩანართზე, როგორც ნაჩვენებია შემდეგ ეკრანის სურათზე.

მიუხედავად ამისა, მომხმარებელთა უმეტესობა იმედოვნებს, რომ სხვადასხვა სახის დროშით მონიშნული ერთეულებისთვის შეხსენების სხვადასხვა დროს გამოიყენებს, მაგალითად, „9:00“ დროშით მონიშნული ფოსტისთვის და „17:30“ დროშით მონიშნული კონტაქტებისთვის. ახლა, ქვემოთ, მეთოდის გასაცნობად, ამ მაგალითზე გავამახვილებთ ყურადღებას.
დააყენეთ სხვადასხვა ნაგულისხმევი შეხსენების დრო სხვადასხვა სახის დროშით მონიშნული ერთეულებისთვის
- დასაწყებად, გაუშვით Outlook აპლიკაცია.
- შემდეგ შედით Outlook VBA რედაქტორზე მითითებით ”როგორ გაუშვათ VBA კოდი თქვენს Outlook-ში".
- მომდევნო "Microsoft Visual Basic აპლიკაციებისთვის" ფანჯარაში დააკოპირეთ შემდეგი კოდი "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-ში შეიძლება ყველანაირი პრობლემა შეგხვდეთ. ამიტომ, წინასწარ უნდა ისწავლოთ მათთან გამკლავების რამდენიმე ზომა. მაგალითად, თუ თქვენი Outlook ხშირად გადაიტვირთება, დაგჭირდებათ Office-ის შეკეთება ან მესამე მხარის დანამატების გამორთვა და ა.შ. ან თუ თქვენი Outlook PST ფაილი კომპრომეტირებულია, შეგიძლიათ ჯერ სცადოთ შემოსულების სარემონტო ინსტრუმენტი. როდესაც ის ვერ ხერხდება, შეგიძლიათ გააგრძელოთ მძლავრი გარე ხელსაწყოების გამოყენება, როგორიცაა DataNumen Outlook Repair.
ავტორი შესავალი:
შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის mdf აღდგენა და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად


