איך להוסיף ימי הולדת כתזכורת ביומן באופן אוטו מקובץ / אייפון?

טענתם אנשי קשר ל OUTLOOK שלכם כולל ימי ההולדת וימי הנישואין אולם התזכורות לא נכנסו ליומן? אז מה עושים? יש מוצרים שעולים כ 10$ שיפתרו לכם את הבעיה, אבל אנחנו הבאנו לכם Scrip חינמי שתוכלו להשתמש בו כולל הנחיות צעד צעד:

1. היכנסו ל OUTLOOK
2. ליחצו על ALT+F11 – אם לא נפתח כנסו לבית ושם באפשרויות הוסיפו את סרגל המתכנתים/מפתחים.
3. Sub AddBirthdaysAnniversaries()

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 = Now
myFolder.Items(i).Anniversary = Now

myFolder.Items(i).Birthday = mybirthday
myFolder.Items(i).Anniversary = myanniversary

myFolder.Items(i).Save
myFolder.Items(i).Close 0
End If

אם המאמר הזה עזר לכם עזרו לנו ב LIKE ושתפו את האתר