How to Paste Bitmap in Email using VBA

[alexngwl]

Set olApp = New Outlook.Application
Dim olNs As Outlook.Namespace
Set olNs = olApp.GetNamespace("MAPI")
olNs.Logon
Set olMail = olApp.CreateItem(olMailItem)
olMail.SentOnBehalfOfName = strEmailSentOnBehalfOfName
olMail.To = strEmailTo
olMail.CC = strEmailCC
olMail.BCC = strEmailBCC

olMail.Subject = Left(xFile, 33)
olMail.Body = "Hi All"

olMail.Attachments.Add xPath
olMail.Display

Application.StatusBar = False
Application.ScreenUpdating = True
Application.DisplayAlerts = True
I've been working this for days and still could not find an answer for this. Instead of displaying text on email body, i wish that i could copy from sheet1 range A1:N40 and paste into email body as bitmap. Appreciate your help here. Thanks!

 

[daverunt]

Hi Have a look here:

http://www.vbforums.com/showthread.php?t=278600

 

[alexngwl]

Thanks for the link. However, i am looking ways to embed the graphic from range of the worksheet itself rather than using attachment. Any idea?

Hi Have a look here:

http://www.vbforums.com/showthread.php?t=278600