Domino 9 und frühere Versionen > ND8: Entwicklung

vorhandene Outlines ermitteln

<< < (2/2)

Thomas Schulte:
türlich kannst du das. Du musst dir nur die Documente die zurückgeliefert werden etwas genauer anschauen.

nashieli:

--- Zitat von: Thomas Schulte am 25.09.08 - 14:46:33 ---türlich kannst du das. Du musst dir nur die Documente die zurückgeliefert werden etwas genauer anschauen.

--- Ende Zitat ---

hmmmmmmm... ich schau mir die Klasse nc.BuildCollection im Debugger an... jedoch seh ich da keine Documente...

Kannst Du vielleicht einem blinden einen genaueren Tip geben. Danke

Gruß

Asim

Fedaykin:
Hallo Asim

Hier der Tip:

Sub Initialize
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim nc As NotesNoteCollection
   Dim strNoteId As String
   Dim docOutline As NotesDocument
   
   Set db=session.CurrentDatabase
   Set nc = db.CreateNoteCollection(False)
   
   nc.SelectAllDesignElements False
   nc.SelectOutlines = True
   nc.BuildCollection
   
   strNoteID=nc.GetFirstNoteId
   
   Do Until strNoteID=""
      Set docOutline=db.GetDocumentByID(strNoteID)
      Msgbox docOutline.getitemvalue("$Title")(0)
      strNoteID=nc.GetNextNoteId(strNoteID)
   Loop
End Sub

Gruss
Remo

nashieli:

--- Zitat von: Fedaykin am 25.09.08 - 15:12:41 ---Hallo Asim

Hier der Tip:

Sub Initialize
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim nc As NotesNoteCollection
   Dim strNoteId As String
   Dim docOutline As NotesDocument
   
   Set db=session.CurrentDatabase
   Set nc = db.CreateNoteCollection(False)
   
   nc.SelectAllDesignElements False
   nc.SelectOutlines = True
   nc.BuildCollection
   
   strNoteID=nc.GetFirstNoteId
   
   Do Until strNoteID=""
      Set docOutline=db.GetDocumentByID(strNoteID)
      Msgbox docOutline.getitemvalue("$Title")(0)
      strNoteID=nc.GetNextNoteId(strNoteID)
   Loop
End Sub

Gruss
Remo

--- Ende Zitat ---

Hallo Remo,

vielen Dank. Geht Super.

Gruß

Asim

nashieli:
ich habe diesen Code zum anhängen in eine outline:

   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim outline As NotesOutline
   Dim entry As NotesOutlineEntry
   Dim workspace As New NotesUIWorkspace
   
   Set db = session.CurrentDatabase
   Set outline = db.GetOutline("Contact Outline")
   Set entry = outline.CreateEntry("TEST")
   
   entry.ImagesText = "C:\document_exchange.png"
   entry.Label = "OS_2"
   Call entry.SetAction({@Command([ToolsRunMacro];"(TESTOS)") })
   
   Call outline.AddEntry(entry)
   Call outline.Save()
   
   Call workspace.OutlineReload("Contact Outline","")

Ich seh jetzt OS_2. Jedoch sind die Icons von meine Ansicht weg. Welches Format muss das ImageText angeben. OS_2 will ich programmtechnisch ein Icon hinzufügen.

Danke

Gruß

Asim

Navigation

[0] Themen-Index

[*] Vorherige Sete