Datei anhängen per Script geht nicht

[machineslave]

Hallo,

folgendes Problem: Ich erstelle aus einer Anwendung heraus eine HTML-Datei, welche ich per Mail versenden möchte.
Die Datei wird richtig erstellt und auch geschlossen. Allerdings wird diese partout nicht über NotesRichTextItem.EmbedObject an die Mail gehängt.
Das Body-Feld wird aber erstellt, ein NotesRichTextItem.AppendText("Hallo") funktioniert auch auf dem Feld.
Hat irgendjemand eine Idee?
Hier der Code:

Set newDoc = db.CreateDocument
newDoc.SendTo = "irgendeiner@irgendwo.de"
newDoc.Form = "Memo"
newDoc.Subject = "Bestellung Nummer: 4711"
      
pathName$ = "c:\temp"
tmpfileName$ = Dir$(pathName$, 16)
If tmpFileName$ = "" Then
   Mkdir ("c:\temp")
End If
Dim fileNum As Integer
fileNum% = Freefile()
fileName = "c:\temp\bestellung4711.html"
      
Open fileName For Output As fileNum%

Set rtItem = New NotesRichTextItem(newDoc, "Body")

....
'    Hier wird die Datei gefüllt
....

Close fileNum%
Dim object As NotesEmbeddedObject
Set object = rtitem.EmbedObject (1454, "", filename)

Call newDoc.Save(True, False)
Call newDoc.Send(False)


Danke

Stefan

[mibo11]

Ich tippe einmal eher auf ein Timingproblem, denn das Script zum einhängen der Datei sollte funktionieren. Du könntest alternativ ja einmal versuchen eine Datei anzuhängen, die schon länger vorhanden ist.

Was mir allerdings gerade auffällt ist, dass du das Richtextitem innerhalb deines Open Statements benutzt, das gehört da doch nicht hin. Setze dies doch nach dem Close und versuche es dann nochmals.

Gruß Sascha

[machineslave]

Danke Sascha,

habe den Code abgeändert:

Open fileName$ For Output As fileNum%

' Tu dies und das

Close fileNum%
      
Set rtitem = New NotesRichTextItem( newDoc, "Body" )
Set object = rtitem.EmbedObject ( EMBED_ATTACHMENT, "", filename$)

Jetzt funzt es.

Gruß

Stefan

[mibo11]

Gerne