send email with graphics

S

SAC

I know how to send emails from access, but I now I'd like to be able to send
a newsletter with graphics as the body of the email and not as an
attachment.

Is this possible? If so, how?

Thanks.
 
D

David Lloyd

One alternative is to use Outlook automation to create an email in HTML
format and embed the HTML image tags in the HTML body text. Below is a KB
article reference as well as a simple example. You will need a reference to
the Outlook Object Library, of course.

http://support.microsoft.com/default.aspx?scid=kb;en-us;209948

Public Function CreateEmail()

Dim ol As New Outlook.Application
Dim itm As Outlook.MailItem

Set itm = ol.CreateItem(olMailItem)

itm.To = "[email protected]"
itm.Subject = "Test Email"
itm.BodyFormat = olFormatHTML
itm.HTMLBody = "<HTML><Body><Font size='22' color='#AA0033' Face='Freestyle
Script'><b><i>This is test.</i></b></Font><br><img id='imgLogo'
src='c:\images\myimage.jpg' alt='' ></Body></HTML>"
itm.Save

End Function

--
David Lloyd
MCSD .NET
http://LemingtonConsulting.com

This response is supplied "as is" without any representations or warranties.


I know how to send emails from access, but I now I'd like to be able to send
a newsletter with graphics as the body of the email and not as an
attachment.

Is this possible? If so, how?

Thanks.
 
Top