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 !
so, jetzt am notesbeispiel von "bold Text"
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim doc As New NotesDocument(db)
So, hier wird offenbar definiert, auf welches Doc, db und so weiter sich der folgende code bezieht.
Call doc.AppendItemValue("From", session.UserName)
Call doc.AppendItemValue("Subject", _
"Meeting time changed")
Dim richStyle As NotesRichTextStyle
Set richStyle = session.CreateRichTextStyle
Dim richText As New NotesRichTextItem(doc, "Body")
Call richText.AppendText("The meeting is at ")
ist klar...
Call richText.AppendStyle(richStyle)
Call richText.AppendText("3:00")
richStyle.Bold = False
Call richText.AppendStyle(richStyle)
Call richText.AppendText(" not 2:00")
Call doc.Save(True, False)
End Sub
So, was brauch ich jetzt alles um den gesamten Text aufeinmal zu formatieren, sobalt er in der Default Value mittels @ erzeugt wurde? Ich sags euch, es gibt nichts Schlimmeres als konkrete Beispiele -.- ich versteh nur Bahnhof.
ich glaub ich habs jetzt verstanden... doch kann mir jemand das hier "übersetzen"?
wär super wenn ich den scriptcode hiervon bekommen könnte:
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