Domino 9 und frühere Versionen > ND6: Administration & Userprobleme

Mail Regel trotz Löschung noch aktiv

(1/2) > >>

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

--- Ende Code ---

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

Navigation

[0] Themen-Index

[#] Nächste Seite