This is what I have so far. How/where can I put the tags??:
Private Sub Command125_Click()
'Creates a new e-mail item and modifies its properties.
Dim olApp As Outlook.Application
Dim objMail As Outlook.MailItem
Set olApp = Outlook.Application
'Create e-mail item
Set objMail = olApp.CreateItem(olMailItem)
With objMail
'Set body format to HTML
.BodyFormat = olFormatHTML
.HTMLBody = "<HTML><BODY>Enter the message text here. & Me.[Check-out
Date] </BODY></HTML>"
.Display
End With
End Sub
:
in your sub/function... you need to reference the various control on your
form to pull/push their values to build your HTML string.
For instance, if your have a textbox named "FirstName" and another named
"LastName" you would code it something like:
strHTML = Me.FirstName & " " & Me.LastName
Your can concatenate in the manner all your controls and build your HTML
message and create the layout you wish using HTML tags.
--
Hope this helps,
Daniel Pineault
http://www.cardaconsultants.com/
For Access Tips and Examples:
http://www.devhut.com/index.php
Please rate this post using the vote buttons if it was helpful.
:
OK. With help, I was able to get access to send an HTML email. Now I just
need to get the record to be passed. What values or inserts do I put in? I
know this is probably VERY simply
but I lost
Thx