Domino 9 und frühere Versionen > ND8: Entwicklung

Agent Mail versenden einfache Aktion

<< < (2/2)

Sommersprosse:
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

--- Ende Code ---

Danke schon mal.

umi:
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

--- Ende Code ---

machen.

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

Mitch:

--- Zitat von: sommersprosse am 28.05.14 - 09:42:21 ---
--- Code: ---     maildoc.Subject=doc. --> hier sollte mein Betreff stehen.

--- Ende Code ---

--- Ende Zitat ---

Suchst du etwa bloß das hier? Siehe:

--- Code: ---     maildoc.Subject=doc.NameDesItemsInDemDeinBetreffSteht(0)

--- Ende Code ---

Gruß,

Mitch

Sommersprosse:
..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

--- Ende Code ---

Danke umi

Navigation

[0] Themen-Index

[*] Vorherige Sete