stationaery mail öffnen

[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

Das sollte eigentlich alle Fragen klären.