How to allow the user to delete the iNotes profile in iNotes

1. Create a database on the server (with any name e.g. BagOTrix)        
2. Create an agent (using the following LotusScript) that is  scheduled to Run "Never" with a target of None                                                                                              
Sub Initialize()                                                        
On Error GoTo ErrorLand                                                
Dim session As New NotesSession                                        
Dim thisDB As NotesDatabase                                            
Dim targetDB As NotesDatabase                                          
Dim targetServer As String                                              
Dim targetDBStr As String                                              
Dim docContext As NotesDocument                                        
Dim prof As NotesDocument                                              
Dim errorStr As String                                                  
errorStr = ""                                                          
Set docContext = session.Documentcontext                                
targetServer = StrRight(docContext.HTTP_Referer(0),"//") ' gets rid of  
targetServer = StrLeft(targetServer, "/")                              
targetDBStr = StrLeft(docContext.HTTP_Referer(0), ".nsf")              
targetDBStr = StrRight(targetDBStr, targetServer + "/") + ".nsf"        
'Print "
targetServer: " + targetServer + "
targetDB: " +        

Set targetDB = session.Getdatabase(targetServer, targetDBStr, false)    
Set prof = targetDB.Getprofiledocument("iNotesProfile")                
'Print prof.Universalid                                                
Call prof.Remove(True)                                                  
If (errorStr = "") Then                                                
GoTo Success                                                            
GoTo Failure                                                            
End If                                                                  
errorStr = "Got error " & Error$ & " on line " & CStr(Erl)              
Resume Next                                                            
Print ""                                                    
Print "Your profile document has now been deleted from database: " +    
targetDBStr + " on server: " + targetServer                            
Print ""                                                  
Print ""                                                    
Print "

An error occurred while deleting the profile document from    
database: "_                                                            
+ targetDBStr + " on server: "_                                        
+ targetServer + ":
" + errorStr + "

Print ""                                                  
End Sub                                                                
3. Set Anonymous Access to the database to 'No access', and default access to Reader.
4. Send an email to the iNotes user with a link to the agent on the server for e.g where "" will be your servers fully qualified hostname (FQHN) and "BagOTrix.nsf" is the name of the database you created earlier.        
5. When the end user clicks on the link they may be asked to log in again and then the agent will delete the profile document from their mail database

From TN1512367