Jak vypočítat a zobrazit věk podle narozenin v kalendáři aplikace Outlook?
Obecně řečeno, narozeniny kontaktu budou automaticky přidány jako každoročně se opakující schůzka v kalendáři. Ale víte, jak vypočítat věk kontaktu a zobrazit věk přímo v zobrazení kalendáře? Tento článek představí VBA, aby zjistil věk každého kontaktu a ukázal věk v předmětu relativního opakovaného jmenování v aplikaci Outlook.
Výpočet a zobrazení věku podle narozenin v kalendáři aplikace Outlook
- Automatizujte zasílání e-mailů pomocí Auto CC / BCC, Automatické předávání podle pravidel; poslat Automatická odpověď (Mimo kancelář) bez nutnosti výměnného serveru...
- Získejte připomenutí jako Varování BCC když odpovídáte všem, když jste v seznamu BCC, a Připomenout, když chybí přílohy pro zapomenuté přílohy...
- Zlepšete efektivitu e-mailu pomocí Odpovědět (vše) s přílohami, Automatické přidání pozdravu nebo data a času do podpisu nebo předmětu, Odpovědět na více e-mailů...
- Zjednodušte zasílání e-mailů pomocí Připomenout e-maily, Nástroje pro připojení (Komprimovat vše, Automaticky uložit vše...), Odebrat duplikáty, a Rychlá zpráva...
Výpočet a zobrazení věku podle narozenin v kalendáři aplikace Outlook
Chcete-li vypočítat věk každého kontaktu a zobrazit věk v předmětu relativní opakované schůzky v kalendáři aplikace Outlook, postupujte takto:
1. Otevřete výchozí složku kalendáře a stiskněte Další + F11 klávesy pro otevření okna Microsoft Visual Basic pro aplikace.
2, klikněte Vložit > Modula poté vložte pod kód VBA do nového okna modulu.
VBA: Výpočet a zobrazení stáří kontaktů v kalendáři aplikace 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. zmáčkni F5 nebo klávesu Běh tlačítko pro spuštění tohoto VBA.
Když se vrátíte do výchozího kalendáře, uvidíte, že se zjistí věk každého kontaktu a zobrazí se v předmětu opakované schůzky k narozeninám. Viz snímek obrazovky:
Poznámky:
(1) V předmětu opakovaného narozeninového kontaktu určitého kontaktu je věk tohoto kontaktu zahrnut do závorek podobných jako (41 v 2017), 41 je věk a 2017 je aktuální rok.
(2) Pokud změníte narozeniny určitého kontaktu ve složce kontaktů, věk bude z kalendáře automaticky odstraněn.
(3) Tento VBA funguje pouze s výchozím kalendářem aplikace Outlook.
Související články
Exportujte narozeniny všech kontaktů z Outlooku
Odeberte nebo odstraňte celý kalendář narozenin najednou v Outlooku
Nejlepší nástroje pro produktivitu v kanceláři
Kutools pro aplikaci Outlook - Více než 100 výkonných funkcí, které doplní váš Outlook
🤖 AI Mail Assistant: Okamžité profesionální e-maily s magií umělé inteligence – jedním kliknutím získáte geniální odpovědi, perfektní tón, vícejazyčné ovládání. Transformujte e-maily bez námahy! ...
???? Automatizace e-mailu: Mimo kancelář (k dispozici pro POP a IMAP) / Naplánujte odesílání e-mailů / Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu / Automatické přeposílání (pokročilá pravidla) / Automatické přidání pozdravu / Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...
📨 Email management: Snadné vyvolání e-mailů / Blokujte podvodné e-maily podle předmětů a dalších / Odstranit duplicitní e-maily / pokročilé vyhledávání / Konsolidovat složky ...
📁 Přílohy Pro: Dávkové uložení / Dávkové odpojení / Dávková komprese / Automaticky uložit / Automatické odpojení / Automatické komprimování ...
???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů / Zvyšte produktivitu své aplikace Outlook pomocí zobrazení s kartami / Minimalizujte aplikaci Outlook namísto zavírání ...
???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami / E-maily proti phishingu / 🕘Zobrazit časové pásmo odesílatele ...
👩🏼🤝👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů / Rozdělit skupinu kontaktů na jednotlivé skupiny / Odeberte připomenutí narozenin ...
Přes 100 Vlastnosti Očekávejte svůj průzkum! Kliknutím sem zobrazíte další informace.