Hallo liebe Lotus-Spezis!
Da ihr mir bis jetzt immer gut helfen konntet, und ich wieder mal anstehe, konfrontiere ich euch mal mit der nächsten Lapalie:
Bis dato haben wir die persönlichen Signaturen einfach in html-Dateien lokal bei jedem Benutzer hinterlegt - ergo: wenn sich was ändert -> ein Affenaufwand. Da ich nun den Lotus-Part bei uns im Betrieb übernommen hab, sehe ich nicht ein, warum man sichs schwer machen soll, wenn es doch auch einfacher gehen würde, zumindes macht es den Anschein.
Da ich mich schon durchs Forum "gesucht" habe, konnte ich schon einiges ausfindig machen und hab mich dazu entschlossen, das MailTemplate anzupassen.
Was ich bis jetzt gemacht habe:
Ein Text-Feld erstellt "HSig", wo die Signatur zusamengebaut wird (aus der names.nsf)
| nl :=@NewLine; |
| user := @Name([CN];@UserName); |
| company := "..."; |
| department := @Unique(@NameLookup ( [Exhaustive]; user; "Department")); |
| phone := @Unique(@NameLookup ( [Exhaustive]; user; "OfficePhoneNumber")); |
| fax := @Unique(@NameLookup ( [Exhaustive]; user; "OfficeFaxPhoneNumber")); |
| |
| |
| signature := nl + nl + user + nl; |
| signature := signature + company + nl; |
| signature := signature + department + nl; |
| signature := signature + "Straße" + nl; |
| signature := signature + "A - 0000 Ort / Austria " + nl + nl; |
| signature := signature + "Tel: " + phone + nl; |
| signature := signature + "Fax: " + fax + nl; |
| signature := signature + "..."; |
| signature |
dannhab ich noch ein Feld "HSig_RT", wo die Signatur zum RitchText wird - da sollte das ganze auch formatiert werden. Ich hab nur überhaupt gar keinen Plan von LotusScript - dementsprechend sieht auch der Code aus, der das machen soll - tut er aber natürlich nicht:
| Sub Initialize |
| Dim w As New NotesUiWorkspace |
| Dim s As New NotesSession |
| Dim DB As NotesDatabase |
| Dim doc As NotesDocument |
| Dim View As NotesView |
| |
| Dim richStyle As NotesRichTextStyle |
| Set richStyle = s.CreateRichTextStyle |
| |
| richStyle.NotesFont = FONT_ARIAL |
| richStyle.FontSize = 8 |
| End Sub |
Zum Schluss soll das ganze dann einfach in den Body kommen - formatiert etc.pp.
Bitte helft mir und sagt mir, ob ich wenigstens etwas richtig gemacht habe

i Muchas gracias !