Das Notes Forum

Domino 9 und frühere Versionen => ND8: Entwicklung => Thema gestartet von: Scotty67 am 24.06.10 - 09:28:58

Titel: Erzeuge Mail und möchte am Anfang und Ende Text hinzufügen
Beitrag von: Scotty67 am 24.06.10 - 09:28:58

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

Titel: Re: Erzeuge Mail und möchte am Anfang und Ende Text hinzufügen
Beitrag von: Peter Klett am 24.06.10 - 11:13:39

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

Titel: Re: Erzeuge Mail und möchte am Anfang und Ende Text hinzufügen
Beitrag von: Scotty67 am 25.06.10 - 08:27:25

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 )

Titel: Re: Erzeuge Mail und möchte am Anfang und Ende Text hinzufügen
Beitrag von: ascabg am 25.06.10 - 08:41:10

Hallo,

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


Andreas

Titel: Re: Erzeuge Mail und möchte am Anfang und Ende Text hinzufügen
Beitrag von: Scotty67 am 25.06.10 - 09:11:53

Dim item As NotesItem

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

Titel: Re: Erzeuge Mail und möchte am Anfang und Ende Text hinzufügen
Beitrag von: ascabg am 25.06.10 - 10:07:45

Also wenn ich die Hilfe richtig deute, dann muss auch "item" als RichTextItem deklariert sein.

Code

Call notesRichTextItem.AppendRTItem( notesRichTextItem2 )

Andreas