Ինչպե՞ս հաշվարկել և ցույց տալ տարիքը ըստ ծննդյան օրվա Outlook օրացույցում:
Ընդհանուր առմամբ, կոնտակտի ծննդյան օրը ավտոմատ կերպով կավելացվի որպես օրացույցի տարեկան պարբերական նշանակում: Բայց գիտե՞ք ինչպես հաշվարկել կոնտակտի տարիքը և ցույց տալ տարիքը անմիջապես օրացույցի տեսքում: Այս հոդվածը կներկայացնի VBA ՝ յուրաքանչյուր կոնտակտի տարիքը պարզելու և Outlook- ում համեմատաբար պարբերաբար նշանակվելու թեմայով տարիքը ցույց տալու համար:
Outlook օրացույցում հաշվարկեք և ցույց տվեք տարիքը ըստ ծննդյան տոների
- Ավտոմատացնել էլ Auto CC / BCC, Ավտոմեքենաների փոխանցում կանոններով; ուղարկել Ավտոմատ պատասխան (Offoff Office) առանց փոխանակման սերվեր պահանջելու...
- Ստացեք նման հիշեցումներ Նախազգուշացում BCC- ի համար երբ պատասխանում եք բոլորին, երբ դուք BCC ցուցակում եք, և Հիշեցրեք հավելվածները բաց թողնելիս մոռացված հավելվածների համար...
- Բարելավել էլփոստի արդյունավետությունը Պատասխանել (Բոլորը) Հավելվածներով, Ավտոմատ ավելացրեք ողջույն կամ ամսաթիվ և ժամ ստորագրության կամ թեմայի մեջ, Պատասխանել բազմաթիվ էլ...
- Հեշտացնել էլփոստի ուղարկումը Վերհիշել նամակները, Կցման գործիքներ (Սեղմել բոլորը, ավտոմատ պահել բոլորը...), Հեռացնել կրկնօրինակները, եւ Արագ հաշվետվություն...
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- ից
Միանգամից հեռացրեք կամ ջնջեք բոլոր ծննդյան օրացույցը Outlook- ում
Գրասենյակի արտադրողականության լավագույն գործիքները
Outlook- ի համար նախատեսված գործիքներ - Ավելի քան 100 հզոր գործառույթ՝ ձեր Outlook-ը լիցքավորելու համար
🤖 AI Փոստի օգնական: Ակնթարթային պրոֆեսիոնալ նամակներ AI մոգությամբ. մեկ սեղմումով հանճարեղ պատասխաններ, կատարյալ հնչերանգներ, բազմալեզու վարպետություն: Փոխակերպեք էլ. փոստը առանց ջանքերի: ...
📧 Email ավտոմատացում: Գրասենյակից դուրս (հասանելի է POP-ի և IMAP-ի համար) / Ժամանակացույց ուղարկել նամակներ / Ավտոմատ CC/BCC էլփոստ ուղարկելիս կանոններով / Ավտոմատ փոխանցում (Ընդլայնված կանոններ) / Ավտոմատ ավելացնել ողջույնները / Ավտոմատ կերպով բաժանել բազմասերիստացող նամակները առանձին հաղորդագրությունների ...
📨 էլեկտրոնային կառավարման: Հեշտությամբ հիշեք նամակները / Արգելափակել խարդախության նամակները ըստ առարկաների և այլոց / Deleteնջել կրկնօրինակ նամակները / Ընդլայնված որոնում / Համախմբել Թղթապանակները ...
📁 Հավելվածներ Pro: Խմբաքանակի պահպանում / Խմբաքանակի անջատում / Խմբաքանակային կոմպրես / Auto Save- ը / Ավտոմատ անջատում / Ավտոմատ սեղմում ...
🌟 Ինտերֆեյս Magic: 😊Ավելի գեղեցիկ և զով էմոջիներ / Բարձրացրեք ձեր Outlook-ի արտադրողականությունը ներդիրներով դիտումների միջոցով / Նվազագույնի հասցնել Outlook-ը փակելու փոխարեն ...
???? Մեկ սեղմումով Հրաշքներ: Պատասխանել բոլորին մուտքային հավելվածներով / Հակաֆիշինգի էլ. նամակներ / 🕘Ցուցադրել ուղարկողի ժամային գոտին ...
👩🏼🤝👩🏻 Կոնտակտներ և օրացույց: Խմբաքանակի ավելացրեք կոնտակտներ ընտրված էլ / Կոնտակտային խումբը բաժանեք առանձին խմբերի / Հեռացնել ծննդյան հիշեցումները ...
Over 100 Նկարագրություն Սպասեք ձեր հետազոտությանը: Սեղմեք այստեղ՝ ավելին բացահայտելու համար: