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

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.

danke an alle !

war mal wieder nicht bei der sache ;-)