Domino 9 und frühere Versionen > ND8: Entwicklung

...warum kann ich das BODY Feld nicht auslesen ?

<< < (2/3) > >>

Ralf_M_Petter:
Du solltest mit CreateRichTextItem arbeiten um ein neues RichtextItem anzulegen. Dann musst du es auch nicht als Variant definieren.

Dann musst du aber die zeile maildoc.body="xx" rausnehmen.

Schreib doch mal genau was du machen willst, denn dein Code macht einfach keinen Sinn. Vor allem das mittendrinnen speichern. Das braucht man nämlich nur um die Änderungen am Richtext dann auch ins UI zu holen.

Grüße

Ralf

Scotty67:
...also aus dem UIdocument wird ein Mail erzeugt.
An dieses Mail muss ein bestimmter Zusatztext angefügt werden (so eine Art Disclaimer)

d.h. Die Störungsmeldung (=irgend ein Form) ist offen und der Benutzer klickt "Send Mail to Customer"...
dann soll ein MailDokument aufgehen und der Body (RT) Feld Bereich aus der Störungsmeldung übernommen
und dann wird noch einem Configdokument der Zusatztext dazugeholt und am Ende vom Mail angefügt...

der unter R8 funktionierende Code (dank EURER Hilfe) sieht jetzt (verkürzt) so aus:

Dim rtitem As Variant
Dim rtitemA As NotesRichTextItem
Dim rtitemB As NotesRichTextItem

Set uidoc = workspace.CurrentDocument               '####die offene Störungsmeldung
Set doc=uidoc.document
Set rtitemB=doc.GetFirstItem ("Body")

Dim maildoc As NotesDocument
'############ LOOKUP  Begin/End Text  ################
   
'Lookup für das Einleitungs- bzw. Ende-Dokument
Set appendview=db.GetView("App2MailView")
Set appenddoc=appendview.GetFirstDocument
   
While Not (appenddoc Is Nothing)
   configType=appenddoc.GetItemValue("FormName")
      
  If configType(0)=FormName Then 
      Set rtitemA = appenddoc.GetFirstItem( "Body" )
      MailBeginText=appenddoc.GetItemValue( "MailBeginText" )
     Goto endAppendDocLookup
     else
End If
Set appenddoc = appendview.GetNextDocument( appenddoc )
Wend
   
endAppendDocLookup:

Set maildoc=session.CurrentDatabase.CreateDocument
maildoc.Form = "DBMemo"
maildoc.Subject = CustomerMailSubject
maildoc.Empfaenger = myNames
maildoc.SMNummer = uismnummer
maildoc.UsedTime = 0

Set rtitem = New NotesRichTextItem(maildoc,"Body")
Call rtitem.appendRTItem(rtitemB)
Call rtitem.appendRTItem(rtitemA)

Call maildoc.Save(True,True)
Call workspace.EditDocument (True, maildoc)

Dokument bleibt dann im Edit Mode stehen und Benutzer kann noch darauf Einfluss nehmen.

Was müsste jetzt im Bezug auf R7-tauglichkeit genau geändert werden ?

Ralf_M_Petter:
Soweit ich es jetzt sehe kann das rtitem ruhig ein NotesRichTextItem sein, aber rtitemA und rtitemB müssen in Notes 7 Variant sein, da sie mit GetFirstItem geholt werden. Lies doch mal die Hilfe von getFirstItem in deinem 8er Designer. Da ist es doch genau erklärt.

Grüße

Ralf

Scotty67:
...also die funktion hätte ich soweit umgedreht, nur das problem ist das attachments vom bodyfeld nicht mitübernommen werden...pfaaaa :-((

s_Old:

--- Zitat von: Ralf_M_Petter am 29.07.10 - 11:13:03 ---Soweit ich es jetzt sehe kann das rtitem ruhig ein NotesRichTextItem sein, aber rtitemA und rtitemB müssen in Notes 7 Variant sein, da sie mit GetFirstItem geholt werden. Lies doch mal die Hilfe von getFirstItem in deinem 8er Designer. Da ist es doch genau erklärt.

--- Ende Zitat ---

Das stimmt so nicht, auch unter R7 und R6 (zumindest 6.5.x) muss ein RTI nicht als Variant deklariert werden, dami GetFirstItem funktioniert.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete