Andy Lacey
andy at minstersystems.co.uk
Wed Jul 30 16:10:51 CDT 2003
Hi Steve
This does it
Function ReadHTML() As String
Dim strResult As String
Dim strFile As String
Dim strLine As String
strFile = "C:\Inetpub\wwwroot\minstercouk\beup.htm"
Open strFile For Input As #1
Do While Not EOF(1) ' Loop until end of file.
Line Input #1, strLine
strResult = strResult & strLine & vbCrLf
Loop
Close #1
ReadHTML = strResult
End Function
plus some error handling of course
HTH
Andy Lacey
http://www.minstersystems.co.uk <http://www.minstersystems.co.uk/>
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Steve
Capistrant
Sent: 30 July 2003 21:43
To: Access Developers discussion and problem solving
Subject: RE: [AccessD] HTML Email from Access - Progress
Andy,
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...."
Thanks,
Steve Capistrant
Symphony Information Services
scapistrant at symphonyinfo.com
Phone: 612-333-1311
www.symphonyinfo.com
212 3rd Ave N, Ste 404
Minneapolis, MN 55401
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Andy Lacey
Sent: Wednesday, July 30, 2003 3:07 PM
To: 'Access Developers discussion and problem solving'
Subject: RE: [AccessD] HTML Email from Access - Progress
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.
Andy Lacey
http://www.minstersystems.co.uk <http://www.minstersystems.co.uk/>
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Brett
Barabash
Sent: 30 July 2003 20:43
To: 'Access Developers discussion and problem solving'
Subject: RE: [AccessD] HTML Email from Access - Progress
Oops! Let's try this again:
Public Sub CreatePictureMail(ByVal strPicPath As String)
Dim olItem As Outlook.MailItem
Dim strFileName As String
strFileName = Mid$(strPicPath, InStrRev(strPicPath,"\") + 1)
Set olItem = Application.CreateItem(olMailItem)
olItem.Attachments.Add strPicPath
olItem.HTMLBody = "<html><img src=" & Chr$(34) & strFileName &
Chr$(34) & "></html>"
olItem.Display
Set olItem = Nothing
End Sub
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.
Also, you could certainly have a tag like:
<IMG SRC="www.mydomain.com/images/pic1.jpg">
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.
-----Original Message-----
From: Andy Lacey [mailto:andy at minstersystems.co.uk]
Sent: Wednesday, July 30, 2003 2:31 PM
To: 'Access Developers discussion and problem solving'
Subject: RE: [AccessD] HTML Email from Access - Progress
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.
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?
Andy Lacey
http://www.minstersystems.co.uk <http://www.minstersystems.co.uk/>
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Brett
Barabash
Sent: 30 July 2003 19:03
To: 'Access Developers discussion and problem solving'
Subject: RE: [AccessD] HTML Email from Access
Arthur,
Here is a quick 'n' dirty method that I use to create an email message
with a picture within Outlook:
Public Sub CreatePictureMail(ByVal strPicPath As String)
Dim olItem As Outlook.MailItem
Set olItem = Application.CreateItem(olMailItem)
olItem.Attachments.Add strPicPath
olItem.HTMLBody = "<html><img src=" & Chr$(34) & strPicPath &
Chr$(34) & "></html>"
olItem.Display
Set olItem = Nothing
End Sub
I'm sure that it wouldn't be a big deal to do this without using
look-out.
-----Original Message-----
From: Arthur Fuller [mailto:artful at rogers.com]
Sent: Wednesday, July 30, 2003 12:52 PM
To: 'Access Developers discussion and problem solving'
Subject: RE: [AccessD] HTML Email from Access
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.
Arthur
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Andy Lacey
Sent: July 30, 2003 11:08 AM
To: 'Access Developers discussion and problem solving'
Subject: RE: [AccessD] HTML Email from Access
Thanks for the idea Arthur.
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 :-(
--
Andy Lacey
http://www.minstersystems.co.uk
------------------------------------------------------------------------
--------------------------------------------
This email and any files transmitted with it are confidential and
intended solely for the use of the individual or entity to whom
they are addressed.
If you have received this email in error please notify the
originator of the message. This footer also confirms that this
email message has been scanned for the presence of computer viruses.
Any views expressed in this message are those of the individual
sender, except where the sender specifies and with authority,
states them to be the views of Tappe Construction Co.
Scanning of this message and addition of this footer is performed
by SurfControl E-mail Filter software in conjunction with
virus detection software.
------------------------------------------------------------------------
--------------------------------------------
This email and any files transmitted with it are confidential and
intended solely for the use of the individual or entity to whom
they are addressed.
If you have received this email in error please notify the
originator of the message. This footer also confirms that this
email message has been scanned for the presence of computer viruses.
Any views expressed in this message are those of the individual
sender, except where the sender specifies and with authority,
states them to be the views of Tappe Construction Co.
Scanning of this message and addition of this footer is performed
by SurfControl E-mail Filter software in conjunction with
virus detection software.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://databaseadvisors.com/pipermail/accessd/attachments/20030730/87e20436/attachment-0001.html>