Das Notes Forum

Domino 9 und frühere Versionen => ND8: Entwicklung => Thema gestartet von: Sommersprosse am 23.05.14 - 08:51:23

Titel: Agent Mail versenden einfache Aktion
Beitrag von: Sommersprosse am 23.05.14 - 08:51:23

Hallo zusammen,

noch ein Problem das ich habe...
Wir haben eine Mail-in DB erstellt über die Bestellungen über eine Allgemeine Adresse eingehen.
Über Agent - Einfache Aktion - wird einem im Agent definierten Verteiler ein Link mit dem Hinweis auf neue Mail verschickt.

Nun wollen die Herren den Betreff der Mail die in der Mail-DB eintrifft in der weitergeleiteten mail ebenfalls im Betreff haben um eine Vorsortierung anhand der mail schon machen zu können.

Wahrscheinlich geht das mit der einfachen Aktion nicht, soviel weiß ich, ich habe auch schon mal Mail sends gemacht in verschiedenen Agents, aber ne Abfrage auf eine einkommende Mail und die Infos entsprechend weiterleiten, keine Ahnung.

Hab mir mal das Konstrukt aus der Helpline angeschaut, aber da fehlt auch die Information mit Betreff aus der Mail....

Für jeden Hinweis bin ich dankbar.

Titel: Re: Agent Mail versenden einfache Aktion
Beitrag von: umi am 23.05.14 - 09:28:50

Moin

Schon mal probiert, dies über eine Rule zu lösen?

Titel: Re: Agent Mail versenden einfache Aktion
Beitrag von: Sommersprosse am 23.05.14 - 09:53:22

Hab ich nicht, nur so auf die schnelle reingeschaut, kann ich keine Copy Empfänger definieren, und die brauche ich.

Die Option Alle Dokumente und Kopfzeile würde da schon helfen denke ich aber ich brauche auch Kopie Empfänger.... was zu klären wäre.

Es soll ja nicht ein bestimmter Betreff gefiltert werden, sondern der Betreff immer mitgegeben werden.
UnprocessedDocuments eine Lösung??

Titel: Re: Agent Mail versenden einfache Aktion
Beitrag von: umi am 23.05.14 - 09:57:17

Moin

Dann mit einem Agenten. Trigger: After mail arrived und mit db.unprocessed Documents kommst Du an die neuen mails.
Kannst auch sicherheitshalber die verarbeiteten zusätzlich noch mit einem Zeitstempel/flag versehen um zu vermeiden, dass da irgendwie doppelte Mails rausgehen.

Titel: Re: Agent Mail versenden einfache Aktion
Beitrag von: Sommersprosse am 23.05.14 - 10:05:19

Ich habs mir fast gedacht, dann werd ich mir den mal zu Gemüte führen und mich reinlesen...

Mit Flag setzen gute Idee, doppelte mails wäre gaaanz schlecht.

Funktioniert dann wahrscheinlich auch zuverlässiger als die normalen einfachen Aktionen.

Danke erst mal, wenn ich nicht weiter komme melde ich mich wieder.

Titel: Re: Agent Mail versenden einfache Aktion
Beitrag von: Sommersprosse am 28.05.14 - 09:42:21

Hallo zusammen,

hab mich jetz mal mit der Thematik beschäftigt, eine Sache die mir jetzt noch nicht ganz klar ist, wie kann ich den Betreff der Mails aus der Collection auslesen?

Steh da noch aufm Schlauch.

Hab bis jetzt folgendes Konstrukt (bin Anfänger....), verbesserungsfähig, wenn die Logik nicht stimmt, bitte sagen und ist auch noch nicht fertig...
Mail Empfänger sind auch noch keine definiert...

Code

Sub Initialize
	Dim session As NotesSession
	Dim doccol As NotesDocumentCollection
	Dim doc As NotesDocument
	Dim maildoc As NotesDocument
	Dim bodyitem As NotesRichTextItem
	Dim db As NotesDatabase
	
	Set db = session.Currentdatabase
	Set doccol = session.currentdatabase.Unprocesseddocuments
	
	Set doc = doccol.getfirstdocument
	
	While Not (doc Is Nothing)
		Set maildoc = New NotesDocument (db)
		maildoc.form="Memo"
		maildoc.principal="New information"
		
		maildoc.Subject=doc. --> hier sollte mein Betreff stehen.
		
		Set bodyitem=maildoc.CreateRichTextItem("Body")
		bodyitem.AppendText "New information in  "
	 	bodyitem.AppendText " muss der Betreff der Mail rein."
		Call bodyitem.AppendDocLink( doc, "" )  
		
		maildoc.Send False
	wend
End Sub

Danke schon mal.

Titel: Re: Agent Mail versenden einfache Aktion
Beitrag von: umi am 28.05.14 - 10:03:08

Moin

Du könntest z.B.

Code

  ...
  call maildoc.replaceitemvalue("Subject",doc.getitemvalue("subject")) 

  ...
  call maildoc.replaceitemvalue("SendTo","<empfänger>")
  ...
  set doc=doccol.getnextdocument(doc)
wend

machen.

Getnextdocument nicht vergessen sonst läuft dein Agent ewig.
SendTo nicht vergessen, sonst wird dein Mail nicht geschickt.

Titel: Re: Agent Mail versenden einfache Aktion
Beitrag von: Mitch am 28.05.14 - 10:13:41

Zitat von: sommersprosse am 28.05.14 - 09:42:21

Code

     maildoc.Subject=doc. --> hier sollte mein Betreff stehen.

Suchst du etwa bloß das hier? Siehe:

Code

     maildoc.Subject=doc.NameDesItemsInDemDeinBetreffSteht(0)

Gruß,

Mitch

Titel: Re: Agent Mail versenden einfache Aktion
Beitrag von: Sommersprosse am 28.05.14 - 10:45:00

..das habe ich gesucht. Hätte es komplizierter gelöst, aber dafür gibt es Euch die Ihr schon länger programiiert wie ich.

Code

  ...
  call maildoc.replaceitemvalue("Subject",doc.getitemvalue("subject")) 

  ...
  call maildoc.replaceitemvalue("SendTo","<empfänger>")
  ...
  set doc=doccol.getnextdocument(doc)
wend

Danke umi