VBA Outlook 2016 Geburts- und Jahrestage aktualisieren

Ioannis_Mchl · 12. September 2019

Hallo Community,

ich habe vorletztes Jahr für unser Unternehmen einen Code geschrieben, der die Geburtstage und Jahrestage meiner Kollegen in den jeweiligen Kalendern schreibt.

Der Code:

Sub datenspeichern_Kontakte()

Dim myFolder As MAPIFolder

Set myFolder = Session.PickFolder

For i = myFolder.Items.Count To 1 Step -1

If myFolder.Items(i).Class = 40 Then

myFolder.Items(i).Display

mybirthday = myFolder.Items(i).Birthday

myanniversary = myFolder.Items(i).Anniversary

myFolder.Items(i).Birthday = "01.01.2000"

myFolder.Items(i).Birthday = mybirthday

myFolder.Items(i).Anniversary = "01.01.2000"

myFolder.Items(i).Anniversary = myanniversary

myFolder.Items(i).Save

myFolder.Items(i).Close 0

End If

Next i

End Sub

Mit der Zeit kommt es zu neuen Mitarbeiter-Einstellungen, oder -Kündigungen

Jetzt möchte ich gerne den Code soweit ergänzen, dass dieser immer die aktuellen ergänzt, jedoch die Kollegen die nicht mehr bei uns beschäftigt sind automatisch entfernt werden.

Ist dies so umsetzbar?

Ich hab mir das so vorgestellt, dass die Prozedur einen Vergleich mit den aktuellen Kontakteordner und den alten durchgeführt. Alle Einträge die nicht dort auftauchen sollen entfernt werden.

Vorab danke für eure Bemühungen!

Gruß

Ioannis

Ioannis_Mchl

Hallo, das habe ich leider übersehen. Danke für die Info.

Peter.Star

Hallo,

du schreibst Outlook 22016 postest aber im outlook.com Forum. Warum? Selbst die Bezeichnungen sind unterschiedlich. Achte zukünftig darauf wo du postest.

jens aus B

also ausführlich ;-)

Windows Phone 8

Kontakt x öffnen

Jahrestag eingeben

speichern

Synchronisation mit Outlook.com abwarten

Jahrestag steht im Kontakt x

Jahrestag steht NICHT im Kalender - weder im Phone noch auf Outlook.com

Zugriff auf den Kontakt x auf Outlook.com via Outlook 2007

Kontaktdetails zeigen KEINEN Jahrestag an

im Kalender erschein der Jahrestag NICHT!

anders herum

mit Outlook 2007 auf Outlook.com zugreifen

Kontakt y öffnen und bei den Details einen Jahrestag eintragen

speichern

auf Outlook.com den Kontakt y öffnen

Jahrestag ist eingetragen

im Kalender erscheint der Jahrestag

auf dem Windows Phone 8 erscheint der Kontakt y MIT Jahrestag und im Kalender erscheint der Jahrestag

WIESO wird also der Jahrestag, den ich im Phone bei einem Kontakt anlege, NICHT in den Kalender eingetragen??

gruß

Christian_Mys

Hallo Mobius1991,

haben Sie besten Dank für Ihre Nachricht. Wir haben uns hingesetzt und überlegt, was denn das Problem sein könnte. Vermutlich steckt dahinter Ihr Client (d.h. das Mobilgerät), welches aus irgendeinem Grunde die Geburtstage ändert.

Aus diesem Grunde möchte ich Sie bitten, Ihr Konto dort zu entfernen. Wenn Sie weiterhin wünschen, auf dem Mobilgerät E-Mails zu empfangen und zu versenden, so richten Sie sich einen Zugang per POP3 ein. Wie das geht, erfahren Sie im Artikel
Senden und Empfangen Sie Outlook.com-E-Mails mit einer App (Abschnitt zu POP3 und SMTP).

Bitte beobachten Sie, ob die Geburts-, und Jahrestage weiterhin verändert werden.

Besten Dank!

Christian

Carl D. Hast

Herzlichen Dank für die schnelle Antwort. Jetzt, wo ich die Umgehung kenne, muss ich mich fragen, warum ich nicht selbst drauf gekommen bin:

SELECT Geburt.[VN_T-norm], Geburt.[NN_T-norm], Geburt.MTPersID, Geburt.[VN_MT-norm], Geburt.[FN_MT-norm], Mutter.PersID, Mutter.[VN-norm], Mutter.[NN-norm]

FROM (Geburt INNER JOIN Ehe ON Geburt.FamIDEltern = Ehe.FamIDHeirat) INNER JOIN Mensch As Mutter ON Ehe.BT_PersID = Mutter.PersID

WHERE (((Mutter.PersID)<>[Geburt]![MTPersID]))

ORDER BY Ehe.FamIDHeirat;

Ihnen eine virenfreie Zeit bis zur nächsten Frage.

Hi,

willkommen im Windows Forum!

VBA Outlook 2016 Geburts- und Jahrestage aktualisieren - Similar Threads - VBA Outlook 2016	Forum	Datum
Powerpoint öffnen und aktualisieren mit VBA Powerpoint öffnen und aktualisieren mit VBA: Hallo zusammen, ich habe für ein schnelleres Reporting ein Makro programmiert, das die Verknüpfte Excel-Datei öffnet, dann die Powerpoints jeweils nacheinander öffnet, aktualisiert und wieder...	Microsoft Office	17. Oktober 2019
VBA Outlook 2016 Geburts- und Jahrestage aktualisieren VBA Outlook 2016 Geburts- und Jahrestage aktualisieren: Hallo Community, ich habe vorletztes Jahr für unser Unternehmen einen Code geschrieben, der die Geburtstage und Jahrestage meiner Kollegen in den jeweiligen Kalendern schreibt. Der Code:...	Microsoft Office	12. September 2019
Excel Datenmodell \| "Alles aktualisieren" mit VBA Makro schlägt bei initialer... Excel Datenmodell \| "Alles aktualisieren" mit VBA Makro schlägt bei initialer...: Hallo zusammen, meine Frage betrifft das lokale Excel Datenmodell, welches ich in meiner Datei verwende um Daten zu verknüpfen und diese dann mittels Pivot-Tabellen auszuwerten. Um die...	Microsoft Office	29. März 2019
Outlook 2016 / Freigegebene Kontakte aktualisieren nicht Outlook 2016 / Freigegebene Kontakte aktualisieren nicht: Hallo liebe Community, ich habe das Problem, wenn ich einen neuen Kontakt in die freigegebene Kontaktgruppe hinzufüge, wird die Ansicht nicht aktualisiert. Der Kontakt wird in meinen Kontakten...	Microsoft Office	19. Februar 2019
mit VBA im MsWord die Links auf Tabellen in einer Excel-Tabelle aktualisieren mit VBA im MsWord die Links auf Tabellen in einer Excel-Tabelle aktualisieren: Ich verwende für die Zusammenstellung der Zahlen Excel, da viele Werte aus wenigen Eingaben errechnet werden. Den eigentlichen Bericht schreibe ich in Word, die Ergebnisse der Berechnungen sind...	Microsoft Office	24. Oktober 2018
Outlook 2016 - Fehler 0x80004005 bei Aktualisieren von Internetkalenderabonnements Outlook 2016 - Fehler 0x80004005 bei Aktualisieren von Internetkalenderabonnements: Hallo, seit einer Woche habe ich einen neuen PC mit Windows 10 Pro. Ich habe in Outlook 2016 Professional ein Internetkalenderabonnement eingebunden. Es erscheint nun die Fehlermeldung:...	Microsoft Office	11. September 2017
Jahrestag Jahrestag: Und wieder jährt sich der Tag, an dem jemand vor 55 Jahren das Licht der Welt erblickte. Denn wbiberthomsen hat heute Geburtstag. [img] [img] [img] Geburtstag ist wohl ohne Frage der schönste...	Plaudereck	5. März 2008

VBA Outlook 2016 Geburts- und Jahrestage aktualisieren