Try

= sItem.Display()

>I am attempting to create and send an HTML email with embedded images. I am using Redemption to get around the security messages.
>
>The problem is, if I have embedded images in the HTML source, and I display the email before sending it, I can interactively change anything about the body of the email, and the images will be properly embedded in the email. If I DON'T make any changes, then the IMG SRC reference is still as it was in the original HTML source.
>
>Is there any way to force programmatically the email item to refresh and regenerate CID's and embed the images into the email.
>
>***
>I received this code suggestion from Redemption, but I am getting an error on the last command. "OLE error code: 0x80002000f: Parameter not optional."
>
>*****
>lc_curdir = FULLPATH(CURDIR())
>*- Create an instance of Outlook
>oOutLook = CreateObject("Outlook.Application")
>
>*-Create an Outlook Mail Item
>oItem = oOutLook.CreateItem(0)
>
>*- Create a Redemption Safe Mail Item
>sItem = CreateObject("Redemption.SafeMailItem")
>
>CD "&lc_curdir "
>
>*- Wrap Safemailitem around Outlook Mail Item
>sItem.Item = oItem
>
>*- Add some HTML to body of email
>*- This HTML contains IMG SRC tags, linked to pictures on the hard drive, which need to be embedded in the email.
>
>sItem.HTMLBody = FILETOSTR("v:\data\bookings\new\output\prospect_availability.htm")
>
>*** Normally at this point, I would issue a sItem.Display, but unless I interactively change the body of the email, the recipient will not receive an embedded image, but will instead have a broken link (to the image on our local hard drive)
>*** If we change anything interactively, the email refreshes, and pictures are embedded.
>*** I need to be able to do this programmatically though, in an instance where I only SEND, (not display) or an instance where the user makes no change to the body of the email.
>*** Redemption suggests the following fix, which errors out on the last line (display method)
>
>*- Create a new Outlook Mail Item
>NewItem = oOutLook.CreateItem(0)
>
>*- Save a copy of the original email to the New Outlook Mail Item
>sItem.CopyTo(NewItem)
>
>*'must save to have EntryID
>NewItem.Save
>EID = NewItem.EntryID
>
>*'de-reference the old item, then open it again
>*'otherwise Outlook might still have tidbits
>*'left from the original message
>RELEASE NewItem
>RELEASE sItem
>RELEASE oItem
>
>PUBLIC NewItem, sItem, oItem
>*!* Original code suggested, modified per suggestion of Redemption author, below.
>*!* *- Retrieve Saved Mail item using Entry ID
>*!* NewItem = oOutLook.Session.GetItemFromID(EID)
>*!* *- Display the new item
>*!* NewItem.Display
>*!* Steve,
>*!* Try something like the following
>*!* …
>
>NewItem = oOutLook.Session.GetItemFromID(EID)
>sItem = CreateObject("Redemption.SafeMailItem")
>sItem.Item = NewItem
>sItem.Display()
>
>&& at this point we have received the error: "OLE error code: 0x80002000f: Parameter not optional."
>
>