Hallo Notes-Fans,
ich versuche über Visual Basic und DOM Dokumente in einer Notes-DB zu erstellen. Das Programm läuft bereits unter einer Notes 5 Umgebung. Nun versuche ich es mit einem NOtes 6.5.1 Client und da stürzt das Programm mit einer NSD Fehlermeldung in folgender Zeile ab. Weiß jemand etwas von
Änderungen im DOM unter 6.5.1 ?
Ciao
DOn Pasquale
BEMERKENSWERT:
Auf einem Rechner, auf dem NUR der Lotus 5 Client installiert ist, da klappt der Import auf den 6.5.1 Server.
Auf einem Rechner auf dem NUR der Lotus 6.5.1 Client installiert ist, da tritt der Fehler auf.
Einen 6er Client konnte ich noch nicht testen.
> Set obj = rti.EmbedObject(EMBED_ATTACHMENT, "", myVerzeichnis & "\00001.tif")
CODEAUSZUG:
Set LNSession = New NotesSession
writeLog ("New NotesSession")
strPassword = Decode(strPassword)
If strPasswort <> "" Then
writeLog ("Password is not null")
End If
writeLog ("Prüfe auf LNSession")
If Not LNSession Is Nothing Then
writeLog ("LNSession is not nothing")
writeLog ("Call LNSession.Initialize(strPassword)")
Call LNSession.Initialize(strPassword)
writeLog ("Set LNDB = LNSession.GetDatabase(strLotusserver, strLotusDBFile)")
Set LNDB = LNSession.GetDatabase(strLotusserver, strLotusDBFile)
writeLog ("Set LNDoc = LNDB.CreateDocument")
Set LNDoc = LNDB.CreateDocument
writeLog ("Besitzer:" & Besitzer)
Call LNDoc.AppendItemValue("BESITZER", Besitzer)
writeLog ("Gruppe:" & Gruppe)
Call LNDoc.AppendItemValue("GRUPPE", Gruppe)
writeLog ("Titel:" & Titel)
Call LNDoc.AppendItemValue("TITEL", Titel)
Call LNDoc.AppendItemValue("DATUM", DATUM)
Call LNDoc.AppendItemValue("Form", "frmDokument")
Call LNDoc.AppendItemValue("HERKUNFT", Herkunft)
Call LNDoc.AppendItemValue("ERFASSER", Erfasser)
Call LNDoc.AppendItemValue("FILEEXTENSION", Fileextension)
Call LNDoc.AppendItemValue("EXTENDED_ATTR1", Extended_Attr1)
Call LNDoc.AppendItemValue("EXTENDED_ATTR2", Extended_Attr2)
Call LNDoc.AppendItemValue("EXTENDED_ATTR3", Extended_Attr3)
' NUn wird das BODY-Feld erstellt und darin das TIF und die volltext.txt
' gespeichert. Das BODY Feld ist vom RICH-TEXT ( RTF)
writeLog ("Set rti = LNDoc.CreateRichTextItem(BODY)")
Set rti = LNDoc.CreateRichTextItem("BODY")
writeLog ("Set obj = rti.EmbedObject(EMBED_ATTACHMENT, '', myVERZEICHNIS & \00001)")
> Set obj = rti.EmbedObject(EMBED_ATTACHMENT, "", myVerzeichnis & "\00001.tif")
If FSO.FileExists(myVerzeichnis & "\volltext.txt") Then
writeLog ("Die volltext.txt wurde aus folgendem Pfad kopiert.")
writeLog ("Set obj = rti.EmbedObject(EMBED_ATTACHMENT, '', myVERZEICHNIS & \volltext.txt)")
Set obj = rti.EmbedObject(EMBED_ATTACHMENT, "", myVerzeichnis & "\volltext.txt")
End If
LNDoc.save True, False, False