Disclaimer und Grußformel in ext. Mails

[Matze69]

Hallo,
wir haben von NOtes 4.5 auf R6 umgestellt.
Nun meine Frage:
Wie kann ich bei ext. Mails eine Grußformel und Disclaimer autom. anhängen - nach Möglichkeit noch individuell gestaltbar?
Gibt es spezielle Tools/Datenbanken?
Bin für jede Hilfe dankbar.

Matze

[smoki]

Mit Standard-Notes Mitteln, kann man nicht steuern, dass nur "Externe Adressen" einen Disclaimer usw. bekommen.

Allerdings kann man seit R5 (da du von R4.5 kommst, kennst du das ggf. nicht??) über "Werkzeuge/Vorgaben..." in der Mail-Datenbank im Menüpunkt im Tab Mail/Signatur eine eignen Grußformel und Disclaimer definieren.

Allerdings muss dies jeder Anwender dann selbst tun...

Wenn man das einheitlich haben will, kann man bsp. das Profildokument bei Postopen, mit den entsprechenden Werten versorgen.

Ich arbeite in den nächsten Wochen daran, das für unsere Mitarbeiter zu tun und kann dir ggf. dann Tipps geben, falls du das auch benötigst!

Gruss
Chris

[Driri]

Alternativ, wenn man sich lieber ein Tool holen möchte, gibt es von GROUP Technologies den Trailer. Der kann dann z.B. auch personalisierte Disclaimer erstellen.

http://www.group-technologies.de/en/products/products/trailer.php

[eknori]

Möglicherweise ist das hier iene Alternative zum Trailer

[hallo.dirk]

Domino 7 besitzt eine solche Funktion

[smoki]

Mit der folgenden Funktion, kannst du in der angegeben Datenbank die Signatur setzen:

Sub importSignature(db As NotesDatabase, signature As String)
   Dim profiledoc As NotesDocument
   Set profiledoc = db.GetProfileDocument("CalendarProfile")
   profiledoc.SignatureOption="1"
   profiledoc.Signature_1 = signature
   profiledoc.Signature = signature
   Call profiledoc.Save(True,False)
End Sub

Bei mir scheint sie, erfolgreich zu laufen... Der schwerere Teil ist, woher man eine vernüpftige Signatur bekommt.

Den Agenten kann man ggf. dann im PostOpen oder auf der Startseite laufen lassen.

Und Danke an "@eknori" für den Link auf die Sandbox!

Gruss
Chris

[Silver]

  sorry... wie hast du das mit der signatur genau gelöst.

wohin hattest du den obenstehenden befehl eingefügt. ich habe in der memo-maske ein berechnetes feld mit meiner persönlichen signatur die aus dem adressbuch je nach angemeldeten user gezogen wird.
das feld enthält auch die signatur, die ich gerne haben möchte.
nur wie übergebe ich die jetzt an meine vorgabesignatur in den werkzeugen bzw. im Kalenderprofil?
 

[smoki]

Hallo,

bei mir wird die genannte Funktion von einem Agenten nachts bedient, die das in alle Mailboxen einträgt und die vom User definierte Signatur überschreibt.

Wichtige Daten, wie Adresse, Funktion, Telefon und Fax-Nummer kommen aus dem Directory (bzw. einer Datenbank, die diese Daten komplett und richtig enthält). Ggf. ist noch der Disclaimer anzufügen.

Diese Daten werden im String "Signature" aufbereitet dargestellt je Anwender und dieser durch genannte Funktion in die User-Mail-Box geschrieben.

Eine Alternative ist, dass man das über PostOpen in das Template für die Mailboxen tut und ist Geschmackssache.

Nachteil ist, dass der Anwender die Möglichkeit hat die Signatur weiterhin zu editieren. In jeder Mail und in seinem Profil.

Daher macht es schon Sinn sich den Trailer der iQ.Suite anzusehen. Ab der Version 10, funktioniert das angeblich (muss ich noch testen!) auch mit Weiterleitungen und Antworten richtig und wird nicht ganz unten angehängt.

Es ist leider nicht ganz trivial (besonders in größeren Umgebungen) und bin hier grade auch zu diesem Thema in einem Projekt.

Gruss
Christian

[Silver]

Hallo! Vielen Dank für Deine ausführliche Antwort.

Ich habe meine Signatur in einem Textfeld mit den Namen "signature" gespeichert in der Memo-Maske. Diese wird auch ordnungsgemäß aus dem Adressbuch "generiert".

Nun habe ich im Postopen-Event der Maske Deine Funktion zusätzlich eingebunden:

   Dim profiledoc As NotesDocument
   Set profiledoc = db.GetProfileDocument("CalendarProfile")
   profiledoc.SignatureOption="1"
   profiledoc.Signature_1 = signature
   profiledoc.Signature = signature
   Call profiledoc.Save(True,False)

Bekomme jetzt aber beim öffnen einer neuen Mail den Hinweis "Object variable not set". Woran liegt das? Kannst Du mir bitte nochmal weiterhelfen?

Grüsse

[klaussal]

"db" ist wahrscheinlich nicht deklariert.

Schalt mal den Debugger ein.

[Silver]

Ja... im Debugger bringt er den Fehler bei der Abarbeitung von
Set profiledoc = db.GetProfileDocument("CalendarProfile")

Wo muss ich davor noch eine Deklarierung vornehmen.

Sorry... aber noch bin ich nicht so fit in Lotus Script. Eher bei der @-Formel.

Sorry... 

[klaussal]

Code

Dim session As New notessession
	Dim db As notesdatabase
	Set db = session.currentdatabase

[Silver]

Vielen Dank! Die Fehlermeldung erscheint jetzt nicht mehr.
Aber ich bekomme lediglich als Vorgabe für meine Signatur eine "8"?!

Kann mir nicht erklären woran das liegt o. wo die her kommt. Wird das Feld in der Memo-Maske evtl. erst später erstellt o. gefüllt als der Postopen-Event?

Oder muss ich evtl. irgendwie irgendwas noch in Text umwandeln?

[Silver]

Habe jetzt im Postopen-Event folgenden Befehl:

Sub Postopen(Source As Notesuidocument)
   Call cMemoObject.PostOpen(source)
   
   
   If source.editmode And Not (source.isnewdoc) Then
      Call cMemoObject.querymodechange(source)
      Call cMemoObject.postmodechange()
   End If
   
   Dim session As New notessession
   Dim db As notesdatabase
   Set db = session.currentdatabase
   
   Set profiledoc = db.GetProfileDocument("CalendarProfile")
   profiledoc.SignatureOption="1"
   signaturvorgabe = uidoc.FieldGetText( signature )
   profiledoc.Signature_1 = signaturvorgabe
   profiledoc.Signature = signaturvorgabe
   Call profiledoc.Save(True,False)
   
End Sub

Im Feld signature wird nachdem ich mir ein neues Memo aufmache meine Signatur richtig angezeigt (unter den Eigenschaften von Dokument).

Aber bekomme immer noch die 8 angezeigt (wird auch in den werkzeug-vorgaben so neu hinterlegt - das passt also schon mal  ) und erhalte jetzt den fehler:

Variant does not contain an object.

  Kann nochmal jemand helfen?

[Silver]

Hab jetzt folgende Formel, die zwar keine Fehlermeldung mehr verursacht, bekomme aber immer noch als Signatur eine "8" angezeigt:

Sub Postopen(Source As Notesuidocument)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim docCurrent As NotesDocument
   Dim docNew As Notesdocument   
   
   Call cMemoObject.PostOpen(source)
   
   If source.editmode And Not (source.isnewdoc) Then
      Call cMemoObject.querymodechange(source)
      Call cMemoObject.postmodechange()
   End If
   
   Set db = session.currentdatabase
   
   Set profiledoc = db.GetProfileDocument("CalendarProfile")
   profiledoc.SignatureOption="1"
   profiledoc.Signature_1 = signature
   profiledoc.Signature = signature
   Call profiledoc.Save(True,False)
   
End Sub

Hmmmm... hat wohl irgendwas mit der Felddefinition zu tun. Länge 8?!? Wie müsste ich das richtig definieren, dass ich auch den Text im Feld signature angezeigt bekomme. Muss ich noch irgendwie in Text formatieren?

[koehlerbv]

Wo wird denn überhaupt die Variable signature deklariert, geschweige denn mit einem Wert belegt??

[DerAndre]

Ein

Option Declare

in den Options hilft dabei auch schon mal gerne das sowas nicht passiert.

( Damit meine ich natürlich das Nichtdeklarieren von Variablen, ob Sie benutzt werden liegrt in der Hand des Entwicklers )

[Silver]

Tut mir echt leid - aber wie hinterlege ich die variable so, dass sie den Text aus dem Feld signature bekommt. Ich kenn mich mit den @-Formeln besser aus. Lotus-Script hatte ich leider noch nicht oft zwischen den Fingern.

[koehlerbv]

Wo (in welchem Dokument) steht denn das Feld signatur?

[Silver]

In der Memo-Maske - die auch den obenstehenden PostOpen-Aufruf enthält. Klappt wohl so nicht, oder? Evtl. über Gemeinsames Feld?