Dies war mal ein Tip auf Lotus411
Description: If a user creates a piece of stationery called "Signature" then all new mail memo's should have that stationary as its template. Used to customise an individual users mail.
Method
On the Postopen event of a new memo check for the existence of the Signature stationery, note case. If it exists then close current blank memo and open stationery.
Two additions to the mail template are required.
1. A new hidden view called Sigs.
2. Script added to the Postopen event in Memo form.
Code: Sigs View selection:-
SELECT PostedDate = "" & $MessageType = "" & !(ExcludeFromView = "D")
One column called Subject:-
@If(@IsAvailable(IsMailStationery); MailStationeryName; Subject)
Postopen event in memo form:-
Sub Postopen(Source As Notesuidocument)
Set uidoc = source
Call EmailOpen
Dim sigitem As Variant
Dim rtitem As Variant
Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim collection As NotesDocumentCollection
Dim V As NotesView
Dim VDoc As NotesDocument
Dim doc As NotesDocument
REM If new doc then continue......................
If uidoc.isnewdoc Then
Else
Exit Sub
End If
REM If stationery doc then don't continue...............
Set V=db.GetView("(Sigs)")
Set VDoc = V.GetDocumentByKey("Signature")
If VDoc Is Nothing Then
Else
Call uidoc.close
Set uidoc = workspace.editdocument(True,Vdoc)
End If
End Sub
und hier noch ein weitere Tip; ebenfalls Lotus411
A lot of people have wanted to have a signature file in
Notes mail. (This function is added in R5). We have
updated our mail template with the following code, and
told the users to make a signature file and place it in
C:\Notes\Signature.doc. The file must be in ASCII
Text format. (You can have other formats.). (Put a
template in your public MS-Word template folder,
and let your users personalize the document
(add / change names ++) and save it as
C:\Notes\Data\Signature.doc)
The mail template is updated, so that the forms
"Replay, Replay With History and Memo"
have got the new button "Import Signature File".
When the users click on the new button, the
signature file is imported into the message.
The code behind the buttom is:
@Command([TextSetFontFace];"Courier");
@Command([FileImport];"ASCII Text";"c:\\notes\\data\\Signature.txt")
=============================
At this point in time, this functionality is not inherent within notes. What you can do to get around this, you can add an action button to the form that would append this to the end of the memo
@Command([EditInsertText];@NewLine);
@Command([TextSetFontFace];"Courier");
@Command([TextSetFontSize];"10");
@Command([TextNormal]);
@Command([TextSetFontColor];[DarkBlue]) ;
@Command([FileImport];"ASCII Text";"c:\\sigs\\signaturefile.txt"))
Or in the send button add this fuctionality.
