Vorlage erstellt - aber wie aufrufen? Einzelne Vorlagen über Schaltfläche mögl.?

[Stingray]

Ahoi aus Mannheim!

Für alle die - wie ich heute - nicht frei haben und arbeiten müssen eine kurze Frage, um den Restalkohol durch Nachdenken zu verbrennen )

Ich habe in LN6 ja die Möglichkeit Vorlagen zu erstellen.
So - wie kann ich die jetzt aber aufrufen? Irgendwie war das Wochenende glaube ich doch zu intensiv...
Desweiteren würde mich sehr interessieren, ob (und wie) ich einzelnen Vorlagen eine Schaltfläche zuordnen kann.

kurz noch zur Info: bissl programmieren okay ... aber mehr kann ich leider noch nicht.

Danke scho'mal im Voraus und frohe Fasnacht!

[Glombi]

In die Vorlagenanscith gehen und dann Aktion Neu - Memo - Vorlage verwenden

[Axel]

... oder im Eingang (geht auch in anderen Ansichten und Ordnern) unter Werkzeuge den Punkt Neues Memo - Vorlage verwenden... anklicken.



Gruß zurück aus Mannheim

Axel
 

[Stingray]

Okay, das hab ich jetzt gefunden - Danke.
Kann ich auch eine Vorlage einer Schaltfläche fest zuweisen?
Da hab ich bisher leider noch keine Möglichkeit gefunden..

Gruß,
Markus

[Axel]

Eine direkt Möglichkeit gibt es nicht. Programmiertechnisch könnte man da evt. was machen.


Axel

[Alex@]

Hallo Zusammen!

Ich öffne die neu erstellte Vorlage und lege mit Drag- & Drop- Funktion diese als Symbol ab. Danach - das Symbol (weil es immer als Mail DB Symbol standardmäßig angezeigt wird) nach Wunsch ändern...

Gruß

[Stingray]

Hi Alex!
Hmm, okay hört sich ja gut an. Nur bei mir habe ich Thema "Drag&Drop" nur die Möglichkeit, Sachen auf die Schnellstartleiste links zu ziehen. In eins der oberen Menüs geht das nicht.

Ich habe jetzt zwar auch einen Command-Button zum Einfügen von Text, allerdings funktioniert das nur bei unserer Signatur.
Ich habe gehofft, dass mir einer von Euch einen Notes-Befehl zum Aufrufen einer Vorlage zeigen kann, welchen ich dann als Schaltfläche mit einem Symbol verlinken kann.....

Hmm, geht das auch? DANKEE im Voraus!

[Glombi]

Ich habe ein Script, mit dem man aus einer Vorlagendatenbank (das muss nicht die Mail sein ! ) ein neues Memo erstellen kann. Es ist ganz nützlich, wenn mit unternehmensweiten Vorlagen gearbeitet werden soll.

'Beginn Anpassungen Mail-Schablone
     Dim vorlagenServer As String
     Dim vorlagenPath As String
     vorlagenServer = "<Server>"                               'ANPASSEN !!!!
     vorlagenPath = "glombi\vorlagen.nsf"                   'ANPASSEN !!!!
     Dim selectedvorlagedoc As NotesDocument
     'Ende Anpassungen Mail-Schablone
   
     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
   
     'Beginn Anpassungen Mail-Schablone
     ' hier die Originalzeile
     'Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Vorlage wählen", "Wählen Sie bitte eine Vorlage für das neue Memo.")
   
     'hier die angepasste Zeile - Auswahl aus Vorlagen-Datenbank
     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, vorlagenServer, vorlagenPath, "Stationery", "Vorlage wählen", "Wählen Sie bitte eine Vorlage für das neue Memo.")   
   
%REM
'Originalcode
     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
%END REM
   
     'die Vorlage muss in die Mail-Datenbank des Anwenders kopiert werden
     If Not(collection Is Nothing) Then '//User may have cancelled         
          Set selectedvorlagedoc = collection.getfirstdocument
          If selectedvorlagedoc Is Nothing Then Exit Sub
          Set noteCursorDoc = selectedvorlagedoc.CopyToDatabase( database )         
          If Not noteCursorDoc Is Nothing Then
               'Setze User-spezifische Felder
               noteCursorDoc.Principal = session.UserName
               noteCursorDoc.From = session.UserName
             
               Set noteUIEditDocument = uiws.Editdocument(False, noteCursorDoc)
             
               'Die kopierte Vorlage muss gelöscht werden, ansonsten bleibt diese in der Mail-Datenbank bestehen
               On Error Resume Next 'falls Löschen fehl schlägt einfach weiter
               Call noteCursorDoc.Remove( True )
          End If
     End If   
     'Ende Anpassungen Mail-Schablone   
     Exit Sub
     


Andreas