Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: solvei am 14.05.03 - 10:42:24
-
hallo
ich versuche einen agenten zu schreiben, der mir aus einer mail den body in eine externe datei schreibt:
Sub Initialize
Dim doc As NotesDocument
Dim rtitem As Variant
Dim plainText As String
Dim fileNum As Integer
'...set value of doc...
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
plainText = rtitem.GetFormattedText( False, 0 )
End If
' get a file number for the file
fileNum = Freefile
' open the file for writing
Open "c:\plane.txt" For Output As fileNum
' write the formatted text to the file
Print #fileNum, plainText
' close the file
Close #fileNum
End Sub
allerdings erhalte ich die fehlermeldung: Object variable not set.
gruss und dank an die helfer
solvei
-
und wie sagst Du Notes welches das Doc ist? Ich nehme an, Du hast das Bsp. aus der Help kopiert und vergessen, daß man noch was davor reinschreiben muß...
Dim WS As New NotesUIWorkspace
Dim UIDoc as NotesUIDocument
set UIDoc=ws.currentdocument
Dim doc as NotesDocument
set doc=UIDoc.document
...dein Code
-
das sieht so aus wie aus der Hilfe
als erstes würde ich den Debugger einschalten, wenn du dann den Agenten startest, dann bleibt er genau an der Stelle stehen wo der Fehler auftritt. Und übrigens doc mußt du schon initialisieren.
-
'...set value of doc...
Du musst das doc, auf welches referenziert werden soll noch definieren...
da du wenig ueber den Kontext hier preis gibst, kann ich dir leider nicht weiterhelfen!
Wird das Script ueber eine Viewaction getriggert, oder aus einem doc selbst, oder wie ?
gruss
-
danke an alle !
war mal wieder nicht bei der sache ;-)
-
Hallo Zusammen
Könnt iht noch eine funktionierendes Codebeispiel angeben.
Vielen Dank!