Domino 9 und frühere Versionen > ND6: Entwicklung

$ Feld per Agent abfragen und Mail verschieben

<< < (2/2)

Glombi:
Der Code könnte so aussehen (unsauber !):

Dim session as New NotesSession
dim db as NotesDatabase
dim dc as NotesDocumentCollection
dim doc as NotesDocument

set db = session.CurrentDatabase
set dc = db.UnprocessedDocuments
set doc = dc.GetFirstDocument
Do while not(doc is nothing)
if doc.HasItem("$DNSBLSite") then
Select case doc.GetItemValue("$DNSBLSite")(0)   
case "bad.com":
 call doc.PutInFolder("Spam",true)
 call doc.RemoveFromFolder( "($Inbox)" )

case "muell.com":
 call doc.PutInFolder("Spam",true)
 call doc.RemoveFromFolder( "($Inbox)" )

case else:

End Select


End if

set doc = dc.GetNextDocument(doc)
Loop

redbaron:
Huch!
So schnell hätte ich keine Antwort erwartet.

@ DerAndre
Meine Entwicklerkenntnisse sind bis auf die Kurse die ich besucht habe sehr gering!
Ich bin ja auch nur Admin aber manchmal muss man halt auch programmieren.
Das Problem das ich habe ist, das ich teilweise Scripte lesen und auch verstehen kann, allerdings
könnte ich Sie nie selber umsetzen. (schreiben)
Wird wahrscheinlich doch ein Entwickler Gen  benötigt!

@ Glombi
Danke für die schnelle Antwort! Werde mal versuchen das Script einzubinden.



Danke nochmal  an alle.

DerAndre:
Hehe, das kenn ich, hatte ich auch mal. Da sollte ich Administrieren und Entwickeln. Das ist nicht wirklich eine gute Symbiose. ( Es mag ausnahmen geben, aber ich gehöre nicht dazu )
Das Gen heißt eigentlich nur Erfahrung und die kommt mit der Zeit.

Und hier wird eigentlich immer geholfen.


André

Navigation

[0] Themen-Index

[*] Vorherige Sete