Lotus Notes / Domino Sonstiges > Tipps und Tricks

$PaperColor - Hintergrundfarbe der Maske per Formel/Script ändern

<< < (2/2)

TMC:
Unten angehängt ist eine umgesetzte Lösung.

Dabei steht folgendes im Postsave:


--- Code: ---Sub Postsave(Source As Notesuidocument)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Set db = session.CurrentDatabase
   
   Set doc = Source.Document   
   
   While (doc.HasItem("$PaperColorEx"))
      Set item = doc.GetFirstItem("$PaperColorEx")
      Call item.Remove
   Wend
   
   While (doc.HasItem("$PaperColor"))
      Set item = doc.GetFirstItem("$PaperColor")
      Call item.Remove
   Wend
   
   Dim iPaperColor As Integer
   iPaperColor = Cint ( doc.ColorName(0))
   
   Dim itemPaper As New NotesItem( doc, "$PaperColor", iPaperColor )
   Call doc.save(True,True,True)
End Sub
--- Ende Code ---

Navigation

[0] Themen-Index

[*] Vorherige Sete