Domino 9 und frühere Versionen > Administration & Userprobleme
Flexibele Signatur
eknori:
Und hier noch eine Idee aus R5, die auf Profildokumenten aufbaut:
Submitted By: Christophe Razafindramena
Title 4 Tip: Mail signature using a profile document
Category: Script
Description: The signature is a new R5 feature. The mail template modification below does exactly the same thing using a profile document.
It automatically appends a footer when:
- creating a new memo
- replying to a memo
- replying with history to a memo
- forwarding a memo
This feature can be activated and desactivated through the Mail Profile document.
Code: Design modification:
1. Forms:
new form added: (Mail Profile):
Form Alias: MailProfile
Type: Document
Window Title Formula: SELECT "Mail Profile"
Include in Compose Menu: Yes
Include in Query by Form: No
Default Database Form: No
Automatically Refresh Fields: No
Mail New Documents When Saving: No
Store Form In Documents: No
Inherit Default Field Values: No
Updates Become Responses: No
Retain Prior Versions As Responses: No
Activate Objects When Composing: No
Activate Objects When Editing: No
Activate Objects When Reading: No
Document Encryption Keys: [None Assigned]
Composed Documents May Be Read By: All Users
Form May Be Composed By: All Users
Field: SIGN_YN
Datatype: Keywords
Help Description: [Not Assigned]
Field Type: Editable
Keyword User Interface: Radio Buttons
Allowable Keywords: Yes;No
Sign When Mailing/In Section: No
Encryption: Disabled
Update Requires Editor Access: No
Default Value Formula: "No"
Field: MailSignature
Datatype: Text
Help Description: [Not Assigned]
Field Type: Editable
Sign When Mailing/In Section: No
Encryption: Disabled
Update Requires Editor Access: No
2. Memo form:
in the PostOpen event of the Memo (Form), addition of a LotusScript line, after the Call EmailOpen function::
'*** added for signature
Call AddSign
If uidoc.EditMode = True Then Call uidoc.GotoField( "SendTo" )
'*** end of added for signature
3. Reply form:
in the PostOpen event of the Memo (Form), addition of a LotusScript line, after the Call EmailOpen function:
'*** added for signature
Call AddSign
If uidoc.EditMode = True Then Call uidoc.GotoField( "Body" )
'*** end of added for signature
4. Reply with History form:
in the PostOpen event of the Memo (Form), addition of a LotusScript line:
'*** added for signature
Call AddSign
If uidoc.EditMode = True Then Call uidoc.GotoField( "Body" )
'*** end of added for signature
5. Script Libraries:
Modification of the EmailProcessing Script: addition of a new sub routine
Sub AddSign
Dim l,n As Integer
Dim Footer As String
eol = Chr(13) & Chr(10)
If uidoc.InPreviewPane Then Exit Sub
Set db = session.CurrentDatabase
Set profile = db.GetProfileDocument("MailProfile")
l = Len (Profile.MailSignature(0))
n = 1
If (uidoc.isnewdoc And Profile.SIGN_YN(0) = "Yes" And l <> 0) Then
Call uidoc.GotoField( "Body" )
Do
Footer = Mid (Profile.MailSignature(0), n , 100)
If Footer <> eol Then Call uidoc.InsertText(footer$)
n = n+100
Loop Until n > l
End If
End Sub
6. New Shared Agent: this LotusScript agent is used to create the mail profile:
Name: Mail Tools\Mail Profile
When should this agent run: Manually from Action Menu
Which document(s) should it act on: Run once (@Commands may be used)
LotusScript:
(Options): no LotusScript
(Declarations):
Dim profile As NotesDocument
Dim db As NotesDatabase
Dim session As NotesSession
Dim ws As NotesUIWorkspace
(Initialize)
Sub Initialize
Set session = New NotesSession
Set db = session.CurrentDatabase
Set profile = db.GetProfileDocument("MailProfile")
Set ws = New NotesUIWorkspace
profile.save True, True, True
ws.EditProfile("MailProfile")
End Sub
dertoaster:
vielen dank für die schnellen antworten! hast du das schon mal selber ausprobiert?
Ich habe überhaupt keine Ahnung wie ich das mit den Scripten gestalten soll. Gibts da irgendwo ne anleitung??
Nochmals vielen Dank!
Gruß
Toaster
eknori:
Klar habe ich das schon alles in dieser oder einer anderen Form ausprobiert; ist schließlich mein Job ( seit JAHREN )
OK, wenn du da noch völlig unbedarft bist, hast du es natürlich umso schwerer, die Scripts nachzuvollziehen.
Lernen kannst du am Besten, wenn du experimentierfreudig bist und Spass an der Sache hast; und natürlich auch die Möglichkeiten entweder zuhause oder auf der Arbeit hast.
Das halte ich für die beste Möglichkeit, Lotus Notes Dev zu verstehen.
Bücher, na klar, aber du mußt das natürlich auch ausprobieren können.
Wenn du die Möglichkeit für Experimente hast, kein Problem. Schau dich weiter im Forum um, frage und lerne.
Du wirst aber auch sicherlich verstehen, das wir hier keine fix und fertigen Lösungen anbieten können.
In diesem Sinne
dertoaster:
Nein, das ist schon klar verstehe ich auch. Bin sozusagen Junior Administrator. Habe auch die Möglichkeit zu experimentieren - an der Arbeit oder zu Hause, dass ist egal. Muss mich aber noch in Lotus Script, bzw. den Designer erstmal einlesen.
Was kannst du denn an Büchern usw. empfehlen? Werde auch dieses Jahr noch auf einen Notes Lehrgang besuchen dürfen, nur weiß ich noch nicht so recht welchen...?? Hast du evtl Tips oder Erfahrungen für solche Lehrgänge??
eknori:
Nun , das beste deutschsprachige Buch zu LS ist für mich immer noch "R5 Designer" aus dem Verlag C&S"
Irendwo in diesem Forum ist auch noch eine Liste mit Literatur.
Kurse, seid mir jetzt bitte nich alle böse; aber ich hatte nie so rechten Spaß daran, da ich durch das Learning by doing immer so viel an Vorwissen mitgebracht habe, daß die mir nichts mehr erzählen konnten.
Wenn du nicht unbedingt mußt; CLP oder so, nutze die Zeit lieber für ein Selbststudium !!
Ich habe nie die Script Kurse besucht; kamen auch mangels interesse im Düsseldorfer/Kölner Raum nie zustande. Geschadet hat mir das nicht ;D
Aber wie gesagt, nicht auf mir rumhacken; ist halt meine Meinung.
Wenn du allerdinhst die Kurse brauchst, dann hast du ja eigentlich schon einen festen "Stundenplan"
Du wirst sehen, das Wissen, das du brauchst wirst du dir mit hilfe von Selbstinitiative in Kombination mit einem guten Forum in kürzester Zeit aneignen können.
eknori
Navigation
[0] Themen-Index
[#] Nächste Seite
[*] Vorherige Sete
Zur normalen Ansicht wechseln