Domino 9 und frühere Versionen > ND6: Entwicklung

Agenten-Problem

<< < (4/4)

Glombi:

--- Zitat von: klaussal am 05.04.04 - 11:03:24 ---@glombi,

öh, hab ich das ?

--- Ende Zitat ---
Indirekt mittels
success = docA.RenderToRTItem( rtitem )

Also ist es eine Methode der Klasse NotesDocument. Als Argument muss das NotesRichTextItem-Objekt verwendet werden.

Andreas

DaWutz:
Ok, ich habe das ganze jetzt mal umgesetzt.

Die Lösung sieht dann wie folgt aus:


--- Zitat ---Sub Initialize
   
'Deklaration der Objekte
   Dim session As NotesSession
   Dim db As NotesDatabase
   Dim dc As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim maildoc As NotesDocument
   Dim rtitem As NotesRichTextItem
   'Dim success As Variant
   
'Setzen der Objekte
   Set session = New NotesSession         'Öffne Notes Session
   Set db = session.CurrentDatabase        'Hole aktuelle Datenbank
   Set dc = db.UnprocessedDocuments    'alle Dokumente, die der Agent-Auswahl entsprechen, hier gewählte Dokumente
   
'Abbruch, falls kein Dokument gewählt wurde
   If dc.Count = 0 Then Exit Sub
   
'Iteriere über alle Dokumente der Collection
   Set doc = dc.GetFirstDocument
   
   Do While Not (doc Is Nothing)
      
      'Erstelle Mail
      Set maildoc = db.CreateDocument
      
      'Setze Felder
      maildoc.SendTo = "UserHelpDeskIT"
      maildoc.Subject = "SAP+~Sonstige Probleme ~ ~"
      
      'Setze Maske
      maildoc.Form = "SAP-Call"
      
      'Kopiere Dokument in Rich Text Feld Body des Mail
      Set rtitem = New NotesRichTextItem(maildoc,"Body")
      ' success = doc.RenderToRTItem(rtitem)
      Call doc.RenderToRTItem(rtitem)
      
      'Sende Mail (Maske nicht im Dokument speichern)
      Call maildoc.Send(False)
      
      'Gehe zum nächsten Dokument
      Set doc = dc.GetNextDocument(doc)
      
   Loop
   
End Sub
--- Ende Zitat ---

Ich habe beide Ansätze ausprobiert, den direkten und den indirekten, und nun gehen beide(??), auch wenn ich nicht wirklich verstehe, warum der eine am Anfang nicht wollte...  ;D

Vielen Dank für die kompetente und schnelle Hilfe!

@ Mod: kann geschlossen werden.

Glombi:
Du musst den Thread schließen.

Es ist wichtig, dass Du verstehst, warum
call rtitem.RenderToRTItem(doc)
nicht funktioniert.

Es muss so heißen
call doc.RenderToRTItem(rtitem)
also wird "RenderToRTItem" auf "doc" (NotesDocument) und nicht auf "rtitem" (NotesRichTextItem) angewendet.

Andreas

DaWutz:
Ok, das hab ich nu geblickt... Und das mit dem Thread schliessen hab ich nu auch gesehen...

Also, Thx nochmal... 8)

Daniel!

Navigation

[0] Themen-Index

[*] Vorherige Sete