Embed image into Lotus Notes with VBA - not using Notes.NotesUIWorkspace

I have looked at many posts on this and cant find exactly what I need to do.

I want to include an image within the body of the email (not an attachment).

I have VBA code that generally populates the details, eg. email address, names, etc. from cells within Excel, but to make this simple, I have added as strings myself.

I am able to add an image using HTML/MIME method in a subroutine, but when I include it with a sub that creates text for the body of the email, I get an error.
If I remove the ("test") from Set htmlbody = doc.CreateMIMEEntity ("test"), it will run without error, but the image is not embedded, just the text.

This may not be the best way, but it's the closest I have got without using the Notes.NotesUIWorkspace method.

Any help with this would be great, if it is possible. Or a better way.

Here is the code. NOTE: It only saves as a draft rather than sending.
Thanks:

Please Login or Register  to view this content.