Is it possible to have Outlook display a person's correct age?

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Lets say my friend Joe is 45 years old today. I have a reminder on my
calendar that it is "Joe's 45th Birthday" Is there any way that Outlook can
automatically display that it is "Joe's 46th Birthday" next year?
 
You can use this method to accomplish the age on a Contact form - it does
not propagate to the calendar, though:
http://www.outlook-tips.net/howto/age_form.htm

--
Milly Staples [MVP - Outlook]

Post all replies to the group to keep the discussion intact. All
unsolicited mail sent to my personal account will be deleted without
reading.

After furious head scratching, GeneR asked:

| Lets say my friend Joe is 45 years old today. I have a reminder on my
| calendar that it is "Joe's 45th Birthday" Is there any way that
| Outlook can automatically display that it is "Joe's 46th Birthday"
| next year?
 
Is there an other way that is will propagate the age to a subject field of
the calendar event ?
 
No.

--
Diane Poremsky [MVP - Outlook]
Author, Teach Yourself Outlook 2003 in 24 Hours
Coauthor, OneNote 2003 for Windows (Visual QuickStart Guide)
Need Help with Common Tasks? http://www.outlook-tips.net/beginner/






Twan said:
Is there an other way that is will propagate the age to a subject field of
the calendar event ?

Milly Staples said:
You can use this method to accomplish the age on a Contact form - it does
not propagate to the calendar, though:
http://www.outlook-tips.net/howto/age_form.htm

--
Milly Staples [MVP - Outlook]

Post all replies to the group to keep the discussion intact. All
unsolicited mail sent to my personal account will be deleted without
reading.

After furious head scratching, GeneR asked:

| Lets say my friend Joe is 45 years old today. I have a reminder on my
| calendar that it is "Joe's 45th Birthday" Is there any way that
| Outlook can automatically display that it is "Joe's 46th Birthday"
| next year?
Click to expand...
Click to expand...
 
This VBA Script should help. It's in German but can be easily adapted to english.
It puts 10 years a Calendar Entry in your Calendar and synchronizes it then with any Phone.



Attribute VB_Name = "Geburtstage"
Sub BirthdayEntries()

' Birthdays in iPhone and Outlook


Dim objNameSpace As Outlook.NameSpace
Dim objKalender As Outlook.MAPIFolder
Dim objKalenderFolder As Outlook.MAPIFolder
Dim Kalendereintrag As Outlook.AppointmentItem
Dim objKontakte As Outlook.MAPIFolder
Dim cEintrag As String
Dim cPrefix As String
Dim cAlter As String
Dim cErinnerung As String

cPrefix = InputBox("Prefix für Einträge (Eingabe: Geburtstag von)", "Prefix", "Geburtstag von")
cAlter = InputBox("Altersangabe im Eintrag verwenden (Eingabe: J oder N)", "Alter", "J")
cErinnerung = InputBox("Erinnerung in Min. vorher (Eingabe: 5 / ohne = Keine Erinnerung)", "Erinnerung", "5")

MsgBox "Bitte Kontakte-Ordner wählen!"
Set objKontakte = Session.PickFolder

MsgBox "Bitte Kalender-Ordner wählen!"
Set objKalender = Session.PickFolder

For i = objKalender.Items.Count To 1 Step -1
If objKalender.Items(i).Categories = objKontakte.Name Then
objKalender.Items(i).Delete
End If
Next i

Dim objKontakt As Outlook.ContactItem
Dim dDatum As Date

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


Set objKontakt = objKontakte.Items(i)

If CDate(objKontakt.Birthday) < CDate(Date) Then
For x = 0 To 10 Step 1
Set Kalendereintrag = objKalender.Items.Add
cEintrag = ""
dDatum = DateSerial(Year(Date) + x, Month(objKontakt.Birthday), Day(objKontakt.Birthday))
If cPrefix <> "" Then
cEintrag = cEintrag & cPrefix
End If
If objKontakt.FirstName <> "" Then
If cEintrag <> "" Then
cEintrag = cEintrag & " "
End If
cEintrag = cEintrag & objKontakt.FirstName
End If
If objKontakt.LastName <> "" Then
If cEintrag <> "" Then
cEintrag = cEintrag & " "
End If
cEintrag = cEintrag & objKontakt.LastName
End If
If cAlter = "J" Then
cEintrag = cEintrag & " (" & Year(dDatum) - Year(objKontakt.Birthday) & ")"
End If
Kalendereintrag.Subject = cEintrag
Kalendereintrag.Start = dDatum
Kalendereintrag.AllDayEvent = True
Kalendereintrag.Categories = objKontakte.Name
If cErinnerung <> "ohne" Then
Kalendereintrag.ReminderSet = True
Kalendereintrag.ReminderMinutesBeforeStart = cErinnerung
End If
Kalendereintrag.Save
Next x
End If
Next i

MsgBox "Kalender-Einträge wurden erstellt!"
End Sub
 
Back
Top