Outlook-Kontakte: Geburtstag und aktuelles Alter anzeigen

Habe das gleiche Problem Hallo Ich habe das gleiche Problem, und auch noch keine lösung gefunden. Bitte um Hilfe! Freundliche Grüsse

Hallo! Dann sind offenbar die Makros nicht zugelassen. Das kann man ändern: Datei/Optionen/Trust Center, Schaltfläche Einstellungen für das Trust Center. Hier zu den Makroeinstellungen wechseln und die Makros beispielsweise auf «Benachrichtungen für alle Makros» setzen. Herzliche Grüsse Gaby

Ist da ein Fehler im Makro? Hallo, funktioniert alles, aber es wird ein falsches Alter angezeigt. Z.B. Geburtstagseintrag 04.01.1957, Kalendereintrag erscheint am 4.1.2017: Alter:59, korrekt wäre aber Alter:60 Wo ist das Problem? Vielen Dank. MfG, dschulz

Fehler im Makro ist leider technische Einschränkung Hallo dschulz, ja, leider liegt dieser Effekt in der Funktionsweise des Makros, die sich aber auch aus technischen Gründen* nicht ändern lässt. Das Makro schreibt das Alter ja dauerhaft in den Termin, dabei rechnet es aber immer vom Ausführungszeitpunkt (genauer dem Jahr der Ausführung) aus. Das heißt, wenn man das Makro in 2016 ausführt, stimmt das angezeigte Alter auch nur im Jahr 2016 - man muss das Makro also zu Beginn jedes Jahres neu ausführen, um die Alterswerte entsprechend zu aktualisieren. Ich habe den Quellcode ein bisschen angepasst, damit die Benutzer*in beim Aufruf des Makros darauf hingewiesen wird und auch bei der Altersangabe ersichtlich ist, für welches Jahr sie gilt. Außerdem habe ich die Ausführungsgeschwindigkeit ziemlich beschleunigt, indem die Einträge bei der Bearbeitung nicht mehr einzeln eingeblendet werden. Einer regelmäßigen Ausführung steht so also auch bei vielen Kontakten nichts mehr im Wege ;) (siehe geänderten Quellcode am Ende des Posts). Viele Grüße Marcus *Das Problem ist, dass die Geburtstagskalendereinträge aus technischer Sicht nur Serientermine sind, die sich jährlich wiederholen und deren erster Eintrag am tatsächlichen Geburtstag der Person ist. Dies hat natürlich den Vorteil, dass nicht für jede Person in jedem Jahr ein zusätzlicher Kalendereintrag erzeugt wird (man käme hier ja sonst schon bei 50 Kontakten, die alle 30 Jahre alt sind, auf 1500 (größtenteils sinnlose) Termineinträge in der Datenbank - ganz zu schweigen von der Frage, wie weit in die Zukunft man diese Einträge erzeugen sollte). Allerdings hat das auch den Nachteil, dass man im Makro den angezeigten Termin im Jahr 2017 nicht von dem im Jahr 2018 unterscheiden kann. Man kann also das Alter nicht dynamisch anzeigen lassen, sondern eben nur statisch einmal eintragen. Kurzum: Es wird Zeit, dass das Outlook-Team diesen Vorschlag umsetzt... [CODE]Option Explicit Public Sub AlterZuGeburtstagenHinzufuegen() ' Nutzer*in fragen, ob Makro gestartet werden soll und Funktion erläutern Dim nachricht As String nachricht = "Dieses Makro fügt zu allen Geburtstagen im Kalender das Alter der " & _ "Person als 'Ort' hinzu, damit es im Kalender sichtbar ist." & vbCrLf & vbCrLf & _ "Soll das Makro gestartet werden?" & vbCrLf & vbCrLf & vbCrLf & _ "(Achtung: Das Makro muss zu Beginn jeden Jahres erneut ausgeführt " & _ "werden, da es immer nur relativ zum aktuellen Jahr rechnet. Das ist " & _ "leider technisch nicht anders möglich.)" If vbYes <> MsgBox(nachricht, vbQuestion + vbYesNo, "Alter zu Geburtstagen hinzufügen?") Then Exit Sub End If Const SUCHBEGRIFF = "Geburtstag von" ' (Standardwert: "Geburtstag von") ' Kalendereinträge aus dem Outlook-Kalender lesen Dim KalenderEintraege As Items Set KalenderEintraege = GetCalendarItems Dim alter As Long Dim zaehler As Long Dim geburtsjahr As Long Dim aktuellesJahr As Long aktuellesJahr = Year(Now()) zaehler = 0 'Suche in allen Kalendereinträgen Dim aktuellerEintrag As AppointmentItem Dim i As Long For i = KalenderEintraege.Count To 1 Step -1 Set aktuellerEintrag = KalenderEintraege(i) 'Prüfung auf den Text SUCHBEGRIFF (standardmäßig "Geburtstag von") 'und Überprüfung, ob es sich um ein ganztägiges Ereignis handelt If InStr(aktuellerEintrag.Subject, SUCHBEGRIFF) _ And aktuellerEintrag.AllDayEvent Then geburtsjahr = Year(aktuellerEintrag.GetRecurrencePattern.PatternStartDate) alter = aktuellesJahr - geburtsjahr ' Alter wird als "Ort" im Eintrag gespeichert aktuellerEintrag.Location = "[Alter " & aktuellesJahr & ": " & alter & "]" aktuellerEintrag.Close olSave zaehler = zaehler + 1 'Zähler für die Anzahl der geänderten Einträge End If Next ' Fertigmeldung anzeigen nachricht = "Fertig!" & vbCrLf & vbCrLf & _ zaehler & IIf(zaehler = 1, " Geburtstagseintrag", " Geburtstagseinträge") & " geändert." MsgBox nachricht, vbInformation, "Geburtstage angepasst" End Sub ' Diese Funktion fasst den Zugriff auf den Outlook-Kalender zusammen und liefert ' die Liste der Kalendereinträge zurück Private Function GetCalendarItems() As Items Dim myOutlookApp As Application Dim myNameSpace As NameSpace Dim myFolder As Folder Set myOutlookApp = CreateObject("Outlook.Application") Set myNameSpace = myOutlookApp.GetNamespace("MAPI") Set myFolder = myNameSpace.GetDefaultFolder(olFolderCalendar) Set GetCalendarItems = myFolder.Items End Function[/CODE]

Hallo Merlin2001 – und willkommen im PCtipp-Forum! Interessanter Hinweis, danke! Ich habe soeben für den Issue gevotet. Herzliche Grüsse Gaby