vorhandene Outlines ermitteln

[nashieli]

Hallo,

wie kann ich zuerst feststellen welche Outlines es gibt. Gibt es sowas wie GetOutlines. In der Doku hab icch nichts gefunden.

Ich will eine bestimmte finden, anzeigen und an der meine Buttons anhängen.

Danke und
Gruß aus berlin

Asim

[TRO]

GetOutline ist Dein Freund!

Thomas

[nashieli]

GetOutline ist Dein Freund!

Thomas

Hallo Thomas,

in der Doku steht da:

Dim outline As NotesOutline
Set outline = db.GetOutline("XXX")

Ich muss dann jedoch einen angeben. Wie kann ich aber alle ermitteln.

Gruß

Asim

[eknori]

  Dim nc As NotesNoteCollection
  Set nc = db.CreateNoteCollection(False)
  Call nc.SelectAllDesignElements(false)
  nc.SelectOutlines = True
  Call nc.BuildCollection

irgendwie so ( details siehe Designer Hilfe )

[nashieli]

  Dim nc As NotesNoteCollection
  Set nc = db.CreateNoteCollection(False)
  Call nc.SelectAllDesignElements(false)
  nc.SelectOutlines = True
  Call nc.BuildCollection

irgendwie so ( details siehe Designer Hilfe )

hmmmmmmm... das geht bei mir mit kleinen Änderungen, aber die Outlines kann ich damit nicht ermitteln...

[Thomas Schulte]

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

[nashieli]

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

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]

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

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