Du könntest probieren, im QueryOpen dir den Inhalt der Webseite mittels db.GetDocumentByURL zu holen und dann ins gewünschte Richtextitem zu kopieren...
Hallo Roland,
vielen Dank für die schnelle Antwort!
Funktioniert einwandfrei.
Kann man evtl. noch LoginName und Passwort mitgeben?
Gruß
Leo
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim doc As NotesDocument
Set doc = Source.Document
Dim MyDoc As New NotesDocument(db)
Set MyDoc = db.GetDocumentByURL _
("http://atnotes.de/index.php/topic,54901.msg354263.html#msg354263")
MyDoc.Form = "TestFormURL"
MyDoc.Subject = Now
Call MyDoc.Save(True,True)
Dim item As NotesItem
Set item = MyDoc.GetFirstItem( "Body" )
Call doc.CopyItem( item, "Body" )
End Sub
(es kommt dann eine Fehlermeldung dass der Web-Retriever-Prozess für diesen Server nicht erlaubt/aktiv ist, genau weiß ich es leider nicht mehr)
Um dieses Problem zu umgehen habe ich eine lokale DB verwendet. In meinem Fall die "cache.ndk", genauso gut ginge auch jede andere lokale DB, z.b. "names.nsf" o.ä. da das Dokument sowies nicht gespeichert wird (bzw. werden soll)
dim db as new NotesDatabase("","cache.ndk")
set doc = db.GetDocumentByUrl(...)
Gruß
Roland