bday = bday + 0.25 ' sets it for 6 am the day of the birthday
age = DateDiff("yyyy", oContact.Birthday, bday)
Select Case CLng(Right(age, 1))
Case 1
OrdinalAge = age & "st"
Case 2
OrdinalAge = age & "nd"
Case 3
OrdinalAge = age & "rd"
Case Else
OrdinalAge = age & "th"
End Select
Select Case CLng(Right(age, 2))
Case 11, 12, 13
OrdinalAge = age & "th"
End Select
Debug.Print age, OrdinalAge
Dim objMsg As MailItem
Set objMsg = Application.CreateItem(olMailItem)
objMsg.To = oContact.Email1Address
objMsg.Subject = "Happy " & OrdinalAge & " Birthday"
objMsg.Body = "Hope your day is a happy one! May you enjoy the next " & age & " years as much as the last " & age & "!"
objMsg.DeferredDeliveryTime = bday
'displays the message form so you can enter more text
objMsg.Display