Domino 9 und frühere Versionen > ND8: Entwicklung

Erzeuge Mail und möchte am Anfang und Ende Text hinzufügen

(1/2) > >>

Scotty67:
...was möchte ich erzielen !

aus einem normalen Dokumet (mit Richtext Body Feld - welches wiederum Attachments beinhalten kann) wird ein Mail erstellt
....dabei übernehme ich einfach das Body feld (das funkt auch super)....Jetzt sollte in dem neu erzeugten Mail am Anfang und am
Ende Text angefügt werden (z.B. eine standartisierte Begrüssung und ein Disclaimer am Ende)

appenddoc ist ein Konfigurationsdokument das ein Richtextfeld und ein reines Textfeld beinhaltet - also 2 Felder die wie gesagt
den Header und die Signatur für das Mail darstellen, da ich viele verschiedene Dokumenttypen habe wir in einer Schleife das entsprechende Config-Dok ausgelesen


hier ein paar Auszüge:

'Config Dok einlesen
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" )
         rtitemC=appenddoc.GetItemValue( "MailBeginText" )
         Goto endAppendDocLookup
      End If
      Set appenddoc = appendview.GetNextDocument( appenddoc )
   Wend
   
endAppendDocLookup:
   
   
maildoc.Form = "DBMemo"
maildoc.Subject = CustomerMailSubject
maildoc.Empfaenger = myNames
maildoc.SMNummer = uismnummer
maildoc.UsedTime = 0
   

'jetzt übernehme ich das komplette Body Feld in das Mail   
Call maildoc.CopyItem( item, "Body" )

'jetzt lese ich das neu erstellte Body Feld wieder aus und ergänze es mit Text
Set rtitemB = maildoc.GetFirstItem( "Body" )
If FormName="SM" Then
   SMNu=uidoc.FieldGetText("SMN")
   xx$=rtitemC(0)
   Call rtitemB.AppendText(xx$)
   Call rtitemB.AddNewLine( 1 )
   t="Betrifft Störungsmeldung Nr."
   Call rtitemB.AppendText( t & SMNu )
Else
End If

Call rtitemB.AppendRTItem( rtitemA )
Call maildoc.Save(False,True)
Call workspace.EditDocument (True, maildoc)


und was fehlt jetzt noch - ganz am Anfang von dem Dokument möchte die Begrüssung einfügen
nur wie kann ich das positionieren ?

VIELEN DANK für eure Hilfe
Hannes

Peter Klett:
Du kannst nur anhängen. Also kopierst Du nicht das Body mit dem Inhalt als neues Bodyfeld der Mail, sondern das mit dem Kopf, dann hängst Du den Inhalt an (mit Notesrichtextitem.AppendRTItem) und dann die Fußzeile

Scotty67:
hallo peter !

HIER MEIN VERSUCH.
(nur die wichtigsten Passagen)
ich bekomm die Message  "instance Member APPENDRTITEM does not exist"
wo steckt der fehler ??

Set uidoc = workspace.CurrentDocument
Set doc=uidoc.document
Set item = doc.GetFirstItem( "Body" )


maildoc.Form = "DBMemo"
maildoc.Subject = CustomerMailSubject
maildoc.Empfaenger = myNames
maildoc.SMNummer = uismnummer
maildoc.UsedTime = 0
   
   
Dim dummyitem As NotesItem
Set dummyitem = maildoc.ReplaceItemValue ( "Body", "xxx" )
Call maildoc.Save(True,True)
   
Dim xrtitem As Variant
Set xrtitem = maildoc.GetFirstItem( "Body" )
Call xrtitem.AddNewLine( 1 )
Call xrtitem.AppendRTItem( item )

ascabg:
Hallo,

Wie hast Du denn "item" deklariert?
Und was passiert, wenn Du "xrtitem" mals als NotesRichTextItem deklarierst.


Andreas

Scotty67:
Dim item As NotesItem

leider hat dein TIP aus einer anderen Errormessage nichts gebracht :-\

Navigation

[0] Themen-Index

[#] Nächste Seite