How to insert image in body email?
Note:
the image are stored in c:\mydir\test.png
insert IMAGE/ICON IN BODY EMAIL
-
- PlatinumLounger
- Posts: 4334
- Joined: 26 Apr 2010, 17:36
insert IMAGE/ICON IN BODY EMAIL
You do not have the required permissions to view the files attached to this post.
-
- Administrator
- Posts: 78235
- Joined: 16 Jan 2010, 00:14
- Status: Microsoft MVP
- Location: Wageningen, The Netherlands
Re: insert IMAGE/ICON IN BODY EMAIL
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
Hans