Bill - Sorry this has gone unanswered. I thought I posted a reply the day you posted. While this is not an exact how-to I hope it is enough for you to get started.
I use a table called EmailTemplate with 3 fields:
NoticeName text(50)
HTMLTemplate Memo
SubjectLine Text(50)
I wrote the HTML to be used as the body of the email and put bracketed placeholders for each field. HTML is below.
Then I open a recordset for the template I want. That should return only the one record that has the template you want. Then use Replace() to put the strings where they belong. In this case the only placeholder is [TFirstName].
Dim db As DAO.Database
Dim rsTemplate As DAO.Recordset
Dim strSQL As String
Dim strHTLMTemplate As String
Set db = CurrentDb
strSQL = "SELECT NoticeName, HTMLTemplate, SubjectLine " _
& "FROM EmailTemplate " _
& "WHERE NoticeName = '" & conNoticeName & "'"
Set rsTemplate = db.OpenRecordset(strSQL, dbOpenDynaset, dbSeeChanges)
'Put the HTML into a string variable
strHTLMTemplate = rsTemplate!HTMLTemplate
strHTLMTemplate = Replace(strHTLMTemplate, "[TFirstName]", strToFName)
From there, you can put strHTMLTemplate into the body of your email. See my code sample for emailing at http://www.thatlldoit.com/Pages/codesamples.aspx
<html>
<head>
<title></title>
</head>
<BODY>
<P>Welcome aboard, [TFirstName].</P>
<P>You now have an account in the Application Master System and will need to take a few steps to install it.</P>
<P>Click this link to install the Application Master System: <a
href="file:///\\SAN01\Department\IS\AppMasterSystem\AppMasterSystem_FEUpdate.vbs">Application Master System Installer</a></p>
<p>The installer will download all the files, put a shortcut on your desktop and
open the application. The shortcut looks like this: </p>
<p><img border=0 alt="" align=left
src="file:///\\SAN01\Department\IS\AppMasterSystem\AppMasterSys_Graphic.png"></p>
<p> </p>
<p> </p>
<p> </p>
<p>The Installation will open a small window telling you the application is loading. If you get any prompts to over-write or copy & save click yes.</p>
<p>Depending on your MS Access version and settings you may get warnings or error messages when the application opens. If you get any of these please call me so I can remote to your computer and correct the settings. This should only take a minute or two.</p>
</BODY>
</html>
Regards,
Bill Mosca, Founder - MS_Access_Professionals
http://www.thatlldoit.com
My nothing-to-do-with-Access blog
http://wrmosca.wordpress.com
In MS Access Office 365 I have a form that contains about 9 pieces of information that my customers frequently request. I created a small report in hopes of doing a COPY -PASTE and putting the information in an email. That would be fast and easy.
The COPY-PASTE idea did not go well. The underlying query was pasted into my report.
I could export as a PDF but I would really like to just PASTE the information into an email.
Any thoughts
Bill Singer
Andover, MN
__._,_.___
Posted by: wrmosca@comcast.net
| Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (2) |
Have you tried the highest rated email app?
With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.
.
__,_._,___
Tidak ada komentar:
Posting Komentar