Mail Regel trotz Löschung noch aktiv

[bandit]

Hallo Forum,

ich habe in meiner E-Mail DB eine Regel unter Werkzeuge erstellt. Sie war nur zum Test gedacht und sollte bei eingehender E-Mail diese sofort an eine weitere Person schicken.

Die Regel tat auch was sie sollte nur sowohl Deaktivieren als auch Löschen hat nicht geholfen die Regel wieder loszuwerden. Immer noch werden meine eingehenden Mails an diese Adresse weiter geschickt.

Wie kann ich die Regel wieder los werden? Ich verwende Notes 6.5.1 in deutsch als Client mit der 6er Mail Schablone.

[DerAndre]

Da kommst Du mit Notespeek dran.

Die Suche bietet allerhand Lesbares was gelöschte Aktive Mailregeln betrifft. 

[Hive]

folgender Code entfernt die im Profile aktiven Regel:

Code

Sub Click(Source As Button)
	On Error Resume Next
	
	Dim notes_ses As New notessession
	Dim cur_db As notesdatabase
	Dim profile_doc As NotesDocument
	Dim count_item As NotesItem
	
	Set cur_db=notes_ses.currentdatabase
	Set profile_doc=cur_db.GetProfileDocument("CalendarProfile")
	
	If profile_doc.getitemvalue("Use_CalendarRule")(0) = "1" Then
		profile_doc.Use_CalendarRule = "0"
	End If
	
	Set count_item=profile_doc.getfirstitem("$FilterFormulaCount")
	Call count_item.remove
	
	Forall ff In profile_doc.Items
		If ff.type = 1536 And Lcase(Left(ff.name,15)) = "$filterformula_" Then 
			Call ff.remove
		End If 
	End Forall 
	
	profile_doc.Save(True, False)
End Sub

Alle in der MailDB definierten Regeln sollten vorher deaktiviert werden, dann den Agenten in einer Mail mittels Button ausführen.

Allen Codefetischisten sei gesagt, der Agent ist natürlich ein wenig rabiat ohne alles geschrieben aber er tut's wenn ich mal meinen Ruhestand antrete kümmere ich mich darum ihn in eine elaegante Form zu bringen

MfG KAI

[bandit]

Vielen Dank für die Hilfe! Ich habe in einem anderen Forum folgenden Code gefunden, der funktioniert hat:

Sub Click(Source As Button)
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."

[crasher-mike]

Hi,

tut mir ja leid, dass mir noch Basics fehlen (schaue mich gerade nach einer Admin Schulung um)

aber wie kann ich denn den geposteten Code nutzen, um eine Regel zu löschen, die noch aktiv ist ?

(Server Version 7.02 FP2 - Client 7.01)

Gruss

Mike

[Steve_O.]

Du kannst ihn 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.

Gruß  Steffen

[crasher-mike]

Super, danke für die Info.

Die Regel ist zwar noch aktiv, aber die Prozedur an sich hat funktioniert.