sending Email (via outlook) from Excel with cell range and image from external file

**Chippy** · 04-19-2012, 08:59 AM

Your initial reply, now edited, asked how to put the image at the top of the email rather than the bottom. Maybe you've worked it out, but for the benefit of others here's how.

Replace:

    'Find HTML body closing tag and insert embedded image reference before it
    
    p = InStr(HTML, "</body>")
    HTML = Left(HTML, p - 1) & "<p>The embedded image is shown below.</p><img src='cid:" & imageFileName & "'>" & Mid(HTML, p)

with:

    'Find HTML body opening tag and insert embedded image reference after it
    
    p = InStr(HTML, "<body>") + Len("<body>")
    HTML = Left(HTML, p) & "<p>The embedded image is shown below.</p><img src='cid:" & imageFileName & "'>" & Mid(HTML, p)

**Kramxel** · 04-20-2012, 11:10 AM

Hi Chippy,

Yes I did manage to work it out realised like most things the solution was far easier than I was expecting so quickly removed it (well not as quickly as I had hoped).

once again thank you so much.

althogh I didn't add the + Len("<body>") O just took the / away... i'll add that now and see what the difference is.

sending Email (via outlook) from Excel with cell range and image from external file

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Re: sending Email (via outlook) from Excel with cell range and image from external file

Re: sending Email (via outlook) from Excel with cell range and image from external file

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions