Lotus Script - EmbedObject/Attachment

[Daniel Schmidt]

Hi everybody!

I am now trying to attach an attachment to the current open document.

Everything works fine and the attachment is in the document, but I can't
see
the attachment imediatly, only when I save the document, the attachment
will appear.

Is it possible to refresh the document or anything like that without
saving (as draft), so that I can see the attachment after embeding to
the document?

Here is the embed script - what to do after this?

Dim rtitem As New NotesRichTextItem ( doc, "Body" )

Call rtitem.EmbedObject (EMBED_ATTACHMENT,""
,"c:\test.wav","test.wav")

Thanks in advance,
Daniel

(reply to this message or
mailto:\\Daniel....@topcall.co.at.REMOVETHIS)

[EdC]

Daniel Schmidt wrote:

Daniel,

Dim doc as NotesDocument
Set doc = uidoc.Document
Call uidoc.Close
Set uidoc = uiworkspace.EditDocument(True, doc)

The screen will blink, but the attachment will show up.

--
EdC CLP-R5
e...@coakley.net
Contract Notes & Domino Application Development
http://www.coakley.net/edc/consulting
Check out Notes links at:
http://edcnotes1.coakley.net/web/links.nsf

[Daniel Schmidt]

Hi!
EdC wrote:

>
> Daniel,
>
> Dim doc as NotesDocument
> Set doc = uidoc.Document
> Call uidoc.Close
> Set uidoc = uiworkspace.EditDocument(True, doc)
>
> The screen will blink, but the attachment will show up.

This is not a full solution, which I was searching for... but it works better
than before!
But if I am using these code-lines, there will appear this messagebox:
Send/SendSave/Save/Discard for the old message, which I don't need anymore.
How can I hide this message box? I don't want to save the document
automatically and delete them afterwards....?!?!

Thanks again,
Daniel

[EdC]

Daniel Schmidt wrote:

> This is not a full solution, which I was searching for... but it works better
> than before!
> But if I am using these code-lines, there will appear this messagebox:
> Send/SendSave/Save/Discard for the old message, which I don't need anymore.
> How can I hide this message box? I don't want to save the document
> automatically and delete them afterwards....?!?!
>
> Thanks again,
> Daniel

Daniel,

You can set a field called "SaveOptions" to "1" (that's a text value of the
number 1). That should bypass the save confirmation dialog.

[Daniel Schmidt]

Hi!

Thank you for your answer. I got the same tip today .... only in the other way ("0"
should hide the box).

EdC wrote:

>
> Daniel,
>
> You can set a field called "SaveOptions" to "1" (that's a text value of the
> number 1). That should bypass the save confirmation dialog.
>
>

Yes, I also thought, that this had to work, but .... it doesn't seem to work.

And here is the code:

Call rtitem.EmbedObject (EMBED_ATTACHMENT,"" , "c:\temp\file.dat","file.dat")
doc.Save 0,0
doc.saveoptions="0" 'I also tried it here with "1" (I also moved this line
before the doc.save line!)
uidoc.close
Call workspace.editdocument(True,doc,False)
doc.saveoptions="1" 'and here with "0"

And everytime, when I write something into the Body-field, the messagebox
(Send/send&save/send/discard) will appear - WHY??

Regards,
Daniel

[EdC]

Daniel Schmidt wrote:

> Hi!
>
> Thank you for your answer. I got the same tip today .... only in the other way ("0"
> should hide the box).

Daniel,

Yes, either value will bypass the dialog. "0" will prevent the save and "1" will force
it.