Das Notes Forum
Domino 9 und frühere Versionen => ND6: Administration & Userprobleme => Thema gestartet von: Stingray am 19.02.07 - 11:51:55
-
Ahoi aus Mannheim! O0
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!
-
In die Vorlagenanscith gehen und dann Aktion Neu - Memo - Vorlage verwenden
-
... 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
-
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
-
Eine direkt Möglichkeit gibt es nicht. Programmiertechnisch könnte man da evt. was machen.
Axel
-
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ß
-
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!
-
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