Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: adminnaddel am 17.04.03 - 14:01:29
-
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
-
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.
-
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
-
was machste, wenn es mehrere Absender im From gibt?
Dann zieht doch doc.From(0) nicht, oder?
*tick tack...*
na? ;D ;D ;D
-
Hey Rob!
mehrere Empfänger wäre mir klar aber mehrere Absender? ???
grüße :D
-
... 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
-
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. ;)
-
Aso ::)
Am anfange dachte ich .. hmm eine berechtigte Frage und ich war kurz am grübeln :D
Grüße