ზოგიერთ მომხმარებელს სურს, რომ კალენდარში დაბადების დღის ღონისძიების ნახვისას ნახოს შესაბამისი ადამიანის ასაკი. ამიტომ, ამ სტატიაში ჩვენ გაგიზიარებთ მეთოდს, რათა ეს იდეა მარტივად განხორციელდეს.
როდესაც კონტაქტს დაამატებთ დაბადების დღის ინფორმაციას, Outlook ავტომატურად შექმნის დაბადების დღის ღონისძიებას კალენდარში. ამ ვითარებაში, ყოველ ჯერზე, როდესაც ხედავთ დაბადების დღის მოვლენებს კალენდარში, შეიძლება ასევე გინდოდეთ მიიღოთ შესაბამისი პირების ასაკი. ამრიგად, აქ გაგაცნობთ მისი რეალიზების ხერხს.
აჩვენეთ შესაბამისი პირების ასაკი დაბადების დღის ყველა ღონისძიებისთვის სიის ხედში
- თავიდანვე გაუშვით Outlook VBA რედაქტორი.
- შემდეგ დააკოპირეთ შემდეგი კოდი მოდულში.
Sub ShowAgesOfBirthdayEventsListView()
Dim objStore As Outlook.Store
Dim objOutlookFile As Outlook.Folder
Dim objFolder As Outlook.Folder
'Process All Calendar Folders in Your Outlook
For Each objStore In Outlook.Application.Session.Stores
Set objOutlookFile = objStore.GetRootFolder
For Each objFolder In objOutlookFile.Folders
If objFolder.DefaultItemType = olAppointmentItem Then
Call ProcessFolders(objFolder)
End If
Next
Next
End Sub
Sub ProcessFolders(ByVal objCalendar As Outlook.Folder)
Dim i As Integer
Dim objItem As Object
Dim objBirthdayEvent As Outlook.AppointmentItem
Dim dStart, dBirth As Date
Dim nAge As Integer
Dim objNewProperty As Outlook.UserProperty
Dim objSubCalendar As Outlook.Folder
For i = objCalendar.Items.Count To 1 Step -1
Set objItem = objCalendar.Items.Item(i)
'Add "Age" Property to Birthday Events
If (objItem.MeetingStatus = olNonMeeting) And (objItem.IsRecurring = True) And (Right(objItem.Subject, 11) = "'s Birthday") Then
Set objBirthdayEvent = objItem
dStart = objBirthdayEvent.Start
'Count Age
dCurrentBirthday = DateSerial(Year(Now), Month(dStart), Day(dStart))
nAge = DateDiff("yyyy", dStart, dCurrentBirthday)
Set objNewProperty = objBirthdayEvent.UserProperties.Find("Age", True)
If objNewProperty Is Nothing Then
Set objNewProperty = objBirthdayEvent.UserProperties.Add("Age", olText, True)
End If
objNewProperty.value = nAge
objBirthdayEvent.Save
End If
Next
'Process All Sub-Calendar Folders Recursively
If objCalendar.Folders.Count > 0 Then
For Each objSubCalendar In objCalendar.Folders
Call ProcessFolders(objSubCalendar)
Next
End If
End Sub
- ამის შემდეგ, ჩადეთ კურსორი პირველ ქვეპროგრამაში და დააჭირეთ "F5" ამ მაკროს გასაშვებად.
- როდესაც მაკრო დასრულდება, გამოდით VBA რედაქტორიდან და გახსენით კალენდრის საქაღალდე.
- ამის შემდეგ, გადადით "ნახვა" ჩანართზე და დააწკაპუნეთ "ხედის შეცვლა" > "სია".
- შემდეგი, დააჭირეთ ღილაკს "პარამეტრების ნახვა".
- ფანჯარაში, რომელიც გამოჩნდება, აირჩიეთ "სვეტები".
- შემდეგ, "სვეტების ჩვენება" შემდეგ დიალოგურ ფანჯარაში აირჩიეთ "მომხმარებლის მიერ განსაზღვრული ველები საქაღალდეში" სიიდან "აირჩიეთ ხელმისაწვდომი ველები".
- მოგვიანებით, ველში „ხელმისაწვდომი სვეტები“ მიუთითეთ „ასაკი“ და დააჭირეთ ღილაკს „დამატება ->“.
- საბოლოოდ, დააწკაპუნეთ "OK"-ის სერიაზე, სანამ არ დაბრუნდებით კალენდრის ერთეულების სიაში.
- ახლა სიაში შეგიძლიათ იხილოთ დაბადების დღის ყველა ღონისძიების ადამიანების ასაკი, როგორც ეს ნაჩვენებია შემდეგ ფიგურაში.
შეასწორეთ კომპრომეტირებული Outlook ფაილი
შეხვედრისას შეიძლება პანიკა შეგექმნათ კორუმპირებული Outlook ფაილი, რომელიც შეიცავს თქვენს უამრავ ძვირფას წერილს და განრიგს. მიუხედავად იმისა, რომ ასეთი საკითხი საკმაოდ სასოწარკვეთილია, თქვენ მაინც უნდა დაწყნარდეთ და განიხილოთ ეფექტური ზომები. თუ ნერვიულობთ, სიტუაცია შეიძლება გაუარესდეს და გაუარესდეს. სინამდვილეში, არსებობს მრავალი გზა და უტილიტა, რომელსაც შეუძლია შეაკეთოს დაზიანებული ფაილი, როგორიცაა შემოსულების სარემონტო ინსტრუმენტი და უფრო ძლიერი და გამოცდილი ინსტრუმენტი, როგორიცაა DataNumen Outlook Repair.
ავტორი შესავალი:
შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის SQL Server დაფიქსირება და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად