<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=us-ascii">
<TITLE>Message</TITLE>
<META content="MSHTML 6.00.2800.1170" name=GENERATOR></HEAD>
<BODY>
<DIV><SPAN class=094210921-30072003><FONT face=Arial color=#0000ff size=2>Hi
Steve</FONT></SPAN></DIV>
<DIV><SPAN class=094210921-30072003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=094210921-30072003><FONT face=Arial color=#0000ff size=2>This
does it</FONT></SPAN></DIV>
<DIV><SPAN class=094210921-30072003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=094210921-30072003><FONT face=Arial color=#0000ff
size=2>Function ReadHTML() As String<BR>Dim strResult As String<BR>Dim strFile
As String<BR>Dim strLine As String</FONT></SPAN></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV><SPAN class=094210921-30072003><FONT face=Arial color=#0000ff
size=2>strFile = "C:\Inetpub\wwwroot\minstercouk\beup.htm"</FONT></SPAN></DIV>
<DIV> </DIV>
<DIV><SPAN class=094210921-30072003><FONT face=Arial color=#0000ff size=2>Open
strFile For Input As #1<BR>Do While Not
EOF(1) ' Loop until end of
file.<BR> Line Input #1, strLine<BR> strResult = strResult &
strLine & vbCrLf<BR>Loop</FONT></SPAN></DIV>
<DIV> </DIV>
<DIV><SPAN class=094210921-30072003><FONT face=Arial color=#0000ff size=2>Close
#1</FONT></SPAN></DIV>
<DIV> </DIV>
<DIV><SPAN class=094210921-30072003><FONT face=Arial color=#0000ff
size=2>ReadHTML = strResult</FONT></SPAN></DIV>
<DIV> </DIV>
<DIV><SPAN class=094210921-30072003><FONT face=Arial color=#0000ff size=2>End
Function<BR></FONT></SPAN></DIV>
<DIV><SPAN class=094210921-30072003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=094210921-30072003><FONT face=Arial color=#0000ff size=2>plus
some error handling of course</FONT></SPAN></DIV>
<DIV><SPAN class=094210921-30072003><FONT face=Arial color=#0000ff
size=2>HTH</DIV></FONT></SPAN>
<DIV><SPAN class=094210921-30072003><FONT face=Arial color=#0000ff size=2><!-- 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></DIV></FONT></SPAN>
<BLOCKQUOTE dir=ltr
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>Steve
Capistrant<BR><B>Sent:</B> 30 July 2003 21:43<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=899184220-30072003><FONT face=Arial color=#0000ff
size=2>Andy,</FONT></SPAN></DIV>
<DIV><SPAN class=899184220-30072003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=899184220-30072003><FONT face=Arial color=#0000ff size=2>Can
you explain just a little more specifics on how you did this: "....Just
read it in line by line and built up a string...."</FONT></SPAN></DIV>
<DIV><SPAN class=899184220-30072003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=899184220-30072003></SPAN><FONT face=Arial color=#0000ff
size=2><SPAN class=899184220-30072003>Thanks,</SPAN></FONT></DIV>
<P><FONT size=2>Steve Capistrant<BR>Symphony Information
Services<BR>scapistrant@symphonyinfo.com<BR>Phone:
612-333-1311<BR>www.symphonyinfo.com<BR>212 3rd Ave N, Ste 404<BR>Minneapolis,
MN 55401<BR></FONT></P>
<DIV class=OutlookMessageHeader 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>Andy
Lacey<BR><B>Sent:</B> Wednesday, July 30, 2003 3:07 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=158260020-30072003><FONT face=Arial color=#0000ff size=2>Well
I feel reasonably confident now going into my meeting on Saturday. I've
created an html email in Outlook from Access by reading an html page knocked
up in Frontpage. Just read it in line by line and built up a string. I'm
confident about Arthur's method of merging data from a contact database, and
pics (if required) would be bast stored on the web but could be sent as per
Brett's method. Kewl. And all in a day starting from having no idea. This list
rocks. Thanks everyone.</FONT></SPAN></DIV>
<DIV><SPAN class=158260020-30072003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=158260020-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 20:43<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=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></BLOCKQUOTE></BLOCKQUOTE></BODY></HTML>