RichText

[solvei]

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

[Rob Green]

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

[Eike]

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.

[Till_21]

'...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

[solvei]

danke an alle !

war mal wieder nicht bei der sache ;-)

[immanuel]

Hallo Zusammen

Könnt iht noch eine funktionierendes Codebeispiel angeben.

Vielen Dank!