Autor Thema: Mail Regel trotz Löschung noch aktiv  (Gelesen 9281 mal)

Offline bandit

  • Aktives Mitglied
  • ***
  • Beiträge: 195
  • Geschlecht: Männlich
Mail Regel trotz Löschung noch aktiv
« am: 26.01.07 - 09:56:20 »
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.
Greetz bandit

Offline DerAndre

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.655
  • Geschlecht: Männlich
  • Keep cool!
Re: Mail Regel trotz Löschung noch aktiv
« Antwort #1 am: 26.01.07 - 10:02:04 »
Da kommst Du mit Notespeek dran.

Die Suche bietet allerhand Lesbares was gelöschte Aktive Mailregeln betrifft.  ;)
André

Elterninitiative diabetischer Kinder und Jugendlicher e.V.
-----------------------------------------------------------------------------
Fliegen ist die Kunst auf den Boden zu Fallen, aber daneben.
-----------------------------------------------------------------------------
Etwas mehr Hardware dazu zu kaufen ist viel billiger als
Software besser zu machen. ( Niklaus Wirth )

Offline Hive

  • Senior Mitglied
  • ****
  • Beiträge: 345
  • Geschlecht: Männlich
  • Whooaaaa!!
    • g-notes.de
Re: Mail Regel trotz Löschung noch aktiv
« Antwort #2 am: 26.01.07 - 10:35:47 »
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
I love deadlines, i love the whooshing sound they make when they pass by

Offline bandit

  • Aktives Mitglied
  • ***
  • Beiträge: 195
  • Geschlecht: Männlich
Re: Mail Regel trotz Löschung noch aktiv
« Antwort #3 am: 26.01.07 - 10:41:22 »
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."
Greetz bandit

Offline crasher-mike

  • Junior Mitglied
  • **
  • Beiträge: 97
Re: Mail Regel trotz Löschung noch aktiv
« Antwort #4 am: 08.11.07 - 09:19:58 »
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

« Letzte Änderung: 08.11.07 - 09:28:06 von crasher-mike »
Gruß

Mike

Offline Steve_O.

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 857
  • Geschlecht: Männlich
Re: Mail Regel trotz Löschung noch aktiv
« Antwort #5 am: 08.11.07 - 09:28:43 »
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
"Wir können Probleme nicht mit dem Denken lösen,
das zu ihnen geführt hat." ( A. Einstein )
________

Offline crasher-mike

  • Junior Mitglied
  • **
  • Beiträge: 97
Re: Mail Regel trotz Löschung noch aktiv
« Antwort #6 am: 08.11.07 - 10:31:45 »
Super, danke für die Info.

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

Gruß

Mike

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz