Naprawa terminów z datą urodzin w Microsoft Outlook
Artykuł dotyczy:
- Outlook 2000/2002/2003/2007
Coraz więcej urządzeń PDA i telefonów ułatwia nam życie i potrafi synchronizować się z Microsoft Outlook. Zdarza się jednak, że ułatwianie życia przynosi zupełnie odwrotne skutki i po działaniu programów synchronizujących gubiona jest część danych lub Outlook zaczyna się dziwnie zachowywać. Jednym z przykładów są terminy z datą urodzin odpowiadające określonym kontaktom.
Gdy w Outlook'u ustawiamy w kontakcie datę urodzin, w domyślnym kalendarzu pojawia się automatycznie odpowiedni termin, który przypomina nam o zbliżającej się radosnej rocznicy. Problem może jednak wystąpić, gdy datę urodzin ustawiamy w telefonie, który później synchronizuje bazę kontaktów z Outlook'iem. Okazuje się, że mimo iż data urodzin ustawiona jest w kontakcie w Outlook'u, to jednak brakuje terminu w kalendarzu.
Problem z pozoru błahy staje się bardzo uciążliwy i może powodować poważne konsekwencje. Możemy go jednak w prosty sposób rozwiązać uruchamiając w Outlook'u poniższe makro:
Public Sub PutBirthdaysInCalendar()
For Each oContact In Session.GetDefaultFolder(olFolderContacts).Items
If oContact.Birthday <> FormatDateTime("4501-01-01", vbShortDate) Then
oContact.Birthday = oContact.Birthday
oContact.Save
End If
Next
End Sub
Jeśli masz problem z uruchomieniem makra lub chcesz dowiedzieć się, jak utworzyć przycisk w pasku narzędzi lub menu uruchamiający makro, zobacz artykuł Instalacja i uruchamianie makr.
Podziękowania dla Avenger'a z forum www.outlook.pl za radykalne skrócenie i uproszczenie pierwotnej wersji makra.
Jeśli masz jakieś pytania lub komentarze dotyczące tego artykułu, napisz na naszym forum.
(c) CodeTwo. Wszelkie prawa zastrzeżone.
© Wszelkie prawa zastrzeżone. Żadna część ani całość tego artykułu nie może być powielana ani publikowana bez zgody autora.