ASSP Forward Agent

Hi,

ich habe kürzlich vor meinem Testsystem einen ASSP (http://assp.sf.net) gehängt.

Nun habe ich eine eigene Maildatenbank für eine eMail Adresse xxxx@xxxxx.xx geschaffen an die quasi nur spam geht. Um da Fehler auszuschließen habe ich mich erstmal für manuelle Sichtung mit anschließendem Verschieben entschlossen.
Alle Mails die manuell in den Ordner ($JunkMail) geschoben wurden würde ich gerne auf einen Schlag als Spam per Mail-Forward an ASSP melden.
Dafür habe ich mir einen kleinen Agenten geschrieben (nach wie vor LotusScript Beginner, nicht hauen :)....
Erst begann dieser Agent sich vor dem Senden zu beschwerern, das ich angefordert hätte die Nachricht zu signieren, das habe ich mitlerweile behoben (In den Vorgaben war nichts gesetzt und nach SignOnSend=False kam nichts mehr).
Nun kommt jedoch die Meldung "Notes-Fehler: Die Signatur im Dokument is unzulässig (inkonsistente Feldsignatur)"...Erst dachte ich es hätte mit dem gelöschten Dokument zu tun, da ich dies ja für die GetNextEntry nutze, aber das nichtlöschen ändert auch nichts

Was mache ich falsch ?

Danke
Joerg

PS: Hier mein Script:

Sub Initialize
	Dim s As New NotesSession
	Dim db As notesdatabase
	Dim v As notesview
	Dim dc As NotesViewEntryCollection
	Dim entry As NotesViewEntry
	Dim doc As notesdocument
	Dim newdoc As notesdocument
	Dim i As Integer

	Set db = s.CurrentDatabase
	Set v = db.GetView("($JunkMail)")
	Set dc  = v.Allentries
	Set entry = dc.GetFirstEntry()
	i = 0

	Do Until entry Is Nothing
		Set doc = entry.Document
		Set newdoc = New NotesDocument( db )
		Call doc.CopyAllItems( newdoc, True)
		newdoc.from = "absender@xxxxx.xx"
		newdoc.sendto = "spamreport@xxxxx.xx"
		newdoc.CopyTo = ""
		newdoc.BlindCopyTo = ""
		newdoc.SignOnSend=False
		newdoc.EncryptOnSend = False
		Call newdoc.send(True)
		'Call doc.Remove(True)
		'Print doc.subject(0)
		Set entry = dc.GetNextEntry(entry)
		i = i +1
	Loop
	Print "Es wurden " + Cstr(i) + " Nachrichten gemeldet..."
End Sub

Unmöglich ist das natürlich nicht, wo steht die den drinne ? Dann könnte ich das Item ja wieder rauswerfen nach dem kopieren, oder ?

Joerg

Habe das nun andersherum gelöst und nur die Felder kopiert die ich "brauche" (wär da noch was anderes interessant oder sind das im Prinzip die interessanten Felder für einen Antispam Lernfilter ?):

newdoc.form = doc.form(0)
		newdoc.from = "xx@xxxx"
		newdoc.sendto = "assp-spam@xxxx"
		newdoc.received = doc.received
		newdoc.body = doc.body

Werde das nunmal auf meine gesammelten Spam-Mails loslassen....wahrscheinlich ist das Training hinterher beendet

Thx
Joerg