title image


Smiley Script
Hallo,



ich nochmal:



ich hab hier mal ein Script für nen Button gebastelt, das automatisch

Dokumente mit der Gliederung verlinkt. Es ist zwar nicht ganz das

was du brauchst, aber du kannst es dir ja so umbauen dass das klappt:







' Dieses Script durchläuft alle 28 Outline einträge.

' Dabei wird überprüft ob bei einem Eintrag ein Dokument gelinkt ist.

' Trifft das zu so wird es in dem Auswahlfeld angezeigt..

' Bei auswahl eines Eintrages wird dieser in das Feld "Navigationseintrag" geschrieben.



Sub Click(Source As Button)



Dim session As New NotesSession

Dim db As NotesDatabase

Dim workspace As New NotesUIWorkspace

Dim uidoc As NotesUIDocument

Dim outline As NotesOutline

Dim oe(0 To 27) As NotesOutlineEntry

Dim labels (0 To 6) As Variant



Set db = session.CurrentDatabase

Set outline = db.GetOutline("out_ba")

Set oe(0) = outline.GetFirst()

Set uidoc = workspace.CurrentDocument



For i = 1 To 27

Set oe(i) = outline.GetNext(oe(i-1))

Next i



j=0

' Redim lables (27) As Variant

For i = 0 To 27



If oe(i).EntryClass = 2190 Then

labels(j) = oe(i).Label

j=j+1

Else

End If

Next i



entry = workspace.Prompt( PROMPT_OKCANCELLIST, "Outlines", "Outlineeintrag auswählen:","" , labels())



If entry "" Then ' Do nothing if nothing is selected

Call uidoc.Fieldsettext("Navigationseintrag", entry)

Else

End If

Call uidoc.Refresh

End Sub







grüße

Mike

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: