Applescript: enclosing a picture in Mail so it is in the body of the text

Question

have a script on my server that sends mails using The Mail (Apple) Programme.
It encloses a picture situated on the desktop (the script is larger, where it generates the picture and trashes it afterwards).
Now the picture arrives as an enclosure and I would like it to appear at the end of the text (in other words in the body of the text not as an enclosure).  How do I amend the script I have?  I have no idea as to how to do this or where to begin.  any suggestions are welcome.
Thanks.
The script is the following at present:
set dFolder to "/Users/XYZ/Desktop/"
tell application "Finder" to try
   set tFiles to ((every file whose name contains "NameofPNG")) as alias list
on error
   set tFiles to ((every file whose name contains "NameofPNG")) as alias as list
end try
set docfolderpath to path to desktop folder as string
set yourfolder to "~/Desktop/" --------- the folder with the documents
set pathtoyourfolder to docfolderpath & yourfolder & ":" as string
set FNDVAR to "NameofPNG" --------"FIND" variable for the files
set ppath to quoted form of POSIX path of pathtoyourfolder
set theSender to "[email protected]"
set thercpnt to "[email protected]"
set theFiles to (do shell script "mdfind -onlyin " & "~/Desktop/" & " 'kMDItemDisplayName == \"*" & FNDVAR & "*\"'") ------seems to be faster than finder
set theattachmentspaths to {} ------preparing list for attachment paths
repeat with x from 1 to the count of paragraphs in theFiles
   set theF to alias POSIX file (paragraph x of theFiles)
   set end of theattachmentspaths to theF
end repeat
tell application "Finder"
   set theSubject to short date string of (current date) & (" XYZ")
   set theBody to "XYZ"
   tell application "Mail"
       delay 2
       set newMessage to make new outgoing message with properties {address:thercpnt, subject:theSubject, content:theBody & return & return}
       tell newMessage
           set visible to true
           set sender to theSender
           make new to recipient at beginning of to recipients with properties {address:thercpnt}
           repeat with y from 1 to count of items in theattachmentspaths
               delay 2
               set theAttachment to item y in theattachmentspaths
               tell content
                   make new attachment with properties {file name:theAttachment} at after the last paragraph
               end tell
               delay 2
           end repeat
       end tell
       delay 2
       send newMessage
   end tell
   activate
end tell

Answer 1

Looks complicated.  I looked at the source to an email with imbeded pictures.
The email contains multiple mime types.
Apple mail automatically imbeds the picture.
I your using someother email client, you need to create an html document with the pictures references.
example:
relatives and staff.<br></span></b><span style=3D"font-size:9pt;font-fa=
mily:&#39;Tahoma&#39;,&#39;sans-serif&#39;"><img src=3D"cid:X.MA5.139511246=
[email protected]" border=3D"0" width=3D"469" height=3D"334"><br><b><i>Mary Poppins=
<br></i>Erna Schenk, 78<br>
</b><img src=3D"cid:[email protected]" border=3D"0" width=3D"469" he=
ight=3D"334"><br><b><i>The Seven Year Itch<br></i>Ingeborg Giolbass, 84,=20
    und Erich Endlein, 88<br></b></span><b><span style=3D"font-size:24pt;fo=
nt-family:&#39;Tahoma&#39;,&#39;sans-serif&#39;">7.=20
No, I do not know what this 3D is all about.
follow: [email protected]
ignore the fact that this is made into an email link.
which references another mime:
Content-Type: image/jpeg; name="image.jpg"
Content-Disposition: inline; filename="image.jpg"
Content-Transfer-Encoding: base64
Content-ID: <[email protected]>
X-Attachment-Id: 160fdc512a07d156_0.0.6
/9j/4AAQSkZJRgABAQAAAQABAAD/4gxYSUNDX1BST0ZJTEUAAQEAAAxITGlubwIQAABtbnRyUkdC
IFhZWiAHzgACAAkABgAxAABhY3NwTVNGVAAAAABJRUMgc1JHQgAAAAAAAAAAAAAAAAAA9tYAAQAA
AADTLUhQICAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABFj