OUtlook am erstellen von Geburtstags Eriegnis im Kalender hindern

Ich habe diese Methode nicht durchgeführt da ich ja nicht überhaupt keine mehr haben möchte sondern verhindern Möchte da 2 Outlook PCs darauf zugreifen und verhindern das Duplikate entstehen.

Office Outlook synchronisiert nicht. Und wenn du es so eingerichtet hast das verschiedene Rechner auf eine .pst oder .ost zugreifen gibt es eh Datensalat.

Hallo 9_Mad-Max_5,

es könnte mit diesem Makro gehen (ist aber nicht zu 100% sicher). Dieses Makro löscht deine Kalender-Einträge:

Gehe in den Kalender und suche nach Geburtstag. Dies zeigt alle Geburtstagsereignisse. Öffne ein neues Kontaktformular und größe es so, dass du den Kalenderbildschirm sehen kannst. Erstelle einen Kontakt mit einem Geburtstagsfeld
und beobachte den Kalenderbildschirm. Wenn das Makro funktioniert, solltest du sehen, dass es „wackelt“, wenn du den Kontakt speicherst und schließt. Wenn es nicht funktioniert, wirst du den Geburtstagsereigniss sehen.

Dim WithEvents mcolCalItems As Items

Private Sub Application_Startup()

Dim objNS As NameSpace

Set objNS = Application.GetNamespace("MAPI")

Set mcolCalItems = objNS.GetDefaultFolder(olFolderCalendar).Items

Set objNS = Nothing

End Sub

Private Sub mcolCalItems_ItemAdd(ByVal Item As Object)

If Item.Class = olAppointment And _

InStr(Item.Subject, "Birthday") Or InStr(Item.Subject, "Anniversary") > 0 Then

With Item

.Delete

End With

End If

End Sub

Sollte es nicht so funktionieren, wie du es dir vorstellst, da es nicht in Outlook vorgesehen ist, hinterlasse dein Feedback im

UserVoice, um diese Option den Technikern vorzuschlagen.

Bei weiteren Fragen stehe ich zur Verfügung.

MfG

Ok flow löst aber auch nicht mein Problem.

Nein der ist schon deaktiviert.

Es geht mit um Office Outlook 2016 auf meinem Rechner.