Embed attachments using Lotus Script

[sorcerer11]

I wrote this script to open an attachment, but for some reason I can't get it to run, it complains set oe bit, that object variant net set, any ideas??

Dim uiw As New notesuiworkspace
Dim filesselected As Variant
filesselected = uiw.openfiledialog(False, "Select files to open.", "","C:\&quot

If (filesselected(0) = "&quot Then
Print "You selected no files to open."
End If

Dim session As New notessession
Dim db As notesdatabase
Dim doc As notesdocument
Dim rtf As notesrichtextitem
Dim oe As notesembeddedobject
Set db = session.currentdatabase
Set doc = db.createdocument
doc.form = "Invoice/Credit"
doc.title "Temp"
Set rtf = New notesrichtextitem (doc,"attach&quot
Set oe = rft.Embedobject(EMBED_ATTACHMENT,"",filesselected(0),"temp&quot
Call doc.save(True, False)

 

[pmonett]

Simple problem, my friend.
You have defined RTF as a rich text field object, but you use RFT to embed the attachment (on the oe line).
Notes does not know what RFT is, so it complains.

It happens to everybody ;-)

 

[sorcerer11]

oh dear, my mind must have been fried

thanks for that