Hallo Leute,
Ich habe ein Datenbank von der ich (aus einem Dokument heraus) eine andere Datenbank öffene und den Anhang eines Dokuments daraus starten möchte.
Wie mache ich das mit Script ?
Mein versuch ist folgender:
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim aktdb As NotesDatabase
Dim uidoc As NotesUIDocument
Dim aktdoc As NotesDocument
Dim archdb As New NotesDatabase("","")
Dim archdoc As NotesDocument
Dim object As NotesEmbeddedObject
'---------------------------------------------------------------------------
Dim archdocid As String
Dim archdbid As String
Dim rtitem As Variant
Dim datei As String
Dim spfad As Variant
Dim speicherpfad As String
'---------------------------------------------------------------------------
Set uidoc = ws.CurrentDocument
Set aktdb = session.CurrentDatabase
Set aktdoc = uidoc.Document
'---------------------------------------------------------------------------
archdocid = aktdoc.GetItemValue("LINKID")(0)
archdbid = aktdoc.GetItemValue("DBID")(0)
If archdb.OpenByReplicaID( aktdb.Server, archdbid ) Then
Set archdoc = archdb.GetDocumentByUNID(archdocid)
Set rtitem = archdoc.GetFirstItem( "$File" )
datei = archdoc.GetItemValue("$File")(0)
Set object = archdoc.GetAttachment( datei )
Call object.Activate(True)
End If
Was mache ich falsch ?
Danke schon im voraus.