Das Notes Forum
Domino 9 und frühere Versionen => ND8: Entwicklung => Thema gestartet von: nashieli am 25.09.08 - 13:35:48
-
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
-
GetOutline ist Dein Freund!
Thomas
-
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
-
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 )
-
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...
-
türlich kannst du das. Du musst dir nur die Documente die zurückgeliefert werden etwas genauer anschauen.
-
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
-
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 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
-
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