Domino 9 und frühere Versionen > Entwicklung

Button Script

<< < (3/8) > >>

Felix:
@eknori,

du meinst die Überlegung wäre dem User ein Mail senden
incl. Button der die angehängte bookmark.ntf löst und
ins Data Verzeichnis des Users kopiert ??

OK da müsste man testen welche Änderungen in der ntf
gemacht werden müssen (User abhängig vom Mailhomeserver)
und dann die jeweiligen DBs.

Und selbstverständlich noch die Button @Formel !!

oder wie siehst du das ??

Felix

eknori (retired):
vergiss den ganzen quatsch mit der Mail; habe hier die Lösung gefunden

http://www-10.lotus.com/ldd/46dom.nsf/55c38d716d632d9b8525689b005ba1c0/511bff0fefa8894205256825007859b5?OpenDocument&Highlight=0,n%3Ftesoutlineentry

das funktioniert ganz prima. Habe nur noch nicht richtig rausgefunden, wie das mit den Image Ressourcen funktioniert.
Habe die zwei Zeilen mal rausgenommen. Dann hat er mit ein bookmark angelegt, nur halt eben ohne Bildchen.

Ich mach jetzt mal Mittag, vielleicht fällt mir danach noch was ein.

eknori

Felix:
@eknori,

der Link sieht gut aus, habe das Script auch angesehen
aber ist das Chinesisch ??  ;D

Felix

Felix:
Ach und noch was

lass es dir schmecken  ;D   ;D   ;D

eknori (retired):
Hallo Felix

So, habe den Code noch mal überarbeitet
Das ganze in einen Button gepackt und schon kann es losgehen. Die Zeilen, die du anpassen musst, habe ich kommentiert.


     Dim outline As NotesOutline
     Dim oeNew As NotesOutlineEntry
     Dim oeTmp As NotesOutlineEntry
     Dim oeRef As NotesOutlineEntry
     Dim db As NotesDatabase
     Dim s As New NotesSession
     Dim Done, Found, NoMore As Variant
     
   'Hier wird die einzufügende Datenbank festgelegt
     Dim LinkDB As New NotesDatabase ("Comm1/Witte/de", "Global\Workflow\orga.nsf")
     newEntry$ = "Organisationsverzeichnis" ' wie soll der Eintrag heißen ?
     
     Set db = New NotesDatabase( "", "bookmark.nsf" )
     Set outline = db.GetOutline("UserBookmarkOrder")
     
     Set oeTmp = outline.GetFirst()
     label$ = ""
     Done = False
     referenceFound = False
     nacEntryFound = False
     
     Do While Done = False
           If oeTmp Is Nothing Then
                 Done = True
           Else
                 label$ = oeTmp.Label
                 If label$ = newEntry$ And oeTmp.Level = 0 Then '..entry already exists
                       nacEntryFound = True
                       Done = True
                 Else
                       If label$ = "To Do" Then
                             referenceFound = True
                             Set oeRef = oeTmp
                       End If
                       Set oeTmp = outline.GetNextSibling(oeTmp)
                 End If
           End If
     Loop
     
     Set oeNew = outline.CreateEntry(newEntry$)
     Call oeNew.SetNoteLink(LinkDB)
     
     If nacEntryFound Then
           Exit Sub
     Else
           If referenceFound Then
                 Call outline.AddEntry(oeNew, oeRef,True,False)
           Else
                 Call outline.AddEntry(oeNew, ,True,False)
           End If
           
           oeNew.ImagesText = "btasks" ' Hier kommt der Name oder der Alias einer Bildressource aus der bookmark.nsf rein
           Call outline.save()
     End If
     

eknori

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete