Domino 9 und frühere Versionen > Administration & Userprobleme

Schablonen erkennen und verteilen

<< < (2/2)

Rob Green:
@fritandr..aha...äh.. ;D...ist das posting zum Templateprob gedacht? Habe nicht den Eindruck, kann mich aber täuschen.

jo, ich hab mir mal die NotesDatabase Klasse angesehen und bingo, es gibt eine Property, die das ausliest....lasset die Help sprechen:

This sub notifies database managers that the design of their databases is going to change. It takes the server (such as "Caracas") and file of a template database (such as MAIL4.NTF) and sends mail to the managers of all databases on the server that inherit from that template.
Sub templateNotification(server As String, file As String)
  Dim templateDb As NotesDatabase
  Dim templateName As String
  Dim db As NotesDatabase
  Dim directory As NotesDbDirectory
  Dim doc As NotesDocument
  Set templateDb = New NotesDatabase( server, file )
  templateName = templateDb.TemplateName
  Set directory = New NotesDbDirectory( server )
  Set db = directory.GetFirstDatabase( DATABASE )
  While Not ( db Is Nothing )
    If ( db.DesignTemplateName = templateName ) Then
      Call db.Open( "", "" )
      Set doc = New NotesDocument( db )
      doc.Form = "Memo"
      doc.Subject = "Template changes in " & templateName
      doc.Body = "The template " & templateName &  _
      " will be modified tomorrow."
      Call doc.Send( False, db.Managers )  
    End If
    Set db = directory.GetNextDatabase
  Wend
End Sub
A call to this sub might look like this:
Call templateNotification( "Caracas", "mail4.ntf" )

fritandr:

--- Zitat von: Rob Green am 17.03.03 - 15:10:19 ---@fritandr..aha...äh.. ;D...ist das posting zum Templateprob gedacht? Habe nicht den Eindruck, kann mich aber täuschen.

--- Ende Zitat ---

@Rob Green,

doch, doch!!!
Mit dem genannten "convert" kannst Du alle "*.nsf" im Verzeichnis "MAIL", die mit der Schablone "stdr45*" versehen sind auf die Schablone updaten, die der DB "mail46.ntf" entspricht.
Kaum zu glauben, aber dieser Einzeiler funktioniert tatsächlich.

Ciao
Andreas

Rob Green:
ok, danke ...meine Admin Experience Points steigen nun von 86 Punkten auf 101 Punkte..yeahh...Level 2 erreicht  :D

Rob Green:
rein zufällig das hier auf der Sandbox gefunden:

http://www-10.lotus.com/ldd/sandbox.nsf/ecc552f1ab6e46e4852568a90055c4cd/bda84d4c9f2751028525699700504d3b?OpenDocument&Highlight=0,mail

(Template Reporter 1.0)

Errormaker:
Supergut.
Habe mal die DB getestet. Läuft wie geschmiert.
Vielen Dank für alle Tips.
 :D

Navigation

[0] Themen-Index

[*] Vorherige Sete