Das Notes Forum

Domino 9 und frühere Versionen => ND7: Administration & Userprobleme => Thema gestartet von: Dosta am 03.08.10 - 10:18:39

Titel: Rule nach löschen immer noch aktiv
Beitrag von: Dosta am 03.08.10 - 10:18:39

habe ein Problem mit einem Mitarbeiter (LN 7.0.3)

Er hatte eine Rule gehabt in der er alle eingehenden Mail auf denen er in CC gesetzt war in einen Ordner CC verschoben hat.

Auch nach disablen und löschen der Rule kommen die externen Mail immer noch in dem Ordner CC an.

Interne Mails nicht die landen wie normal in der Inbox.

Titel: Re: Rule nach löschen immer noch aktiv
Beitrag von: ummi 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

Titel: Re: Rule nach löschen immer noch aktiv
Beitrag von: Dosta am 03.08.10 - 11:08:43

Super vielen Dank

 :knuddel: