Brett Barabash
BBarabash at TappeConstruction.com
Wed Jul 30 14:43:28 CDT 2003
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/043f6d00/attachment-0001.html>