Anzeige vom Geburtstag in der Wochen bzw. Monatsansicht

[Choco2]

Hallo zusammen.

Ich habe ca. 450 Kunden und noch ca. weiter 100 Kontakte.

Mir werden in der Wochen bzw. Monatsansicht zwar oben in der Outlookspalte alle Geburtstage angezeigt, aber ich sehe nur immer "Geburtstag von Rom", "Geburtstag von Chris"

In der Wochenansicht sehe ich also dann meistens so 10 Termine, bei denen alle schön das "Geburtstag von ..." zu lesen ist. Aber auf den ersten Blick nicht der Name.

Kann ich das irgendwie umstellen?

Z.B. das statt dem Text "Geburtstag von" einfach ein kleines Kuchen Icon oder so steht. Dann hätte der Name vom Kunden Platz. So nimmt den ganzen Platz das "Geburtstag von" schon ein. Den eigentlichen Namen zeigt es dann aus Platzgründen aber nicht mehr an.

 

[werkam]

Dann öffne das Ereigniss, ändere den entsprechenden Betreff indem Du die Zeile "Geburtstag von..." löscht so dass nur noch der Name dort steht.

 

[WingX]

Das ist so eine ziemlich bescheidene Eigenart von Outlook. Ich habe das über ein VBA Makro gelöst, indem ich alle Ereignisse durchgehe, prüfe, ob es ein Geburtstag ist und den Text "Geburtstag von " durch "* " ersetze.

 

[werkam]

Von Hand wäre das auch eine bisschen Aufwendig bei so vielen Kontakten: >>

450 Kunden und noch ca. weiter 100 Kontakte.

Könntest ja mal das Makro zur Verfügung stellen, so gross kann die Datei ja nicht sein.

 

[WingX]

Ich habe gestern schon gesucht, irgendwie ist es weg...
Ich machs fix nochmal

Edit: Code angehängt. Dieser Code muss in die aktuelle Outlook Sitzung eingefügt werden.
Extras->Makro->VB-Editor->DieseOutlookSitzung

Dann kann man das über Extras->Makro->Makros ausführen.

Auskommentiert habe ich die Funktion, die Erinnerung nicht 15 min vor Start sondern 1 Tag vor dem Start auszuführen. Man kann auch den Text noch weiter ändern. Im Moment wird er auf "Geb. <Name>" geändert. Ein "* <Name>" wäre halt noch kürzer.

Sub ChangeBirthdaySubject()
    Dim myNameSpace As NameSpace
    Dim StrBuffer As String
    Dim LenBuffer As Long
    Dim Counter As Long
    
    Counter = 0
    
    Set myOlApp = New Outlook.Application
    Set myNameSpace = myOlApp.GetNamespace("MAPI")
    
    Set myFolder = myNameSpace.GetDefaultFolder(olFolderCalendar)
    Set myItems = myFolder.Items
    
    For i = 1 To myItems.Count
        Set myItem = myItems(i)
        If InStr(myItem.Subject, "Geburtstag von") Then
            'myFolder.Item.Display
            StrBuffer = myItem.Subject
            LenBuffer = Len(StrBuffer)
            StrBuffer = Right(StrBuffer, (LenBuffer - Len("Geburtstag von")))
            StrBuffer = "Geb." + StrBuffer
            myItem.Subject = StrBuffer
            
            'myItem.ReminderMinutesBeforeStart = 1440
            'myItem.ReminderSet = True

            myItem.Save
            'myFolder.Item.Close 0
            Counter = Counter + 1
        End If
    Next
    
    MsgBox "Fertig!" & vbCrLf & Counter & " Geburtstagseinträge geändert.", vbInformation, "Geburtstage angepasst "
    
End Sub