Remove archive profile from mail file

Create a hotspot button with below script and run with user mail file



Sub Click(Source As Button)
 Dim s As New NotesSession
 Dim db As Notesdatabase
 Dim doc As NotesDocument
 Set db = s.CurrentDatabase
 Set doc = db.GetProfileDocument("archive database profile")
 If Not Doc.IsNewNote Then
  Print "Found Profile"
  Print "Set field"
  Call doc.RemoveItem("ArchiveDatabase")
  Call doc.Save( False, True )
 End If
End Sub