insert IMAGE/ICON IN BODY EMAIL

User avatar
sal21
PlatinumLounger
Posts: 4334
Joined: 26 Apr 2010, 17:36

insert IMAGE/ICON IN BODY EMAIL

Post by sal21 »

How to insert image in body email?

Note:
the image are stored in c:\mydir\test.png
You do not have the required permissions to view the files attached to this post.

User avatar
HansV
Administrator
Posts: 78235
Joined: 16 Jan 2010, 00:14
Status: Microsoft MVP
Location: Wageningen, The Netherlands

Re: insert IMAGE/ICON IN BODY EMAIL

Post by HansV »

Here is an example:

Code: Select all

Sub EmailWithImage()
    Dim objOL As Object
    Dim objMsg As Object
    Dim objIns As Object
    Dim objDoc As Object
    Dim objRng As Object
    Set objOL = CreateObject(Class:="Outlook.Application")
    Set objMsg = objOL.CreateItem(0) ' olMailItem
    Set objIns = objMsg.GetInspector
    Set objDoc = objIns.WordEditor
    objDoc.Content.InsertAfter "Blah blah blah"
    objDoc.Content.InsertParagraphAfter
    Set objRng = objDoc.Content
    objRng.Collapse Direction:=0 ' wdCollapseEnd
    objDoc.InlineShapes.AddPicture Filename:="c:\mydir\test.png", Range:=objRng
    objDoc.Content.InsertParagraphAfter
    objDoc.Content.InsertAfter "Blah blah blah"
    objMsg.Display
End Sub
Best wishes,
Hans