Flexibele Signatur

[dertoaster]

Hallo @all,

habe folgenden Auftrag von meinem Chef bekommen:

Ist es möglich, wenn ich ein neues Memo öffne, dass ich dann eine Abfrage bekomme, z. B. "externe Mail" und "interne Mail"??

Über diese Abfrage soll gesteuert werden, dass bei internen Mails eine andere oder keine Signatur angehangen wird und für externe Mails, die vom Marketing vorgebene Siganatur angehangen wird.

Lässt sich das wie oben beschrieben überhaupt realisieren oder ist es so gar nicht machbar?

Gruß
Toaster

[eknori]

Würde ich anders ( ohne zu programmieren )  lösen :
Erstelle einfach 2 Vorlagen (intern/extern) und erstelle die Memos entsprechend aus den Vorlagen.

[dertoaster]

Ja, da hast du schon recht, aber wie löse ich das, wenn ich eingehende Mails beantworte, inter, bzw. extern??

Gruß
Toaster

[eknori]

Da würde mir jetzt spontan einfallen:
keine Vorlagen; eine neue Aktion, die in den "Send" Button aufgenommen wird, die dem User einen Dialog mit möglichen Signaturen öffnet, die dann an die Memo angehängt wird.

die einzelnen Signaturen würde ich als Vorlagen hinterlegen, um die ganze Sache flexibel und userbezogen zu gestalten.

Der Dialog zeigt den Namen der Vorlage an und nach der Auswahl wirde der Inhalt des RTF der Vorlage an das Rtf der Mail oder Antwort gehängt.

... etwa so

[eknori]

Ich habe das hier mal in einer 4.6 Umgebung verwendet:


Submitted By:   Graham Wainwright
Title 4 Tip:   Mail Template update for Auto Stationery
Category:   Script
 
      
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

[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  

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

[dertoaster]

Dann werde ich mich der Sache annehmen und mal die Sache ausprobieren!! Mal sehen was dabei rumkommt.

Werde hier mal posten wie weit ich komme!

Gruß
Toaster

[theBastian]

Wollte mal an dieses Problem anknüpfen:

habe das Gleiche vor wie der toaster. Nur scheint in LN6 die Funktionsweise der Signatur etwas anders zu sein:

Es gibt ein hidden Field "Sign" mit Default "@Text(@MailSignPreference)" also dem Wert, der in den Preferences für Signatur eingestellt ist.

Die Input Validation sieht so aus: "@If(tmpsign = ""; "0"; tmpSign)". Und jetzt wird es schwierig. Ich kriege einfach nicht raus, was Notes dann mit diesen Infos macht.

Wenn ich das weiß, will ich dann in diesem Feld mit einer @If-Auswahl entscheiden, ob eine Signatur angefügt wird oder nicht.

Danke für Eure Hilfe.

Sebastian

[Glombi]

Das Feld "Sign" hat einen anderen Sinn. Falls das auf "1" steht, wird das Mail elektronisch unterschrieben.
Ob das automatisch bei jedem Mail gemacht werden soll, kann in den Benutzervorgaben eingestellt werden. Daher die @Formel.

Andreas

[theBastian]

Sorry, da war ich wohl etwas verwirrt.

Aber wie funktioniert denn dann das Anhängen der MailSignatur? Aus dem Preference-Agenten konnte ich das nicht erkennen. Hier scheint ja nur eingestellt zu werden, ob oder ob nicht.