Zuletzt aktualisiert im März 2024
Aus Abschnitt Microsoft Office Macros und markiert mit

Geburtstage (Alter) berechnen (Outlook Makro)

Public Sub GBAlterBerechnen()
    Dim kalender As Outlook.Folder
    Dim termin As Outlook.AppointmentItem

    Set kalender = Application.Session.GetDefaultFolder(olFolderCalendar)

    ' Alle Termine durchlaufen die in der Kategorie "Geburtstag" stehen haben (contains) und Serientermine sind
    For Each termin In kalender.Items
        If Not InStr(termin.Categories, "Geburtstag") = 0 And Not InStr(termin.Subject, "GB") = 0 And termin.IsRecurring Then
            If Year(termin.GetRecurrencePattern.PatternEndDate) <= Year(Now) Then
                termin.Location = "[Berechnet] Wurde (" & CStr(Year(termin.GetRecurrencePattern.PatternEndDate)) & ") " & _
                    CStr(Year(termin.GetRecurrencePattern.PatternEndDate) - Year(termin.GetRecurrencePattern.PatternStartDate)) & " Jahre alt"
            Else
                termin.Location = "[Berechnet] Wird dieses Jahr (" & CStr(Year(Now)) & ") " & _
                    CStr(Year(Now) - Year(termin.GetRecurrencePattern.PatternStartDate)) & " Jahre alt"
            End If

            termin.Body = "Via Makro berechnet am: " & CStr(Now)

            termin.Save
        End If
    Next
End Sub

Du möchtest mir hierzu Feedback hinterlassen? Dann schreib mir gerne eine Nachricht.