Domino 9 und frühere Versionen > ND6: Entwicklung

MOD: Antwort, Vorlage verwenden

(1/3) > >>

eknori (retired):
hmm, war mir bisher gar nicht so bewusst. Es gibt zwar die unterschuedlichesten "Antwort" - möglichkeiten, aber nirgendwo findet sich eine "Antwort, Vorlage verwenden" function in der Mailschablone.

Oder hat das schon mal irgendwer zusammengestrickt ??

eknori

eknori (retired):
ok, hier mal ein "quick hack"

Sub Click(Source As Button)
   Dim ws As New NotesUIWorkspace
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim collection As notesdocumentcollection
   
   Dim replyToUIDoc As NotesUIDocument
   Dim stationeryDoc As NotesDocument
   
   Set db = session.CurrentDatabase
   
   Set replyToUIDoc = ws.ComposeDocument("","","Reply")
   
   Set collection = ws.Picklistcollection(PICKLIST_CUSTOM, False, db.server, db.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
   Set stationeryDoc = collection.getfirstdocument
   
   If Not stationeryDoc Is Nothing Then
      Dim stationeryBodyItem
      
      Set stationeryBodyItem = stationeryDoc.getfirstitem("Body")
      
      Call replyToUIDoc.GotoField( "Body" )
      Call replyToUIDoc.SelectAll
      Call replyToUIDoc.Cut
      Call replyToUIDoc.InsertText( stationeryBodyItem.GetFormattedText( False, 0 ) )
   Else
      
      Call replyToUIDoc.Close
   End If
End Sub

Semeaphoros:
Hmm, da hätte ich aber gleich einen weiteren Wunsch: Textbausteine, das liesse sich wohl sehr ähnlich anstossen wie das Verwenden von Vorlagen.

eknori (retired):
warum eigentlich nicht ?  :D

eknori (retired):
@Semeaphoros:

hast du da konkrete Vorstellungen zum Funktionsumfang ??

Navigation

[0] Themen-Index

[#] Nächste Seite