Autor Thema: Per Script aus makierten "Spams" das Field "From"........  (Gelesen 1871 mal)

Offline adminnaddel

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 819
  • Geschlecht: Männlich
  • What a wonderful girl, so beautiful und se....;-)
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

Offline Rob Green

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 2.651
  • Geschlecht: Männlich
    • Meipor
Re:Per Script aus makierten "Spams" das Field "From"........
« Antwort #1 am: 17.04.03 - 14:27:43 »
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.
Vielleicht verdirbt Geld wirklich den Charakter.
Auf keinen Fall aber macht Mangel an Geld ihn besser.
(John Steinbeck)

Meiporblog: http://www.meipor.de/blog
allg. Unternehmerblog: http://www.m-e-x.de/blog

Offline Myron

  • Aktives Mitglied
  • ***
  • Beiträge: 246
  • Geschlecht: Männlich
    • www.myphotoart.at
Re:Per Script aus makierten "Spams" das Field "From"........
« Antwort #2 am: 17.04.03 - 14:27:58 »
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
« Letzte Änderung: 17.04.03 - 14:28:45 von Myron »
Einst sagte mal ein IBMler zu Gates.. : Junger Mann, Geld macht man mit Hardware.. :-) Hohoho
--
http://www.myphotoart.at
http://www.similon.at

Offline Rob Green

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 2.651
  • Geschlecht: Männlich
    • Meipor
Re:Per Script aus makierten "Spams" das Field "From"........
« Antwort #3 am: 17.04.03 - 14:32:07 »
was machste, wenn es mehrere Absender im From gibt?
Dann zieht doch doc.From(0) nicht, oder?

*tick tack...*

na?  ;D ;D ;D
Vielleicht verdirbt Geld wirklich den Charakter.
Auf keinen Fall aber macht Mangel an Geld ihn besser.
(John Steinbeck)

Meiporblog: http://www.meipor.de/blog
allg. Unternehmerblog: http://www.m-e-x.de/blog

Offline Myron

  • Aktives Mitglied
  • ***
  • Beiträge: 246
  • Geschlecht: Männlich
    • www.myphotoart.at
Re:Per Script aus makierten "Spams" das Field "From"........
« Antwort #4 am: 17.04.03 - 14:37:04 »
Hey Rob!

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

grüße  :D
Einst sagte mal ein IBMler zu Gates.. : Junger Mann, Geld macht man mit Hardware.. :-) Hohoho
--
http://www.myphotoart.at
http://www.similon.at

Offline ata

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 5.092
  • Geschlecht: Männlich
  • drenaiondrufflos
    • Anton Tauscher Privat
Re:Per Script aus makierten "Spams" das Field "From"........
« Antwort #5 am: 17.04.03 - 14:42:16 »
... 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
Grüßle Toni :)

Offline Rob Green

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 2.651
  • Geschlecht: Männlich
    • Meipor
Re:Per Script aus makierten "Spams" das Field "From"........
« Antwort #6 am: 17.04.03 - 15:17:44 »
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.  ;)
Vielleicht verdirbt Geld wirklich den Charakter.
Auf keinen Fall aber macht Mangel an Geld ihn besser.
(John Steinbeck)

Meiporblog: http://www.meipor.de/blog
allg. Unternehmerblog: http://www.m-e-x.de/blog

Offline Myron

  • Aktives Mitglied
  • ***
  • Beiträge: 246
  • Geschlecht: Männlich
    • www.myphotoart.at
Re:Per Script aus makierten "Spams" das Field "From"........
« Antwort #7 am: 17.04.03 - 15:30:35 »
Aso   ::)
Am anfange dachte ich .. hmm eine berechtigte Frage und ich war kurz am grübeln  :D
Grüße
« Letzte Änderung: 17.04.03 - 15:31:08 von Myron »
Einst sagte mal ein IBMler zu Gates.. : Junger Mann, Geld macht man mit Hardware.. :-) Hohoho
--
http://www.myphotoart.at
http://www.similon.at

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz