Forwarded Address - RESET

Sub Initialize
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim collection As NotesDocumentCollection
    Dim doc As NotesDocument
    Set db = session.CurrentDatabase
    Set collection = db.UnprocessedDocuments

    Dim strFirstname, strLastName, strForwardedAddress, strDomain As String
    strDomain = "@example.com"

    Dim i As integer
    For i = 1 To collection.Count
        Set doc = collection.GetNthDocument( i )
        strFirstName = LCase(doc.FirstName(0))
        strLastName = LCase(doc.LastName(0))

        strForwardedAddress = strFirstName + "." + strLastName + strDomain
        'MsgBox strForwardedAddress

        Call doc.ReplaceItemValue("MailAddress","")
        Call doc.save(True,True)

    Next

End Sub