Sub Domain (s As NotesSession, db As NotesDatabase)

On Error Goto errhandler
Print “Domain – Start – ” & Now()

Dim view As NotesView
Dim doc As NotesDocument
Dim mailDoc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim richStyle As NotesRichTextStyle

REM – for multiple user name
Dim i As Integer
Dim j As Integer
Dim UserList()
Dim FinalList As Variant
Dim item1 As NotesItem

Set view = db.GetView(“smv-DomainLessFive”)
Set doc = view.GetFirstDocument()

If Not doc Is Nothing Then

REM – for multiple username
i = 0
j = 0
Set item1 = doc.GetFirstItem(“appid”)

Forall a In item1.Values
If a “” Then
i = i + 1
End If
End Forall
i = i – 1
Redim UserList(i)

Forall b In item1.Values
If b “” Then
If Not j > i Then
UserList(j) = b
j = j + 1
End If
End If
End Forall
FinalList = Arrayunique(UserList, 0)

Set mailDoc = New NotesDocument(db)
Set rtitem = New NotesRichTextItem(mailDoc, “Body”)
Set richStyle = s.CreateRichTextStyle

mailDoc.Form = “Memo”
mailDoc.From = “Domino Server”
mailDoc.Subject = “Reminder – Domain Expiry Date Less Than 5 Day(s)!”

richStyle.Bold = True
richStyle.NotesColor = COLOR_RED
richStyle.FontSize = 14
Call rtitem.AppendStyle(richStyle)

Call rtitem.AppendText(“Reminder – Domain Expiry Date Less Than 5 Day(s)!”)
Call rtitem.AddNewLine(1)
Call rtitem.AppendText(“Domain(s) Listed Below Requires Your Immediate Attention!”)

Do While Not doc Is Nothing

richStyle.Bold = False
richStyle.NotesColor = COLOR_BLACK
richStyle.FontSize = 10
Call rtitem.AppendStyle(richStyle)

Call rtitem.AddNewLine(2)
Call rtitem.AppendText(“Company Name : ” & doc.company(0))
Call rtitem.AddNewLine(1)
Call rtitem.AppendText(“Domain Name : ” & doc.DomainName(0))
Call rtitem.AddNewLine(1)
Call rtitem.AppendText(“Domain License : ” & doc.DomainLicenseNumber(0))
Call rtitem.AddNewLine(1)
Call rtitem.AppendText(“Expiry Date : ” & Cstr(doc.Domain_Expired_Date(0)))
Call rtitem.AddNewLine(1)
Call rtitem.AppendText(“Agent Name : ” & Cstr(doc.DA_Name(0)))

richStyle.Bold = True
richStyle.NotesColor = COLOR_RED
richStyle.FontSize = 10
Call rtitem.AppendStyle(richStyle)

Call rtitem.AddNewLine(1)
Call rtitem.AppendText(“Total Day(s) Left : ” & Cstr(Cdbl(doc.Domain_Expired_Date(0)) – Cdbl(Date())))

Set doc = view.GetNextDocument(doc)
Loop

richStyle.Bold = False
richStyle.NotesColor = COLOR_BLACK
richStyle.FontSize = 8
Call rtitem.AppendStyle(richStyle)

Call rtitem.AddNewLine(2)
Call rtitem.AppendText(“Kindly act on it accordingly. Your immediate attention in this matter is much appreciated”)
Call rtitem.AddNewLine(1)
Call rtitem.AppendText(“** Note: This is a computer generated mail, therefore there’ll be no sender name attached **”)
Call mailDoc.Send(False, FinalList) ‘for multiple username

End If

finish:
Print “Domain – Start – ” & Now()
Exit Sub

errhandler:

Print “Sub/Function : ” & Lsi_info(2)
Print “Error Line : ” & Erl
Print “Error Message : ” & Error

Resume finish

End Sub