Hallo Leute, ich habe hier ein kleines script welches ein html datei in ein Notesdokument importiert. Dazu mach ich nichts anderes als mir den html text aus den Bodyfeld zu saugen und dann in das Bodyfeld eines neuen Dokumentes zu kopieren. Funktioniert auch soweit ganz gut. Dummerweise schneidet er den Text immer an ein und der selben stelle ab.
Sebst bei der html file die ich temp. erzeuge wird bereits der Text abgeschnitten. Es sieht für mich so aus als ob die variabel "HtmlText" nicht genaug aufnehmen kann?
Dim uiws As New NotesUIWorkspace
Dim fileNum As Long
Dim uidoc As Notesuidocument
Dim Path, HtmlText As Variant
Dim html As Variant
html = utildoc.getitemvalue("Body")
Path = session.GetEnvironmentString("Directory",True) + "\temp.html"
fileNum = Freefile()
Open Path For Output As fileNum
HtmlText = html(0)
Print #fileNum, HtmlText
Close fileNum
Set uidoc = uiws.ComposeDocument( "", "", "test")
Call uidoc.GotoField("Body")
Call uidoc.Import("HTML File",Path)
Kill Path
Msgbox "utilization list for specified timerange sucessfully created"
Exit Sub
[/sub]
