Hello,
I just checked your extentions, good idea!
Somehow the embedded view (My View) doesn´t work for me and i changed the code,
i put a new leading categorized sorted field in the My View ( @name([CN];explode($Readers,",") ) ,
made an own Embedded "My View" with @name([CN];@username) as select statement.
Where do you calculate the view ?
i changed the memo mask , put a computed at view field with the $Readers in, to make the users
sure, that the mail were addressed to them.
i think your agent drops the BC and CC fields, so when the user is in BC , he would´n see his name
in the spam.
tell me christian, haven´t you problems with false positives, like i wrote a few postings before ?
for that task i wrote an agent for myself, which deletes html codes from the mailspam.nsf.
it seems to work better now, but we are getting still lots of false positives because of html code in mails.
my simple agent reads an view with by hand entered extentions like "Margin" , "Cellpadding" , "cid" , "FFFFFF", comparing this stings with the tokens 0.99 and deleting those tokens.
i guess this solution is bs , but i found till now no other way to get rid of the html code in mails.
does the mailspam.nsf work with the bload correct ?
here my agent to delete entered words from the docs in mailspam:
Sub Initialize
<br/>
Dim ses As New NotesSession<br/>
Dim db As NotesDatabase<br/>
Dim v,v1 As NotesView<br/>
Dim lfn As Integer<br/>
<br/>
'Declare constants
<br/>
Const View$="by Date"<br/>
Const View1$="no_tokens"<br/>
<br/>
'Set the session variables
Set db = ses.CurrentDatabase<br/>
<br/>
Set v1=db.GetView(View1$)<br/>
Dim vdoc As NotesDocument<br/>
Set vdoc=v1.GetFirstDocument <br/>
While Not vdoc Is Nothing <br/>
<br/>
Set v = db.GetView(View$)<br/>
<br/>
Dim doc As NotesDocument<br/>
Set doc=v.GetFirstDocument <br/>
<br/>
While Not doc Is Nothing <br/>
<br/>
pos=Arraygetindex(doc.KS_BL_TOKENS,vdoc.no_tokens(0))<br/>
If Isnull(pos) Then<br/>
'no member<br/>
Else<br/>
Dim x As Integer<br/>
Dim arr() As String<br/>
x=0<br/>
For i = 0 To Ubound(doc.KS_BL_TOKENS)<br/>
If i <> pos Then<br/>
Redim Preserve arr(x) As String<br/>
arr(x) = doc.KS_BL_TOKENS(i)<br/>
x = x + 1<br/>
End If<br/>
Next<br/>
doc.KS_BL_TOKENS = arr<br/>
<br/>
Call doc.Save(True,True,True)<br/>
End If<br/>
<br/>
Set doc=v.GetNextDocument(doc) <br/>
Wend<br/>
<br/>
Set vdoc=v1.GetNextDocument(vdoc) <br/>
Wend<br/>
End Sub