Dim Db As New Notesdatabase( , Names.Nsf )

Dim db As New NotesDatabase("","names.nsf")

Dim logdb As New NotesDatabase("<server name>","ClearContactsLog.nsf")

Dim view As NotesView

Dim doc As NotesDocument

Dim doc2 As NotesDocument

Dim logdoc As NotesDocument

Dim session As New NotesSession

Dim stream As NotesStream

Dim filename As String

Dim Response As Integer

Dim dateTime As New NotesDateTime( "" )

Dim nam As NotesName

Dim ErrorMsg As String

Dim Status As String

Dim item As NotesItem

On Error Resume Next

' Store the name of the user running this

Set nam = session.CreateName(session.UserName)

' Store the current date and time

dateTime.LSLocalTime = Now

' Create the entry for the log

Set logdoc = logdb.CreateDocument()

locdoc.Form = "Log Entry"

' Set the view to clear for the local contacts

Set view = db.GetView("(Recent Contacts)")

If view.AllEntries.Count > 0 Then

Set doc = view.GetFirstDocument

Do While Not (doc Is Nothing)

Set doc2 = doc

Set doc = view.GetNextDocument(doc)

Call doc2.RemovePermanently(True)

Loop

End If

If view.AllEntries.Count > 0 Then

Response = Msgbox("The view was not cleared successfully!" + Chr(10) + Chr(13) + "Click on OK to return to Notes then contact the Help Desk.",0 + 48,"Error During Clearing of Recent Contacts ")

' Store what is to be saved in the log

ErrorMsg = "Error During Clearing of Recent Contacts "

Status = "View not cleared"

End If

' Now, add the parameter line to the NOTES.INI

filename = Left(db.FilePath, Len(db.FilePath) - 14) + "NOTES.INI"

Set stream = session.CreateStream

' Use name of text file as subject

If Not stream.Open(filename, "ASCII") Then

Response = Msgbox("The process was aborted!" + Chr(10) + Chr(13) + "Click on OK to return to Notes then contact the Help Desk.",0 + 48,"Error During Clearing of Recent Contacts ")

' Store what is to be saved in the log

ErrorMsg = "Error During Clearing of Recent Contacts "

Status = "Cannot open INI file"

Exit Sub

Else

' Write the correct line to the bottom of the NOTES.INI

stream.WriteText "DisableDPABProcessing=1" + Chr(10) + Chr(13)

Response = Msgbox("The process has completed." + Chr(10) + Chr(13) + "Click on OK to return to Notes then close Notes and re-open it.",0 + 64,"Clearing of Recent Contacts Completed")

' Store what is to be saved in the log

Status = "Success"

End If

' Write this information to the log file

Call logdoc.AppendItemValue("A$LOGTIME",Cdat(dateTime.DateOnly + " " + dateTime.TimeOnly))

Call logdoc.AppendItemValue("A$PROGNAME", "Clearing of Recent Contacts ")

Call logdoc.AppendItemValue("A$USER", nam.Common)

Call logdoc.AppendItemValue("A$ACTION", Status)

If ErrorMsg > "" Then

Call logdoc.AppendItemValue("A$ERRMSG", ErrorMsg)

End If

Call logdoc.Save(True,False)