ummi
Aktives Mitglied
  
Offline
Geschlecht: 
Beiträge: 115
|
 |
« Antworten #1 am: 03.08.10 - 10:27:00 » |
|
Das hat mir schon mal sehr geholfen:
Du kannst es in eine Schaltfläche einbinden, die du dem User dann zumailst. Neues Memo Erstellen Hotspot Schaltfläche
Hier gibst du dem Button einen Namen und fügst unten bei "Click" den Code ein.
Dim session As New NotesSession Dim db As NotesDatabase Dim workspace As New NotesUIWorkspace Dim folder As NotesView
Set db = session.currentdatabase Set folder = db.GetView("(Rules)")
Dim calendarProfile As NotesDocument Set calendarProfile = db.GetProfileDocument( "CalendarProfile" )
Forall item In calendarProfile.Items If( Lcase$(Left$(item.Name,15)) = "$filterformula_" ) Then Print "Cleanup " & item.Name Call item.Remove End If End Forall
Call calendarProfile.Save( False, False )
Dim mailrule As NotesDocument Set mailrule = folder.GetFirstDocument While Not( mailrule Is Nothing ) Call mailrule.ReplaceItemValue( "Enable","0" ) Call mailrule.Save( True,False,True )
Set mailrule = folder.GetNextDocument( mailrule ) Wend
Call workspace.OpenDatabase( db.Server, db.FilePath, "(Rules)" )
Messagebox "reactivate your mail rules."
Gruß Claudia
|