Inserting .GIF into email from spreadsheet

[EatBiscuits]

Hello All,

Still getting to grips with VBA so your help is needed! I need direction on how to insert an image to the body of an email I am generating using VBA - the email code is fine and works perfectly however i am now looking to add a header image within the body of the email to make it look more professional and don't really know where to start? I have looked at other threads but they seem to focus on adding charts etc when all i need is to add the image from a sheet within the workbook to the email above the body of the text?

My code is below is a small element of the email portion (as i said this works fine - i just don't know how to add the image to within the body?) your help would be greatly apprecaited! I am using MSO 2010 for both OUTLOOK & EXCEL

' ----------------------------

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With Destwb
.SaveAs TempFilePath & TempFileName & FileExtStr, _
FileFormat:=FileFormatNum
On Error Resume Next
With OutMail
.To = Sheet1.Range("F_EMAIL1").Value & " ; " & Sheet1.Range("F_EMAIL2").Value & " ; " & Sheet1.Range("F_EMAIL3").Value & " ; " & Sheet1.Range("F_EMAIL4").Value & " ; " & Sheet1.Range("F_EMAIL5").Value
.cc = Sheet1.Range("F_CCMAIL1").Value & " ; " & Sheet1.Range("F_CCMAIL2").Value & " ; " & Sheet1.Range("F_CCMAIL3").Value & " ; " & Sheet1.Range("F_CCMAIL4").Value & " ; " & Sheet1.Range("F_CCMAIL5").Value
.BCC = ""
.Subject = Sheet1.Range("F_EMAILSUBJECT").Value & Sheet1.Range("F_CUSTNAME").Value & " - " & Sheet1.Range("F_MODE").Value & " - " & Sheet9.Range("AD_EMAILSUBJECT").Value
.body = vbNewLine & vbNewLine & EmailContent.TextBox1.Value
.attachments.Add Destwb.FullName
.Display
End With

' ----------------------------

[Tinbendr]

I think this answers your question. (Search is your friend.)

You will still have to export the picture, treating it like a chart object.