Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս հաշվարկել և ցույց տալ տարիքը ըստ ծննդյան օրվա Outlook օրացույցում:

Ընդհանուր առմամբ, կոնտակտի ծննդյան օրը ավտոմատ կերպով կավելացվի որպես օրացույցի տարեկան պարբերական նշանակում: Բայց գիտե՞ք ինչպես հաշվարկել կոնտակտի տարիքը և ցույց տալ տարիքը անմիջապես օրացույցի տեսքում: Այս հոդվածը կներկայացնի VBA ՝ յուրաքանչյուր կոնտակտի տարիքը պարզելու և Outlook- ում համեմատաբար պարբերաբար նշանակվելու թեմայով տարիքը ցույց տալու համար:

Outlook օրացույցում հաշվարկեք և ցույց տվեք տարիքը ըստ ծննդյան տոների

Office Tab - Միացրեք ներդիրներով խմբագրումը և զննարկումը Microsoft Office-ում, ինչը հեշտացնում է աշխատանքը
Kutools Outlook-ի համար - Բարձրացրեք Outlook-ը 100+ առաջադեմ հատկություններով բարձր արդյունավետության համար
Ամրապնդեք ձեր Outlook 2021 - 2010 կամ Outlook 365 այս առաջադեմ գործառույթները: Վայելեք համապարփակ 60-օրյա անվճար փորձարկումը և բարձրացրեք ձեր էլփոստի փորձը:

նետ կապույտ աջ պղպջակOutlook օրացույցում հաշվարկեք և ցույց տվեք տարիքը ըստ ծննդյան տոների

Յուրաքանչյուր կոնտակտի տարիքը հաշվարկելու և Outlook օրացույցում հարաբերական պարբերական նշանակման թեմայում տարիքը ցույց տալու համար կատարեք հետևյալը.

1, Բացեք օրացույցի լռելյայն թղթապանակը և սեղմեք ալտ + F11 Microsoft Visual Basic հավելվածների համար պատուհանը բացելու ստեղները:

2: Սեղմեք Տեղադրել > Մոդուլներ, ապա տեղադրեք VBA կոդի ներքո նոր մոդուլի պատուհանում:

VBA. Հաշվեք և ցույց տվեք կոնտակտների տարիքը Outlook օրացույցում

Option Explicit
Public Sub UpdateAges()
Dim xOlApp As Outlook.Application
Dim xOlFolder As Outlook.Folder
Dim xOlItems As Outlook.Items
Dim xAppointmentItem As AppointmentItem
Dim xAge As Integer
Dim xOlProp As Outlook.UserProperty
Set xOlApp = Outlook.Application
Set xOlFolder = Session.GetDefaultFolder(olFolderCalendar)
Set xOlItems = xOlFolder.Items
For Each xAppointmentItem In xOlItems
If (InStr(1, xAppointmentItem.Subject, "Birthday") Or InStr(1, xAppointmentItem.Subject, "Anniversary")) And xAppointmentItem.IsRecurring = True Then
With xAppointmentItem
If xAppointmentItem.UserProperties("Original Subject") Is Nothing Then
Set xOlProp = xAppointmentItem.UserProperties.Add("Original Subject", olText, True)
xOlProp.Value = .Subject
.Save
End If
xAge = DateDiff("yyyy", .Start, Date)
.Subject = .UserProperties("Original Subject") & " (" & xAge & " in " & Format(Date, "yyyy") & ")"
.Save
End With
End If
Next
Set xAppointmentItem = Nothing
Set xOlItems = Nothing
Set xOlFolder = Nothing
Set xOlApp = Nothing
End Sub

3. Սեղմեք F5 բանալին կամ Վազում այս VBA- ն գործարկելու կոճակը:

Երբ վերադառնաք լռելյայն օրացույց, կտեսնեք, որ յուրաքանչյուր կոնտակտի տարիքը պարզված է և ցուցադրվում է կրկնվող ծննդյան հանդիպման թեմայում: Տեսեք,

Notes:
(1) Որոշակի շփման կրկնվող ծննդյան օրվա առթիվ այս կոնտակտային տարիքը ընդունվում է փակագծերում, որոնք նման են (41- ի մեջ 2017), 41 դարաշրջանն է, եւ 2017 ընթացիկ տարին է:
(2) Եթե կոնտակտների թղթապանակում փոխեք որոշակի կոնտակտի ծննդյան օրը, տարիքն ավտոմատ կերպով կհեռացվի օրացույցից:
(3) Այս VBA- ն աշխատում է միայն լռելյայն Outlook օրացույցով:


նետ կապույտ աջ պղպջակԱռնչվող հոդվածներ


Գրասենյակի արտադրողականության լավագույն գործիքները

Outlook- ի համար նախատեսված գործիքներ - Ավելի քան 100 հզոր գործառույթ՝ ձեր Outlook-ը լիցքավորելու համար

🤖 AI Փոստի օգնական: Ակնթարթային պրոֆեսիոնալ նամակներ AI մոգությամբ. մեկ սեղմումով հանճարեղ պատասխաններ, կատարյալ հնչերանգներ, բազմալեզու վարպետություն: Փոխակերպեք էլ. փոստը առանց ջանքերի: ...

📧 Email ավտոմատացում: Գրասենյակից դուրս (հասանելի է POP-ի և IMAP-ի համար)  /  Ժամանակացույց ուղարկել նամակներ  /  Ավտոմատ CC/BCC էլփոստ ուղարկելիս կանոններով  /  Ավտոմատ փոխանցում (Ընդլայնված կանոններ)   /  Ավտոմատ ավելացնել ողջույնները   /  Ավտոմատ կերպով բաժանել բազմասերիստացող նամակները առանձին հաղորդագրությունների ...

📨 էլեկտրոնային կառավարման: Հեշտությամբ հիշեք նամակները  /  Արգելափակել խարդախության նամակները ըստ առարկաների և այլոց  /  Deleteնջել կրկնօրինակ նամակները  /  Ընդլայնված որոնում  /  Համախմբել Թղթապանակները ...

📁 Հավելվածներ ProԽմբաքանակի պահպանում  /  Խմբաքանակի անջատում  /  Խմբաքանակային կոմպրես  /  Auto Save- ը   /  Ավտոմատ անջատում  /  Ավտոմատ սեղմում ...

🌟 Ինտերֆեյս Magic: 😊Ավելի գեղեցիկ և զով էմոջիներ   /  Բարձրացրեք ձեր Outlook-ի արտադրողականությունը ներդիրներով դիտումների միջոցով  /  Նվազագույնի հասցնել Outlook-ը փակելու փոխարեն ...

???? Մեկ սեղմումով Հրաշքներ: Պատասխանել բոլորին մուտքային հավելվածներով  /   Հակաֆիշինգի էլ. նամակներ  /  🕘Ցուցադրել ուղարկողի ժամային գոտին ...

👩🏼‍🤝‍👩🏻 Կոնտակտներ և օրացույց: Խմբաքանակի ավելացրեք կոնտակտներ ընտրված էլ  /  Կոնտակտային խումբը բաժանեք առանձին խմբերի  /  Հեռացնել ծննդյան հիշեցումները ...

Over 100 Նկարագրություն Սպասեք ձեր հետազոտությանը: Սեղմեք այստեղ՝ ավելին բացահայտելու համար:

 

 

Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
MsgBox "Fertig!" & vbCrLf & Zaehler & " Geburtstagseinträge geändert.", vbInformation, "Geburtstage angepasst "

Could you please translate this line for me? TIA
This comment was minimized by the moderator on the site
If possible, could you please give the above directive for auto-count in English??

Danke
This comment was minimized by the moderator on the site
Is there a way to set this up without using the birthday feature of the contact card?

On recurring could you set this up to show the number of years?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations