Per Script aus makierten "Spams" das Field "From"........

[adminnaddel]

Hallo liebe Gemeinde,

ich möchte eine Ansicht den Anwendern zur verfügung stellen, die nur die Mails anzeigt, die ein @ enthalten. Soweit kein Problem, doch nun möchte ich das es eine Aktion gibt, die es dem Anwender ermöglicht die von Ihm makierten Spam Mails das Field "From" ausliest und alle Absender in eine Memo schreibt, so das ich später nur noch mit copy und paste aus dieser Memo mir den Inhalt ziehe um es dann in die Blacklist einzutragen!
Der Automatismus muß also wie folgt aussehen:

Über alle makierten Docs in der Ansicht der MailDb gehen und das das From Field auslesen, zB zwischenspeichern und in eine neue Memo schreiben, die dann per senden automatisch an mich gesendet wird!

Hoffentlich kann mir einer helfen, bitte!!

Grüße
Andreas

[Rob Green]

Schon an @MailSend gedacht? Da kannste das Form Feld in den MailSend Body ziehen.

@MailSend(SendenAn ; KopieAn ; BlindkopieAn ; Thema ; Anmerkung ; Haupttextfelder ; [Flags])

Docs markieren, Agent über Icon zum Laufen bringen, Agent so eingestellt, daß er über markierte Docs rennt und aus die Maus.

Dabei bekommste natürlich für jede markierte Mail in Userpostkorb => 1 Mail zugestellt.

[Myron]

Hallo!

Vielleicht so...

Sub Click(Source As Button)
   
   Dim db As NotesDatabase
   Dim ses As New Notessession
   Dim dc As notesDocumentCollection
   Dim maildoc As NotesDocument
   Dim doc As NotesDocument
   Dim strAbsender As String
   
   Set db = ses.CurrentDatabase
   Set dc = db.UnprocessedDocuments
   
   Set doc = dc.GetFirstDocument
   While Not doc Is Nothing
      strAbsender = strAbsender & doc.From(0) & ","
      Set doc = dc.GetNextDocument(doc)
   Wend
   Set maildoc = db.CreateDocument
   Set rtitem = New NotesRichTextItem( maildoc, "Body" )
   Call rtitem.AppendText("Spam: " & strAbsender)
   maildoc.SendTo = "deinemail@non.non"
   maildoc.Subject = "Spammer"
   maildoc.~_ViewIcon = 11
   Call maildoc.Send( False )
   
End Sub


musst halt noch ein wenig verschönern :-)

Grüße

[Rob Green]

was machste, wenn es mehrere Absender im From gibt?
Dann zieht doch doc.From(0) nicht, oder?

*tick tack...*

na?  

[Myron]

Hey Rob!

mehrere Empfänger wäre mir klar aber mehrere Absender?  

grüße  

[ata]

... das müßtest du eigentlich locker drauf haben, denn du bist ja nunn auch schon ne Weile dabei......

... über session die aktuelle Datenbank ziehen
... über UnprocessedDocuments die markierten Dokumente holen
... die Collection doc für doc in einer Schlaufe...
... ... einer Variant-Variablen mit ArrayAppend die SendTo-Felder anhängen...
... Das Array einem neuen Doc zuweisen, daß du dann an dich versendest

ata

[Rob Green]

Myron, das war ein oller alter Joke...klaro, es gibt keine multiplen Absender..zumindest mir nicht bekannt. Damit haben mich meine Kollegas zu Beginn meiner Noteslernzeit doof reingelegt.  

[Myron]

Aso  
Am anfange dachte ich .. hmm eine berechtigte Frage und ich war kurz am grübeln  
Grüße