Domino 9 und frühere Versionen > Entwicklung

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

(1/2) > >>

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?  ;D ;D ;D

Myron:
Hey Rob!

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

grüße  :D

Navigation

[0] Themen-Index

[#] Nächste Seite