Embed a .jpg picture in an email with VBA - truble passing from Outlook 2000 to 2003.

Posted on 2008-06-25
Last Modified: 2013-11-27
Hi I have developed a simple function that work perfectly with Access-Outlook 2000, but not with Access 2000-Outlook 2003.
It does everything but does not embed the image I would insert in preview with the line:
oHTML = "<HTML><Head></Head><Body><img SRC='" & oLettera & "' width=800 height=1130></Body></HTML>"
I have tried to insert CID parameters and other stuff, but with no result. Can you help, please?
Public Function InviaOutlookMailCampagne(oDestinatario As String, oOggetto As String, oLettera As String, oAllegato As String)

    Dim olkApp As Object, olkMsg As Object

    Dim oFile As String

    Dim oHTML As String

    Set olkApp = GetObject(, "Outlook.Application")


    Set olkMsg = olkApp.CreateItemFromTemplate("L:\9.1.Campagne\Lettere\Modello emailing.oft")


    oHTML = "<HTML><Head></Head><Body><img SRC='" & oLettera & "' width=800 height=1130></Body></HTML>"


    With olkMsg

            .To = oDestinatario

            .Subject = oOggetto

            .HTMLBody = oHTML

            '.body = oMessaggio

            '.Attachments.Add oLettera

            .Attachments.Add oAllegato


    End With


    Set olkMsg = Nothing

    Set olkApp = Nothing


End Function

Open in new window

Question by:Sar1973
  • 3
LVL 74

Expert Comment

by:Jeffrey Coachman
Comment Utility

Try this code.
It is straight from the MS website.

It works fine for me.

Please verify that it works "As Is".
Then try to adapt it to work in your Application.

You must set a reference to the Outlook Object Library in your VBA Editor.


Sub sbSendMessage()

Dim objOutlook                  As Outlook.Application

Dim objOutlookMsg               As Outlook.MailItem

Dim objOutlookRecip             As Outlook.Recipient

Dim objOutlookAttach            As Outlook.Attachment

' Create the Outlook session.

Set objOutlook = CreateObject("Outlook.Application")

' Create the message.

Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

    With objOutlookMsg

        ' Add the To recipient(s) to the message. Substitute

        ' your names here.

        Set objOutlookRecip = .Recipients.Add("Recipient Name")   '<--Recipient's name or email address

        objOutlookRecip.Type = olTo

        ' Add the CC recipient(s) to the message.

        'Set objOutlookRecip = .Recipients.Add("CC Recipient Name")

        'objOutlookRecip.Type = olCC

        ' Set the Subject, Body, and Importance of the message.

        .Subject = "This is an Automation test with Microsoft Outlook"      '<--Subject

        '.Body = "This is normal Text in the Body of the email"              '<--Email Body text.

        'Use this to send the Email using the HTML Format

        '.HTMLBODY = "<HTML><H2><b>This is HTML Text in the BODY of the email</b></H2></HTML>"

        .HTMLBODY = "<HTML><Head></Head><Body><img SRC=c:\earth.jpg></Body></HTML>"

        .Importance = olImportanceHigh  'High importance

        'Add attachments to the message.

        'Set objOutlookAttach = .Attachments.Add("C:\Earth.jpg")             '<-- Add as many attachments as you need here.

        'Set objOutlookAttach = .Attachments.Add("C:\TextFile.txt")


        ' Resolve each Recipient's name.

        For Each objOutlookRecip In .Recipients

            If Not objOutlookRecip.Resolve Then


            End If



        'Send email without viewing it.



        'Dispay email before sending.



    End With

'Cleanup Code

Set objOutlookMsg = Nothing

Set objOutlook = Nothing

Set objOutlookRecip = Nothing

Set objOutlookAttach = Nothing

End Sub

Open in new window

LVL 74

Expert Comment

by:Jeffrey Coachman
Comment Utility
Of course change the HTLM and add your own image and path.

Author Comment

Comment Utility
Definitely, the syntax is <img SRC=C:\File.jpg> and not <img SRC='C:\File.jpg'> ...?
LVL 74

Accepted Solution

Jeffrey Coachman earned 75 total points
Comment Utility

<img SRC=C:\File.jpg>
... worked fine for me.

As I said, test it out to be sure.


Featured Post

Complete VMware vSphere® ESX(i) & Hyper-V Backup

Capture your entire system, including the host, with patented disk imaging integrated with VMware VADP / Microsoft VSS and RCT. RTOs is as low as 15 seconds with Acronis Active Restore™. You can enjoy unlimited P2V/V2V migrations from any source (even from a different hypervisor)

Join & Write a Comment

Today's users almost expect this to happen in all search boxes. After all, if their favourite search engine juggles with tens of thousand keywords while they type, and suggests matching phrases on the fly, why shouldn't they expect the same from you…
Introduction When developing Access applications, often we need to know whether an object exists.  This article presents a quick and reliable routine to determine if an object exists without that object being opened. If you wanted to inspect/ite…
Familiarize people with the process of utilizing SQL Server functions from within Microsoft Access. Microsoft Access is a very powerful client/server development tool. One of the SQL Server objects that you can interact with from within Microsoft Ac…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

771 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now