VBA: Embedding a Picture in an Outlook Email

[Domenic]

Is it at all possible to embed a picture in an email? I've tried...

.HtmlBody = " < img src=""C:/Users/Domenic/Desktop/Sample.png"" > "

However, while the picture gets inserted in the email, it's not actually embedded. As a result, when the recipient receives the email, the image is not displayed.

 

[lopezio]

HI
Why the outlook doesn't send my email automatically? I have to open the outlook and I see the mail in outbox but I don't want to have to open outlook. Here is my code:

'Add reference to MS Outlook x.x Object Library
'Picture to be added as an attachment and modified src location for each embedded picture.


Dim oApp As Outlook.Application
Dim oEmail As MailItem
Dim colAttach As Outlook.Attachments
Dim oAttach As Outlook.Attachment
'create new Outlook MailItem
Set oApp = CreateObject("Outlook.Application")
Set oEmail = oApp.CreateItem(olMailItem)
'add graphic as attachment to Outlook message
'change path to graphic as needed
Set colAttach = oEmail.Attachments
Set oAttach = colAttach.Add("C:\Users\Mario\Desktop\untitled.jpg")
oAttach = oAttach + colAttach.Add("C:\Users\Mario\Desktop\untitled.jpg")
oEmail.Close olSave
'change the src property to 'cid:your picture filename'
'it will be changed to the correct cid when its sent.
oEmail.HTMLBody = "" & _
" "
oEmail.Save
oEmail.Display 'fill in the To, Subject, and Send. Or program it in.
oEmail.To = "myemail@myemail.com"
oEmail.Subject = "Teste ao envio de email"
oEmail.Send
Set oEmail = Nothing
Set colAttach = Nothing
Set oAttach = Nothing
Set oApp = Nothing

 

[nicorduz]

Norie,

Thanks for all the help you have provided. I am having a similar issue with images not displaying in an e-mail merge macro I have pieced together from multiple posts on this forum. I have 2 images referenced in the HTML file I create using Word that do not show up when the email is sent.

Thanks in advance for any suggestions.

Here's my code:

Sub Send_Files()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim sh As Worksheet
    Dim cell As Range, FileCell As Range, rng As Range
    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With
    Set sh = Sheets("Sheet1")
    Set OutApp = CreateObject("Outlook.Application")
    For Each cell In sh.Columns("B").Cells.SpecialCells(xlCellTypeConstants)
        'Enter the complete address for each attachment in the C:Z column in each row
        Set rng = sh.Cells(cell.Row, 1).Range("F1:Z1")
        If cell.Value Like "?*@?*.?*" And _
           Application.WorksheetFunction.CountA(rng) > 0 Then
            Set OutMail = OutApp.CreateItem(0)
 
            'Need to include Your_Name_Here in the body of the text to personalize
 
            strbody = GetBoiler(cell.Offset(0, 3))
            strbody = Replace(strbody, "Your_Name_Here", cell.Offset(0, -1).Value, Compare:=vbTextCompare)
 
 
            With OutMail
                .To = cell.Value
                .CC = cell.Offset(0, 1)
                .Subject = cell.Offset(0, 2)
                .HTMLBody = strbody
                
 
                For Each FileCell In rng.SpecialCells(xlCellTypeConstants)
                    If Trim(FileCell) <> "" Then
                        If Dir(FileCell.Value) <> "" Then
                            .Attachments.Add FileCell.Value
                        End If
                    End If
                Next FileCell
 
                .Send  'Or use Display
            End With
            Set OutMail = Nothing
        End If
    Next cell
    Set OutApp = Nothing
    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With
End Sub
Function GetBoiler(ByVal sFile As String) As String
    Dim fso As Object
    Dim ts As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
    GetBoiler = ts.readall
    ts.Close
End Function

Domenic

This is code from 2004 but it works for me with Outlook 2010 sending the message.

However when I receive the message in Outlook the image is on a different 'page', but when I receive it at my Google Mail account it's fine.

That could be down to some setting I've got in Outlook, or just a problem I'm having - it wouldn't be the first trouble I've had with images in email.

Actually just read something that says the problem is Outlook 2010, something to do with inline CSS not being supported any more.

I knew about that but not that it would cause this sort of problem.

Anyway, enough wittering here's the code:

Option Explicit

'Add reference to MS Outlook x.x Object Library
'Picture to be added as an attachment and modified src location for each embedded picture.
Private Sub Command1_Click()
Dim oApp As Outlook.Application
Dim oEmail As MailItem
Dim colAttach As Outlook.Attachments
Dim oAttach As Outlook.Attachment
    'create new Outlook MailItem
    Set oApp = CreateObject("Outlook.Application")
    Set oEmail = oApp.CreateItem(olMailItem)
    'add graphic as attachment to Outlook message
    'change path to graphic as needed
    Set colAttach = oEmail.Attachments
    Set oAttach = colAttach.Add("C:\Users\Norie\Pictures\FlyingPuffin.jpg")
    oEmail.Close olSave
    'change the src property to 'cid:your picture filename'
    'it will be changed to the correct cid when its sent.
    oEmail.HTMLBody = "" & _
                      "
		
		
	


	

		
	
 "
    oEmail.Save
    oEmail.Display    'fill in the To, Subject, and Send. Or program it in.
    Set oEmail = Nothing
    Set colAttach = Nothing
    Set oAttach = Nothing
    Set oApp = Nothing
End Sub