The birthday reminder agent

The birthday reminder agent

Tip submitted by
Silvio Savaresi

Level: Intermediate
Works with: Notes/Domino
Updated: 01-Jul-2003

Do you usually forget friends' and colleagues' birthdays? With a simple agent, your Notes client can remind you of upcoming birthdays. This agent, placed in your Personal Address Book (PAB), can send you an email with the contact's name and a document link to his or her page in your PAB. The Birthday agent is a scheduled LotusScript agent that runs daily in your PAB to notify you of birthdays that occur the following day.

Here is the agent code. You can also download the code from the Sandbox.

Sub Initialize
'Summary : Code for sending mail to oneself about colleagues'/friends' birthdays
'This agent checks for tomorrow's birthdays and composes a mail message with a link and
'works automatically if the agent is enabled

'This agent works on the People view used in Notes
'You can create a Birthday view to display all colleagues'/friends' birthdays

'declaration

Dim Session As New NotesSession

Dim db As notesdatabase

Dim view As notesview

Dim doc,maildoc As notesdocument

Dim Tomorrow As notesdatetime

Dim item As notesitem

Dim Bday, BTday ,send ,text As String

Dim x,a As Integer

Dim user() As String

Dim userLink () As Variant

On Error Goto Err_Att

Set Tomorrow = New NotesDateTime( "Tomorrow" )

Set DB =Session.CurrentDataBase

Set View = DB.GetView("People")

Set Doc = View.GetFirstDocument

send="no"

x=0

' check in the view

While Not Doc Is Nothing

Set item = doc.GetFirstItem( "Birthday" )

Set Bday= item.DateTimeValue

If Bday Is Nothing Then

'nothing

Else ' if Birthday has been inserted ..

Redim Preserve user(x )

Redim Preserve userLink(x )

Bday = Day(Bday.dateonly) & Month(Bday.dateonly)

BTday = Day(Tomorrow.dateonly) & Month(Tomorrow.dateonly)

If Bday=BTday Then

'Compare dates to whether or not to send mail

send="yes"

user ( x)= doc.FirstName(0) + " " +doc.LastName(0)

Set userLink ( x)=doc

'assign link to the document

x=x+1

End If

Set Doc = View.GetnextDocument(Doc)

Wend

If send = "yes" Then 'compose mail document

Set Maildoc = DB.CreateDocument

'rich text style setting

Dim richText As New NotesRichTextItem(maildoc, "Body")

Dim richStyle As NotesRichTextStyle

Set richStyle = session.CreateRichTextStyle

richStyle.NotesFont = FONT_HELV

richStyle.FontSize = 10

richStyle.NotesColor = COLOR_BLUE

Call richText.AppendStyle(richStyle)

' end rich text style setting

Maildoc.Form = "Memo"

Maildoc.Subject = "Birthday reminder! "

a=0

Call richText.AppendText("Tomorrow will be:")

Call richText.AddNewLine(1)

Forall z In user

If a<>x Then

Call richText.Addtab(3)

Call richText.AppendText(user(a) + "'s birthday. For details, follow the link ... " )

Call richText.AppendDocLink ( userLink(a) , user(a) )

Call richText.AddNewLine(2)

a=a+1

End If

End Forall

Maildoc.SendTo =session.CommonUserName

Call Maildoc.AppendItemValue( "_ViewIcon", 10 )

Call Maildoc.Send(False)

End If

Exit Sub

Err_Att:

Msgbox "Attention error : " & Str(Err) & ": " & Error$ & Chr(13)

Resume Next

End Sub

NOTE: The bold lines of code differ from the code provided in the Sandbox sample.

You can modify or enhance this agent and install it on a corporate Directory Catalog or on a common client address book.

SUBMIT YOUR TIPS!

We encourage you to send us your tips (You can also click the "Would you like to submit a tip?" graphic below.) Your tips can be anything you've discovered about any Lotus product. The most important thing is that your tip be interesting, useful, or handy. And be sure to include complete information about how your tip works. For ideas, take a look at our tip archives. If we publish your tip, we'll send you the IBM Redbooks Lotus Collection on CD.