Як розрахувати та показати вік за днями народження в календарі Outlook?
Взагалі кажучи, день народження контакту буде автоматично додаватися як щорічна зустріч у календарі. Але чи знаєте ви, як розрахувати вік контакту та показати вік безпосередньо у поданні календаря? У цій статті буде представлено VBA, щоб з’ясувати вік кожного контакту та показати вік на предмет відносної повторюваної зустрічі в Outlook.
Розрахуйте та покажіть вік за датами народження в календарі Outlook
- Автоматизуйте надсилання електронних листів за допомогою Авто CC / BCC, Автоматичне пересилання вперед за правилами; відправити Автовідповідь (Поза офісом) без необхідності сервера обміну...
- Отримуйте нагадування як Попередження BCC коли ви відповідаєте всім, поки ви перебуваєте в списку прихованих копій, і Нагадати про відсутність вкладень за забуті вкладення...
- Підвищте ефективність електронної пошти за допомогою Відповісти (всім) із вкладеннями, Автоматичне додавання привітання або дати й часу до підпису чи теми, Відповісти на кілька електронних листів...
- Оптимізація електронної пошти за допомогою Відкликати електронні листи, Інструменти кріплення (Стиснути все, автоматично зберегти все...), Видалити дублікати та Швидкий звіт...
Розрахуйте та покажіть вік за датами народження в календарі Outlook
Щоб розрахувати вік кожного контакту та показати вік у темі відносної періодичної зустрічі в календарі Outlook, виконайте такі дії:
1. Відкрийте папку календаря за замовчуванням і натисніть інший + F11 клавіші, щоб відкрити вікно Microsoft Visual Basic for Applications.
2. Клацання Insert > Модулі, а потім вставте нижче коду 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.
Повернувшись до календаря за замовчуванням, ви побачите, як визначений вік кожного контакту та показаний у темі періодичної зустрічі з днем народження. Дивіться знімок екрана:
примітки:
(1) У темі періодичного призначення дня народження певного контакту вік цього контакту фіксується в дужках, подібних до (41 в 2017), 41 - вік, і 2017 це поточний рік.
(2) Якщо ви зміните день народження певного контакту в папці контактів, вік буде автоматично видалено з календаря.
(3) Цей VBA працює лише із календарем Outlook за замовчуванням.
Статті по темі
Експортуйте дні народження всіх контактів з Outlook
Видаліть або видаліть весь календар народжень відразу в Outlook
Найкращі інструменти продуктивності офісу
Kutools для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook
???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP) / Розклад надсилання електронних листів / Автоматична копія/прихована копія за правилами під час надсилання електронної пошти / Автоматичне пересилання (розширені правила) / Автоматично додавати привітання / Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...
📨 Управління електронною поштою: Легко відкликайте електронні листи / Блокуйте шахрайські електронні листи за темами та іншими / Видалити повторювані електронні листи / розширений пошук / Консолідація папок ...
📁 Вкладення Pro: Пакетне збереження / Пакетне від'єднання / Пакетний компрес / Автозавантаження / Автоматичне від'єднання / Автокомпресія ...
???? Магія інтерфейсу: 😊Більше красивих і класних смайликів / Підвищте продуктивність Outlook за допомогою вкладок / Згорніть Outlook замість того, щоб закривати ...
👍 Дива в один клік: Відповісти всім із вхідними вкладеннями / Антифішингові електронні листи / 🕘Показувати часовий пояс відправника ...
👩🏼🤝👩🏻 Контакти та календар: Пакетне додавання контактів із вибраних електронних листів / Розділіть групу контактів на окремі групи / Видаліть нагадування про день народження ...
більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.