Domino 9 und frühere Versionen > ND6: Entwicklung

stationaery mail öffnen

(1/1)

romain:
hi
ich moechte mit einem agenten eine Stationery-mail aufmachen zum versenden.
danke

m3:
Ich hätte gern einen warmen Eislutscher.
DANKE!

 >:(

Täusche ich mich, oder wird die Fragequalität immer schlechter.

Als kleine Hilfe: http://www.lugbz.org/documents/smart-questions_de.html

romain:
also versuche ich das problem mal genauer zu beschreiben:

ich habe unter notes ein stationery amgelegt. (wir nutzen eine engliche version)
ich moechte ueber einen toolbar-button einen agenten aufrufen, der mir automatisch dieses dokument aufmacht.

oder andere methode

ein agenten der selbstaendig eine neues memo erstellt. (hackt bei mir, da @SendMail() nur PlainText erlaubt und kein RichText)

ich arbeite nur mit @formulas & @command

m3:
Wenn Du in Deine Mailschablone siehst, findest Du in der View "(Stationary)" eine Action "New Mail with Stationary", welche folgenden Code ausführt:


--- Code: ---Dim session As New notessession
Dim uiws As New notesuiworkspace
Dim collection As notesdocumentcollection
Dim noteUIEditDocument As notesuidocument
Dim database As NotesDatabase

Set noteCursorDoc = session.currentdatabase.createdocument
Set database = session.currentdatabase

Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
If Not(collection Is Nothing) Then     '//User may have cancelled
Set noteCursorDoc = collection.getfirstdocument
If Not noteCursorDoc Is Nothing Then
Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
End If
End If
Exit Sub
--- Ende Code ---
Das sollte eigentlich alle Fragen klären.

Navigation

[0] Themen-Index