Zugriff auf Notes Attachments von außen?

[pjsb]

Hi,

Ich habe ne Frage kommt man von "außen" z.b. mit nem VB Script irgendwie an die Anhänge von Notes Dokumenten? Liegt die DB auf em Domino Server kann ich ja per View und Link darauf Zugreifen nur geht das auch ohne Server quasi lokal im Client?

ich hab ne DB auf nen Domino Server mit PDF attachments! die kann ich über HTTP links downloaden bzw öffen! ein agent erstellt mir immer ne linkliste!

habe ich jetzt diese db lokal repliziert auf meinen laptop und keinen netzzugang... komme ich dann vom "aussen" z.b. mit ein vb programm irgendwie an diese attachements? ohne den notes client?!


Hat da jemand ne Idee?

greetz

JEns

[Ralf_M_Petter]

Hallo!

Ist an und für sich von VB überhaupt kein Problem.

Grüße

Ralf

P.S. Wenn du deine Frage etwas mehr präzisierst, werde ich dir gerne helfen.

[pjsb]

hi,

kannst du mir nen bsp schicken wie ich an eine datenbankdokument komme und an den anhang...
was muss ich in vb dazu wissen?!

pfad? datenbankname denk ich mal...

gruß

Jens

[Ralf_M_Petter]

Gegenfrage, wie schaut dein Wissen über das Objektmodel von Notes aus, bzw. wie gut bist du in VB.

Grüße

Ralf

[pjsb]

objektmodel nicht gut hab fast gar kein notes wissen...
weiß dass das alles dokument bezogen ist oder so...

kenne nur relationale dbs ;-)

vb profi....

[koehlerbv]

Dieses Redbook "COMe together" könnte dann sehr hilfreich sein. Mit dem Domino Object Model musst Du Dich aber trotzdem recht tiefgreifend auseinandersetzen.

Bernhard

[eknori]

crossposting

[pjsb]

cool danke für das redbook! komme jetzt an die daten soweit... komme auch an attachment id aber wie krieg ich diese per vb "downgeloaded" bzw. lokal auf meinen rechner in ein verzeichnis?

greetz

jens

[Ralf_M_Petter]

Poste mal deinen aktuellen Source Code, dann kann man sicher die fehlende Anweisung noch ergänzen.

Grüße

Ralf

[pjsb]

Code

Function getNotes_data(server As String, path As String)

Dim DOMSession As New NotesSession
Dim DOMDB As NotesDatabase
Dim DOMView As NotesView
Dim DOMDoc As NotesDocument
Dim i, ende As Integer
Dim result()

DOMSession.Initialize

Set DOMDB = DOMSession.GetDatabase(server, path)
Set DOMView = DOMDB.GetView("viewTemplatesByNameDE")
Set DOMDoc = DOMView.GetFirstDocument

i = 0
ende = DOMView.EntryCount
ReDim Preserve result(0 To ende, 0 To 10)

Do Until (DOMDoc Is Nothing)
        
    result(i, 0) = i
    result(i, 1) = DOMDoc.GetItemValue("sSubject")(0)
    result(i, 2) = DOMDoc.GetItemValue("sDocType")(0)
    result(i, 3) = DOMDoc.GetItemValue("sLanguage")(0)
    result(i, 4) = DOMDoc.GetItemValue("sCountry")(0)
    result(i, 5) = DOMDoc.GetItemValue("sLocation")(0)
    result(i, 6) = DOMDoc.GetItemValue("sDepartment")(0)
    result(i, 7) = DOMDoc.GetItemValue("sAttachmentName")(0)
    result(i, 8) = DOMDoc.GetItemValue("sRemark")(0)
    result(i, 9) = DOMDoc.GetItemValue("sStandardTemplate")(0)
    
    Set DOMDoc = DOMView.GetNextDocument(DOMDoc)
    i = i + 1
Loop
 
   getNotes_data = result()

End Function

schreibe halt die daten in ein array und probier grad irgendwie an das attachment dranzukommen!?

vielleicht mit

Code

DOMDoc.GetAttachment (result(i, 7))

wie krieg ich die datei kopiert? aber wie

[pjsb]

GELÖST

Code

Function getNotes_data(server As String, path As String)

Dim DOMSession As New NotesSession
Dim DOMDB As NotesDatabase
Dim DOMView As NotesView
Dim DOMDoc As NotesDocument
Dim DOMFile As NotesEmbeddedObject
Dim i, ende As Integer
Dim result()

DOMSession.Initialize

Set DOMDB = DOMSession.GetDatabase(server, path)
Set DOMView = DOMDB.GetView("viewTemplatesByNameDE")
Set DOMDoc = DOMView.GetFirstDocument

i = 0
ende = DOMView.EntryCount
ReDim Preserve result(0 To ende, 0 To 10)

Do Until (DOMDoc Is Nothing)
        
    result(i, 0) = i
    result(i, 1) = DOMDoc.GetItemValue("sSubject")(0)
    result(i, 2) = DOMDoc.GetItemValue("sDocType")(0)
    result(i, 3) = DOMDoc.GetItemValue("sLanguage")(0)
    result(i, 4) = DOMDoc.GetItemValue("sCountry")(0)
    result(i, 5) = DOMDoc.GetItemValue("sLocation")(0)
    result(i, 6) = DOMDoc.GetItemValue("sDepartment")(0)
    result(i, 7) = DOMDoc.GetItemValue("sAttachmentName")(0)
    result(i, 8) = DOMDoc.GetItemValue("sRemark")(0)
    result(i, 9) = DOMDoc.GetItemValue("sStandardTemplate")(0)
    
    Set DOMFile = DOMDoc.GetAttachment(result(i, 7))
        DOMFile.ExtractFile "R:\Temp\Test\" & result(i, 7)
    
    Set DOMDoc = DOMView.GetNextDocument(DOMDoc)
    i = i + 1
Loop
 
   getNotes_data = result()

End Function