Domino 9 und frühere Versionen > ND6: Entwicklung

Fokus für URLOpen und anschließendem Dok.-Close

<< < (3/3)

Driri:
Das war auch nur eine Vermutung, ausprobiert hab ich das selber auch nicht.  ;)

qu1cke:
Mit 'nem Aktions-Button geht das ganze wie gewünscht. ich will aber keinen Button, sondern den Link im Browser öffnen, wenn ich das Dokument in der Ansicht anklicke. kann man sich im QueryDocumentOpen der Ansicht vielleicht irgendwie das gewählte Dok zurückgeben lassen?

Hm, wie macht der Manfred D. das in seinem RSS-Reader?

TMC:

--- Zitat von: Quicke am 14.04.05 - 14:18:12 ---Mit 'nem Aktions-Button geht das ganze wie gewünscht. ich will aber keinen Button, sondern den Link im Browser öffnen, wenn ich das Dokument in der Ansicht anklicke. kann man sich im QueryDocumentOpen der Ansicht vielleicht irgendwie das gewählte Dok zurückgeben lassen?
Hm, wie macht der Manfred D. das in seinem RSS-Reader?

--- Ende Zitat ---

Klar kann man  ;)

Ich bin ja ein LotusScript-Freund, daher würde ich das so machen:

--- Code: ---Sub Queryopendocument(Source As Notesuiview, Continue As Variant)

On Error Goto ErrorHandler

Const URL_ITEMNAME$ = "Title"

Dim coll As NotesDocumentCollection
Dim doc As NotesDocument

Set coll = Source.Documents

Set doc = coll.GetFirstDocument
If doc Is Nothing Then Error 1001, "Möööp - No document selected !"

Msgbox doc.GetItemValue(URL_ITEMNAME)(0)

GoOut:
Continue = False 'We do not open the document !
Exit Sub
ErrorHandler:
Select Case Err
Case 1000-1999: 'trap user-defined errors
Msgbox Error$, 48, "Fehler"
Case Else: 'trap runtime-errors
'*** Error-Routine von Dir ***
End Select
Resume GoOut
End Sub
--- Ende Code ---

Das Script gibt Dir in einer Messagebox den Inhalt des Feldes "Title" aus, wenn Du ein Dokument öffnen willst aus einer Ansicht heraus.

qu1cke:
Hah, das war's - DANKE  :)

Ich war soooo kurz davor - dachte aber eben nur, daß souce.documents alle Dokumente in der Ansicht zurückgibt - und nicht nur das markierte.

Tztz... Hätte ich mal nachgelesen.

Für alle anderen hier der (leicht modifizierte) Code zum nachlesen:


--- Code: ---Sub Queryopendocument(Source As Notesuiview, Continue As Variant)
On Error Goto ErrorHandler

Const URL_ITEMNAME$ = "URL"

Dim coll As NotesDocumentCollection
Dim doc As NotesDocument

Set coll = Source.Documents

Set doc = coll.GetFirstDocument
If doc Is Nothing Then Error 1001, "No document selected !"

Dim ws As New NotesUIWorkspace

Call ws.URLOpen(doc.GetItemValue(URL_ITEMNAME)(0) )

GoOut:
Continue = False 'We do not open the document !
Exit Sub

ErrorHandler:
Select Case Err
Case 1000-1999: 'trap user-defined errors
Msgbox Error$, 48, "Fehler"
Case Else: 'trap runtime-errors
Msgbox Error$, 48, "Fehler"
End Select
Resume GoOut
End Sub
--- Ende Code ---

Also - Danke noch einmal und ein schönes WE.
René

Navigation

[0] Themen-Index

[*] Vorherige Sete