<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<TITLE>Message</TITLE>
<META content="MSHTML 5.50.4916.2300" name=GENERATOR></HEAD>
<BODY>
<DIV><SPAN class=651143519-30072003><FONT face=Arial color=#0000ff
size=2>Oops! </FONT></SPAN><SPAN class=651143519-30072003><FONT face=Arial
color=#0000ff size=2>Let's try this again:</FONT></SPAN></DIV>
<DIV><SPAN class=651143519-30072003>
<DIV><SPAN class=541000018-30072003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=541000018-30072003><FONT face=Arial color=#0000ff size=2>Public
Sub CreatePictureMail(ByVal strPicPath As String)</FONT></SPAN></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV><SPAN class=541000018-30072003><FONT face=Arial color=#0000ff
size=2> Dim olItem As Outlook.MailItem</FONT></SPAN></DIV>
<DIV><SPAN class=541000018-30072003><SPAN class=651143519-30072003></SPAN><FONT
face=Arial color=#0000ff size=2> <SPAN
class=651143519-30072003> Dim strFileName As
String</SPAN><BR></FONT></SPAN></DIV>
<DIV><SPAN class=541000018-30072003><FONT face=Arial><FONT color=#0000ff><FONT
size=2><SPAN class=651143519-30072003> strFileName =
Mid$(strPicPath, InStrRev(strPicPath,"\") +
1)</SPAN></FONT></FONT></FONT></SPAN></DIV><SPAN class=541000018-30072003><FONT
face=Arial color=#0000ff size=2></FONT></SPAN></SPAN></DIV>
<DIV><SPAN class=651143519-30072003><SPAN class=541000018-30072003><FONT
face=Arial color=#0000ff size=2>
<DIV><BR> Set olItem =
Application.CreateItem(olMailItem)<BR>
olItem.Attachments.Add strPicPath</FONT></SPAN></SPAN><SPAN
class=651143519-30072003><SPAN class=541000018-30072003><FONT face=Arial
color=#0000ff size=2><BR> olItem.HTMLBody =
"<html><img src=" & Chr$(34) & strFileName &
Chr$(34) & "></html>"<BR>
olItem.Display<BR> <BR> Set olItem =
Nothing</FONT></SPAN></DIV></DIV>
<DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV><SPAN class=541000018-30072003><FONT face=Arial color=#0000ff size=2>End
Sub</FONT></SPAN></DIV></SPAN></DIV>
<DIV><SPAN class=651143519-30072003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=651143519-30072003><FONT face=Arial color=#0000ff size=2>The
trick is that if you just supply the filename without a complete path, the mail
client should default to using the attachment directory path. (I have only
tried this in Outlook, so I would be very interested to hear if it works in all
clients). I goofed up and included the entire path in my original
code.</FONT></SPAN></DIV>
<DIV><SPAN class=651143519-30072003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=651143519-30072003><FONT face=Arial color=#0000ff size=2>Also,
you could certainly have a tag like:</FONT></SPAN></DIV>
<DIV><SPAN class=651143519-30072003><FONT face=Arial color=#0000ff
size=2><IMG SRC="www.mydomain.com/images/pic1.jpg"></FONT></SPAN></DIV>
<DIV><SPAN class=651143519-30072003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=651143519-30072003><FONT face=Arial color=#0000ff size=2>This
is probably a little more courteous, as it doesn't clog up the recipient's
mailbox. Also, savvy email marketers (or relentless spammers) have
counters on their web servers to determine how many of the messages
actually get opened by counting the number of times the graphic is
downloaded.</FONT></SPAN></DIV>
<DIV><SPAN class=651143519-30072003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV class=OutlookMessageHeader dir=ltr align=left><FONT face=Tahoma
size=2>-----Original Message-----<BR><B>From:</B> Andy Lacey
[mailto:andy@minstersystems.co.uk]<BR><B>Sent:</B> Wednesday, July 30, 2003
2:31 PM<BR><B>To:</B> 'Access Developers discussion and problem
solving'<BR><B>Subject:</B> RE: [AccessD] HTML Email from Access -
Progress<BR><BR></FONT></DIV>
<DIV><SPAN class=882001719-30072003><FONT face=Arial color=#0000ff
size=2>Actually Brett has mentioned the key part of this. Everyone else may
have realised, but I didn't, that you need to use Outlook's .HTMLBody rather
than .Body. After that a lot of this becomes straightforward-ish. I should be
able to read any html file (created by Frontpage, Dreamweaver or whatever) a
line at a time, buld up a string and set .HTMLBody to that string. At the same
time I can use Arthur's suggestion for merging data in.</FONT></SPAN></DIV>
<DIV><SPAN class=882001719-30072003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=882001719-30072003><FONT face=Arial color=#0000ff size=2>As
for pictures maybe they have to be on the web. I looked at the source of an
html emailshot I got and the pics in there referenced their web-site. And I
think Brett's suggestion below would too. Surely all it's embedding is a link
to a file that has to be available to the recipient. N'est-ce pas? I did the
following. I set strPicPath to a file on my machine, sent the email to myself
and it displayed fine - but if I then renamed the file locally all the email
shows is a placeholder, whether or not the file was also sent as an
attachment. So it does have to be availbale to the recipient. Or am I missing
something Brett?</FONT></SPAN></DIV>
<DIV><SPAN class=882001719-30072003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=882001719-30072003><!-- Converted from text/plain format -->
<P><FONT size=2>Andy Lacey<BR><A
href="http://www.minstersystems.co.uk/">http://www.minstersystems.co.uk</A>
</FONT></P></SPAN></DIV>
<BLOCKQUOTE
style="PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #0000ff 2px solid; MARGIN-RIGHT: 0px">
<DIV></DIV>
<DIV class=OutlookMessageHeader lang=en-us dir=ltr align=left><FONT
face=Tahoma size=2>-----Original Message-----<BR><B>From:</B>
accessd-bounces@databaseadvisors.com
[mailto:accessd-bounces@databaseadvisors.com] <B>On Behalf Of </B>Brett
Barabash<BR><B>Sent:</B> 30 July 2003 19:03<BR><B>To:</B> 'Access Developers
discussion and problem solving'<BR><B>Subject:</B> RE: [AccessD] HTML Email
from Access<BR><BR></FONT></DIV>
<DIV><SPAN class=541000018-30072003><FONT face=Arial color=#0000ff
size=2>Arthur,</FONT></SPAN></DIV>
<DIV><SPAN class=541000018-30072003><FONT face=Arial color=#0000ff
size=2>Here is a quick 'n' dirty method that I use to create an email
message with a picture within Outlook:</FONT></SPAN></DIV>
<DIV><SPAN class=541000018-30072003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=541000018-30072003><FONT face=Arial color=#0000ff
size=2>Public Sub CreatePictureMail(ByVal strPicPath As
String)</FONT></SPAN></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV><SPAN class=541000018-30072003><FONT face=Arial color=#0000ff
size=2> Dim olItem As
Outlook.MailItem<BR> <BR> Set olItem =
Application.CreateItem(olMailItem)<BR>
olItem.Attachments.Add strPicPath<BR> olItem.HTMLBody
= "<html><img src=" & Chr$(34) & strPicPath &
Chr$(34) & "></html>"<BR>
olItem.Display<BR> <BR> Set olItem =
Nothing</FONT></SPAN></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV><SPAN class=541000018-30072003><FONT face=Arial color=#0000ff
size=2>End Sub</FONT></SPAN></DIV>
<DIV><SPAN class=541000018-30072003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=541000018-30072003><FONT face=Arial color=#0000ff
size=2>I'm sure that it wouldn't be a big deal to do this without using
look-out.</FONT></SPAN></DIV>
<DIV><SPAN class=541000018-30072003><FONT face=Arial color=#0000ff
size=2> </DIV>
<DIV><BR></DIV></FONT></SPAN>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV class=OutlookMessageHeader dir=ltr align=left><FONT face=Tahoma
size=2>-----Original Message-----<BR><B>From:</B> Arthur Fuller
[mailto:artful@rogers.com]<BR><B>Sent:</B> Wednesday, July 30, 2003 12:52
PM<BR><B>To:</B> 'Access Developers discussion and problem
solving'<BR><B>Subject:</B> RE: [AccessD] HTML Email from
Access<BR><BR></FONT></DIV>
<DIV><SPAN class=106494717-30072003><FONT face=Arial color=#0000ff
size=2>Since I could never figure out how to do it myself, I settled for
printing docs etc. to Acrobat files and attaching those to simple text
emails.But I am following up the Chilkat URL posted earlier in this
thread. My client may be interested in gertting that software. It sure
looks like a no-brainer to use.</FONT></SPAN></DIV>
<DIV><SPAN class=106494717-30072003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=106494717-30072003><FONT face=Arial color=#0000ff
size=2>Arthur</FONT></SPAN></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV><FONT face=Tahoma size=2>-----Original Message-----<BR><B>From:</B>
accessd-bounces@databaseadvisors.com
[mailto:accessd-bounces@databaseadvisors.com] <B>On Behalf Of </B>Andy
Lacey<BR><B>Sent:</B> July 30, 2003 11:08 AM<BR><B>To:</B> 'Access
Developers discussion and problem solving'<BR><B>Subject:</B> RE:
[AccessD] HTML Email from Access<BR><BR></FONT></DIV>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">Thanks for the idea
Arthur.<BR><BR>I had my money on you for the answer to the HTML bit too.
Don't you do that sort of emailing for concerts? I'm disappointed in you
Arthur :-(<BR><BR>--<BR>Andy
Lacey<BR>http://www.minstersystems.co.uk<BR>
<BLOCKQUOTE dir=ltr
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial"><FONT
color=#0000ff></FONT> </DIV></BLOCKQUOTE></BLOCKQUOTE></BLOCKQUOTE><BR><BR>--------------------------------------------------------------------------------------------------------------------<BR>This
email and any files transmitted with it are confidential and<BR>intended
solely for the use of the individual or entity to whom<BR>they are
addressed.<BR>If you have received this email in error please notify
the<BR>originator of the message. This footer also confirms that
this<BR>email message has been scanned for the presence of computer
viruses.<BR><BR>Any views expressed in this message are those of the
individual<BR>sender, except where the sender specifies and with
authority,<BR>states them to be the views of Tappe Construction
Co.<BR><BR>Scanning of this message and addition of this footer is
performed<BR>by SurfControl E-mail Filter software in conjunction with
<BR>virus detection software.<BR></BLOCKQUOTE></BLOCKQUOTE><br><br>--------------------------------------------------------------------------------------------------------------------<br>This email and any files transmitted with it are confidential and<br>intended solely for the use of the individual or entity to whom<br>they are addressed.<br>If you have received this email in error please notify the<br>originator of the message. This footer also confirms that this<br>email message has been scanned for the presence of computer viruses.<br><br>Any views expressed in this message are those of the individual<br>sender, except where the sender specifies and with authority,<br>states them to be the views of Tappe Construction Co.<br><br>Scanning of this message and addition of this footer is performed<br>by SurfControl E-mail Filter software in conjunction with <br>virus detection software.<br></BODY></HTML>