Autor Thema: Emails checken mit Agents  (Gelesen 2672 mal)

Offline Akunin

  • Junior Mitglied
  • **
  • Beiträge: 82
Emails checken mit Agents
« am: 11.08.08 - 08:17:54 »
Schönen guten Morgen,
also ich hab da folgendes Problem, ich möchte einkommende Emails auf ihren Inhalt überprüfen, z.b. die ersten 3 Zeilen, mal nenn kleines Beispiel:

// erste Zeile überprüfen nach Pin , wenn kein Pin vorhanden = Mail löschen, sonst nächste Zeile überprüfen.
// zweite Zeile überprüfen nach Name, wenn kein Name vorhanden = Mail löschen, sonst nächste Zeile
....


so, ich hab jetzt nenn Agent erstellt der jedesmal wenn ne Email eintrefft ausgeführt wird, meine Problem ist jetzt wie ich ihn es sagen soll das er Zeile für Zeile überprüfen soll, würde mich freuen wenn jemand da nenn Tip für mich hätte :)

mfG Akunin

Offline m3

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.102
  • Geschlecht: Männlich
  • Non ex transverso sed deorsum!
    • leyrers online pamphlet
Re: Emails checken mit Agents
« Antwort #1 am: 11.08.08 - 08:45:14 »
notesRichTextItem.GetUnformattedText( )
HTH
m³ aka. Martin -- leyrers online pamphlet | LEYON - All things Lotus (IBM Collaborations Solutions)

All programs evolve until they can send email.
Except Microsoft Exchange.
    - Memorable Quotes from Alt.Sysadmin.Recovery

"Lotus Notes ist wie ein Badezimmer, geht ohne Kacheln, aber nicht so gut." -- Peter Klett

"If there isn't at least a handful of solutions for any given problem, it isn't IBM"™ - @notessensai

Offline Akunin

  • Junior Mitglied
  • **
  • Beiträge: 82
Re: Emails checken mit Agents
« Antwort #2 am: 11.08.08 - 09:11:20 »
jo, daran hab ich auch schon gedacht, allerdings geht er doch so den kompletten Body durch, aber ich brauch ja zeile pro zeile :)

Offline eknori

  • @Notes Preisträger
  • Moderatoren
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 11.728
  • Geschlecht: Männlich
Re: Emails checken mit Agents
« Antwort #3 am: 11.08.08 - 09:13:58 »
jo, aber erst einmal brauchst du text, den du auch parsen kannst ...
Egal wie tief man die Messlatte für den menschlichen Verstand auch ansetzt: jeden Tag kommt jemand und marschiert erhobenen Hauptes drunter her!

Offline jr

  • Senior Mitglied
  • ****
  • Beiträge: 260
  • Geschlecht: Männlich
  • Bitte keine eierlegenden Wollmilchsäue...
    • Homepage
Re: Emails checken mit Agents
« Antwort #4 am: 15.08.08 - 17:33:31 »
Hi,

wenn Du zeilenweise durch willst, dann trenne den Text einfach auf und speichere ihn in einem Array.

Code
Dim stringArray As Variant
...
Set body = mail.GetFirstItem("body")
stringArray = Split(body.GetFormattedText(False, 10000), Chr(13) + Chr(10))
For i = 0 To Ubound(stringArray)
     ....     
Next


Eventuell auch nur Chr(13) oder Chr(10). Einfach mal probieren.

Gruß,

Joachim
Wer in den Fußstapfen eines anderen geht, hinterlässt keine Spuren und kommt nie als Erster an.

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz