Mail-Rule "Move to Folder" will nicht bei bestimmten Dokumenten

[Dr.Domino]

Hallo,
ich habe ein kleines Problem mit einer Mail Rule. Und zwar handelt es sich um eingehende Faxe, die per Mail-Rule in einen entsprechenden Ordner verschoben werden sollen.
Bei "normalen" Mails funktioniert das auch einwandfrei, nur bei diesen "Faxen" erstellt er zwar den Link im gewünschten Ordner, versteckt aber hinterher die Fax-Mail nicht in der Inbox.
Ich habe da den "Before New Mail Arrives"-Agenten im verdacht. Dieser packt ein passendes Icon an das Fax und setzt noch ein oder 2 Felder.
Kann es sein, daß diese Änderungen die Mail-Rule dazu bewegen, die Fax-Mail nicht zu verstecken?

Hier der Code des Agenten:
   

Code

	Dim ss As New notessession
	Dim thisdb As notesdatabase
	Dim thisdoc As notesdocument
	Dim profdoc As notesdocument
	
	Const viewicon = 129 ' wird z.Z. nicht angezeigt !
	
	Set thisdb = ss.CurrentDatabase
	Set thisdoc = ss.DocumentContext
	
	' Print "Agent gestartet"
	' die relevanten X-Header befinden sich in den Feldern, die mit "X_C4B" beginnen
	' Folgende Felder werden gesetzt
	' Form
	' C4B_Messageclass
	' _ViewIcon
	' _ViewIcon2
	' Dann wird das Dokument in die Inbox gestellt.
	
	Select Case Ucase (thisdoc.X_C4BMessageClass (0))
	Case "FAXRECEIVE"
		' Call thisdoc.replaceitemvalue ("_ViewIcon", viewicon)
		Call thisdoc.replaceitemvalue ("_ViewIcon2", "xp_fax_view.gif")
		Call thisdoc.replaceitemvalue ("xp_register", "3")
	Case "FAXDR", "SMSDR"
		' Call thisdoc.replaceitemvalue ("_ViewIcon", viewicon)
		Call thisdoc.replaceitemvalue ("_ViewIcon2", "xp_dr_view.gif")
		Call thisdoc.replaceitemvalue ("xp_register", "1")
	Case "FAXNDR", "SMSNDR"
		' Call thisdoc.replaceitemvalue ("_ViewIcon", viewicon)
		Call thisdoc.replaceitemvalue ("_ViewIcon2", "xp_ndr_view.gif")
		Call thisdoc.replaceitemvalue ("xp_register", "1")
	Case "VOICE"
		' Call thisdoc.replaceitemvalue ("_ViewIcon", viewicon)
		Call thisdoc.replaceitemvalue ("_ViewIcon2", "xp_voicemail.gif")
	Case Else
		' Print "undefinierter Typ für C4BMessageClass: " & thisdoc.X_C4BMessageClass (0)
		Exit Sub
	End Select
	
	thisdoc.form = "Memo"			
	thisdoc.C4BMessageClass = thisdoc.X_C4BMessageClass
	
	If Ucase (thisdoc.C4BMessageClass (0)) = "FAXRECEIVE" _
	Or Ucase (thisdoc.C4BMessageClass (0)) = "VOICE" _
	Then		
		' das Feld brauchen wir für die Anruferidentifizierung - 
		' wird bisher nur für eingehende Faxe und Voicemails eingesetzt !
		' Aber auch nur dann, wenn X_C4BCallerNumber nicht leer ist.
		' Die Anruferidentifizierung führen wir nur durch, wenn gleichzeitig XPhone installiert ist
		' und wenn die Anruferidentifizierung aktiviert wurde.
		' Diese beiden Einstellungen können wir im Profildokument prüfen (siehe XP_DatabasePostOpen)
		' Falls ja, wird ebenfalls im Profildokument vermerkt, dass mindestens eine Mail
		' auf die Adressauflösung wartet.
		Set profdoc = thisdb.GetProfileDocument ("C4BUmsProfileDocument")
		If thisdoc.HasItem ("X_C4BMessageClass") _
		And thisdoc.X_C4BCallerNumber (0) <> "" _
		And profdoc.IsXPhoneInstalled (0) = "1" _
		And profdoc.XP_CallerIdentificationActive (0) = "1" Then
			profdoc.xp_mailarrived = "1"
			Call profdoc.Save (True, True)
			thisdoc.UM_NotResolved = "1"
		End If ' thisdoc.HasItem ("X_C4BMessageClass")
		
		' Für "Aktionen" unter CTI erforderlich
		thisdoc.XPhoneCallerEmail = thisdoc.X_C4BCallerEmail
	End If ' *** Ucase (thisdoc.C4BMessageClass (0)) = "FAXRECEIVE" 
	
	Call thisdoc.PutInFolder ("($Inbox)")
	Call thisdoc.Save (True, True)

   

Gruß,
Markus

[Keydins]

Macht der Agent noch was anderes als die Faxe zu bearbeiten? Wenn nicht, dann lass doch den Agenten gleich das Einsortieren in den passenden Ordner (der vermutlich im Desing der Datenbank entahlten ist) übernehmen.

Also ein Call thisdoc.PutInFolder ("Ordner für Faxe") an geeigneter Stelle.

Gruß
Dirk

[Dr.Domino]

Das ist natürlich auch eine Idee ... (der Ordner ist derzeit noch nicht im Design, da nicht alle User das so haben wollen ...)

[Dr.Domino]

Ist ja spannend ... das funktioniert auch nicht, das Fax wird zusätzlich in der Inbox angezeigt.

Habe folgenden Code im Agenten verdrahtet.

Code

	Call thisdb.EnableFolder ("Faxeingang")  ' Überprüfen ob Folder existiert, wenn nicht -> Anlegen
	Call thisdoc.PutInFolder ("Faxeingang") 
	Call thisdoc.Save (True, True)

Ergebnis wie gesagt wie vorher mit der Mail Rule - Dokument ist in Inbox und Faxeingang ...  

Werde mal ein RemoveFromFolder Inbox probieren...

[Dr.Domino]

Jawoll, so gehts ... - Workaround gefunden :-)