Wie kann ich das Alter nach Geburtstagen im Outlook-Kalender berechnen und anzeigen?
Im Allgemeinen wird der Geburtstag eines Kontakts automatisch als jährlicher wiederkehrender Termin in den Kalender aufgenommen. Aber wissen Sie, wie Sie das Alter des Kontakts berechnen und das Alter direkt in der Kalenderansicht anzeigen können? In diesem Artikel wird eine VBA eingeführt, um das Alter jedes Kontakts zu ermitteln und das Alter zum Thema eines relativ wiederkehrenden Termins in Outlook anzuzeigen.
Berechnen und zeigen Sie das Alter nach Geburtstagen im Outlook-Kalender
- Automatisieren Sie den E-Mail-Versand mit Auto CC / BCC, Automatische Weiterleitung nach Regeln; schicken Automatische Antwort (Abwesend) ohne dass ein Exchange-Server erforderlich ist ...
- Erhalten Sie Erinnerungen wie BCC-Warnung wenn Sie auf alle antworten, während Sie sich in der BCC-Liste befinden, und Bei fehlenden Anhängen erinnern für vergessene Anhänge...
- Verbessern Sie die E-Mail-Effizienz mit (Allen) mit Anhängen antworten, Begrüßung oder Datum und Uhrzeit automatisch zur Signatur oder zum Betreff hinzufügen, Beantworten Sie mehrere E-Mails...
- Optimieren Sie den E-Mail-Versand mit E-Mails abrufen, Anbaugeräte (Alles komprimieren, Alles automatisch speichern...), Duplikate entfernen und Kurzbericht...
Berechnen und zeigen Sie das Alter nach Geburtstagen im Outlook-Kalender
Gehen Sie wie folgt vor, um das Alter jedes Kontakts zu berechnen und das Alter im Betreff eines relativ wiederkehrenden Termins im Outlook-Kalender anzuzeigen:
1. Öffnen Sie den Standardkalenderordner und drücken Sie Andere + F11 Tasten zum Öffnen des Fensters Microsoft Visual Basic für Applikationen.
2. Klicken Sie Insert > Modulund fügen Sie dann den folgenden VBA-Code in das neue Modulfenster ein.
VBA: Berechnen und zeigen Sie das Alter der Kontakte im Outlook-Kalender
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. Drücken Sie die F5 Schlüssel oder die Führen Sie Schaltfläche, um diese VBA auszuführen.
Wenn Sie zum Standardkalender zurückkehren, wird das Alter jedes Kontakts ermittelt und im Betreff des wiederkehrenden Geburtstagstermins angezeigt. Siehe Screenshot:
Notizen:
(1) Bei einem wiederkehrenden Geburtstagstermin eines bestimmten Kontakts wird das Alter dieses Kontakts in Klammern ähnlich wie angegeben (41 in 2017), 41 ist das Alter und 2017 ist das laufende Jahr.
(2) Wenn Sie den Geburtstag eines bestimmten Kontakts im Kontaktordner ändern, wird das Alter automatisch aus dem Kalender entfernt.
(3) Dieser VBA funktioniert nur mit dem Standard-Outlook-Kalender.
Ähnliche Artikel
Exportieren Sie Geburtstage aller Kontakte aus Outlook
Entfernen oder löschen Sie alle Geburtstagskalender gleichzeitig in Outlook
Beste Office-Produktivitätstools
Kutools for Outlook - Über 100 leistungsstarke Funktionen zur Optimierung Ihres Outlooks
🤖 KI-Mail-Assistent: Sofortige Profi-E-Mails mit KI-Magie – geniale Antworten mit einem Klick, perfekter Ton, mehrsprachige Beherrschung. Verwandeln Sie den E-Mail-Versand mühelos! ...
📧 E-Mail Automation: Abwesenheit (verfügbar für POP und IMAP) / Planen Sie das Senden von E-Mails / Automatisches CC/BCC nach Regeln beim E-Mail-Versand / Automatische Weiterleitung (erweiterte Regeln) / Begrüßung automatisch hinzufügen / Teilen Sie E-Mails mit mehreren Empfängern automatisch in einzelne Nachrichten auf ...
📨 E-Mail-Management: E-Mails einfach abrufen / Blockieren Sie betrügerische E-Mails nach Betreff und anderen / Doppelte E-Mails löschen / Erweiterte Suche / Ordner konsolidieren ...
📁 Anhänge Pro: Batch speichern / Stapeltrennung / Stapelkomprimierung / Automatisches Speichern / Automatische Trennung / Automatische Komprimierung ...
???? Schnittstellenmagie: 😊Mehr hübsche und coole Emojis / Steigern Sie Ihre Outlook-Produktivität mit Registerkartenansichten / Ausblick minimieren statt schließen ...
👍 Wunder mit einem Klick: Allen mit eingehenden Anhängen antworten / Anti-Phishing-E-Mails / 🕘Zeitzone des Absenders anzeigen ...
👩🏼🤝👩🏻 Kontakte und Kalender: Fügen Sie Kontakte aus ausgewählten E-Mails im Stapel hinzu / Teilen Sie eine Kontaktgruppe in einzelne Gruppen auf / Geburtstagserinnerungen entfernen ...
Auf über 100 Eigenschaften Warten Sie auf Ihre Erkundung! Klicken Sie hier, um mehr zu erfahren.