Autor Thema: Rich Text - Felder in eine Mail einbinden  (Gelesen 1120 mal)

Offline lotusfreak

  • Frischling
  • *
  • Beiträge: 12
Rich Text - Felder in eine Mail einbinden
« am: 20.10.05 - 14:43:42 »
Hallo erstmal,

mich würde interessieren ob man es ermöglichen kann in eine automatische generierte Mail den Inhalt eines Rich Text Feldes einzubinden. Wenn ja WIE?  :-:

euer Nico

Offline koehlerbv

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 20.460
  • Geschlecht: Männlich
Re: Rich Text - Felder in eine Mail einbinden
« Antwort #1 am: 20.10.05 - 14:50:26 »
Wenn das vorhandene RTI den ganzen Mail-Body bilden soll:
Notes Document.CopyItem

Wenn Du ein anderes RTI an den Body anhängen willst:
NotesRichTextItem.AppendTRItem

Bernhard

Offline lotusfreak

  • Frischling
  • *
  • Beiträge: 12
Re: Rich Text - Felder in eine Mail einbinden
« Antwort #2 am: 20.10.05 - 15:54:04 »
hi,

habe nicht wirklich ne dokumentation zu NotesRichTextItem.AppendTRItem
 oder Notes Document.CopyItem gefunden. Wie genau werden die eingesetzt ( parameter usw. ) ???

Offline koehlerbv

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 20.460
  • Geschlecht: Männlich
Re: Rich Text - Felder in eine Mail einbinden
« Antwort #3 am: 20.10.05 - 15:55:38 »
Die stehen gut sichtbar bei den entsprechenden Notes classes in der DesignHelp. Selbst die Volltextsuche mit den Methodennamen zeigt sofort die richtigen Treffer.

Bernhard

Offline eknori

  • @Notes Preisträger
  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 11.730
  • Geschlecht: Männlich
Re: Rich Text - Felder in eine Mail einbinden
« Antwort #4 am: 20.10.05 - 15:57:14 »
hier ein kurzes CodeFragment:

                     ' Bulid the message                     
                     Set doc = New NotesDocument ( db ) ' create temp doc
                     Set rtItem = New NotesRichTextItem ( doc, "Body")
                     Call rtItem.AppendRTItem (TemplateDoc.GetFirstItem("Body"))
                     If ( rtItem.Type = RICHTEXT ) Then
                        'Call rtItem.AddNewline(1)
                        Call rtItem.AppendDocLink ( TicketDoc, "" ) '                      
                     End If
Egal wie tief man die Messlatte für den menschlichen Verstand auch ansetzt: jeden Tag kommt jemand und marschiert erhobenen Hauptes drunter her!

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz