Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
database contents in email body 1
- Thread starter dcarbone
- Start date
One way is to create a connection/recordset to your database
***********************************************************
<%
Dim cnDB ' As ADODB.Connection
Dim rsData ' As ADODB.Recordset
Set cnDB = Server.CreateObject("ADODB.Connection"
cnDB.ConnectionString = "Provider=SQLOLEDB;" _
& "Data Source=(local);" _
& "Initial Catalog=Northwind;" _
& "User ID=sa;" _
& "Password=;"
cnDB.Open
Set rsData = cnDB.Execute("SELECT * FROM Customers"
%>
***********************************************************
then simply populate the fields in the body of the HTML formatted email with the recordset fields you wish
***********************************************************
<%
Dim cnDB ' As ADODB.Connection
Dim rsData ' As ADODB.Recordset
Set cnDB = Server.CreateObject("ADODB.Connection"
cnDB.ConnectionString = "Provider=SQLOLEDB;" _
& "Data Source=(local);" _
& "Initial Catalog=Northwind;" _
& "User ID=sa;" _
& "Password=;"
cnDB.Open
Set rsData = cnDB.Execute("SELECT * FROM Customers"
%>
***********************************************************
then simply populate the fields in the body of the HTML formatted email with the recordset fields you wish
- Thread starter
- #3
jgoodman00
Programmer
- Jan 23, 2001
- 1,510
then simply populate the fields in the body of the HTML formatted email with the recordset fields you wish
How is this done?
I am attempting to insert some db information into the body of an email, but can only insert it into the Subject line.
James Goodman MCSE, MCDBA
How is this done?
I am attempting to insert some db information into the body of an email, but can only insert it into the Subject line.
James Goodman MCSE, MCDBA
jgoodman00,
Here's an example of how it is done:
In this example, a recordset named rsObj is assumed to have USERNAME, PASSWORD and EMAIL fields.
Here's an example of how it is done:
Code:
Set Message = CreateObject("CDONTS.NewMail")
BodyToSend = "<HTML><HEAD>" & _
"<style>body {font-family:courier;font-size:10pt;}</style>" & _
"</HEAD><BODY>Dear " & Trim(rsObj("USERNAME")) & ",<br><br>" & _
"Your password is <b>" & Trim(rsObj("PASSWORD")) & "</b>." & _
"</BODY></HTML>"
Message.From = "Web Messenger <mywebemail@mydomain.com>"
Message.To = rsObj("EMAIL")
Message.Subject = "Your Password"
Message.Body = BodyToSend
Message.Importance = 2 'cdoHigh
Message.BodyFormat = 0 'cdoBodyFormatHTML
Message.MailFormat = 0 'cdoMailFormatMime
On Error Resume Next
Message.Send
Set Message = nothingIn this example, a recordset named rsObj is assumed to have USERNAME, PASSWORD and EMAIL fields.
jgoodman00
Programmer
- Jan 23, 2001
- 1,510
So I have to do all of that just to add something to the body?
Is it not possible to do this in HTML, because I want the client to be able to click on a hyperlink which opens a message?
At the moment I have the following asp which creates the hyperlink I want. The only thing missing is the ability to add data to the body of the message:
<%
objRS.Open "SELECT * FROM tblLUPStaffNames WHERE StaffID = " & Request.Form("cboFor"
Response.Write "<BR><a href='mailto:"
Response.Write objRS("StaffEmail"
Response.Write "?subject=Automatic Message: " & Now & "'>"
Response.Write "Email Reminder"
Response.Write "</a>"
objRS.Close
%>
I want the email to come from the client user, not from the server.
James Goodman MCSE, MCDBA
Is it not possible to do this in HTML, because I want the client to be able to click on a hyperlink which opens a message?
At the moment I have the following asp which creates the hyperlink I want. The only thing missing is the ability to add data to the body of the message:
<%
objRS.Open "SELECT * FROM tblLUPStaffNames WHERE StaffID = " & Request.Form("cboFor"
Response.Write "<BR><a href='mailto:"
Response.Write objRS("StaffEmail"
Response.Write "?subject=Automatic Message: " & Now & "'>"
Response.Write "Email Reminder"
Response.Write "</a>"
objRS.Close
%>
I want the email to come from the client user, not from the server.
James Goodman MCSE, MCDBA
-
1
- #8
James,
If you want a message to come from the client user with text in the body, add the "body" parameter to the link:
That is assuming that the database stores a "CannedMessage" field. Or you can assemble your message in a variable:
Earnie Eng
If you want a message to come from the client user with text in the body, add the "body" parameter to the link:
Code:
<%
objRS.Open "SELECT * FROM tblLUPStaffNames WHERE StaffID = " & Request.Form("cboFor")
Response.Write "<BR><a href='mailto:"
Response.Write objRS("StaffEmail")
Response.Write "?subject=Automatic Message: " & Now
Code:
Response.Write "&body=" & objRS("CannedMessage") & "'>"
Code:
Response.Write "Email Reminder"
Response.Write "</a>"
objRS.Close
%>That is assuming that the database stores a "CannedMessage" field. Or you can assemble your message in a variable:
Code:
<%
objRS.Open "SELECT * FROM tblLUPStaffNames WHERE StaffID = " & Request.Form("cboFor")
Code:
strMessage = "Dear " & objRS("StaffName") & vbcrlf & vbcrlf
strMessage = strMessage & "Some kind of text... and you can use the 'vbcrlf' constant to make multiple lines in the message. You may need to be careful because I think you are limited to max 255 characters, starting from 'mailto' to the end of your message"
Code:
Response.Write "<BR><a href='mailto:"
Response.Write objRS("StaffEmail")
Response.Write "?subject=Automatic Message: " & Now
Code:
Response.Write "&body=" & strMessage & "'>"
Code:
Response.Write "Email Reminder"
Response.Write "</a>"
objRS.Close
%>Earnie Eng
jgoodman00
Programmer
- Jan 23, 2001
- 1,510
jgoodman00
Programmer
- Jan 23, 2001
- 1,510
I Thought I would try using a multiple line string in order to include an automatic hyperlink to the relevent item. So, I added the following code:
strMessage = Request.Form("txtDescription" & vbCrLf
strMessage = strMessage & "You can view the item here: " & vbCrLf
strMessage = strMessage & " & strItemID
However, this does not place the message text on multiple lines. It is instead lumped together on a single line.
Any ideas?
James Goodman MCSE, MCDBA
strMessage = Request.Form("txtDescription"
& vbCrLf strMessage = strMessage & "You can view the item here: " & vbCrLf
strMessage = strMessage & " & strItemID
However, this does not place the message text on multiple lines. It is instead lumped together on a single line.
Any ideas?
James Goodman MCSE, MCDBA
hm...
I did a google search, and found this:
That is the equivalent of the vbCRLF (carraige return / line feed)
I found the hint here -
simply replace all your vbcrlf with %0D%0A and that should do the trick!
I tested it on my own server, and it works fine. Good luck!
Earnie Eng
I did a google search, and found this:
Code:
%0D%0AI found the hint here -
simply replace all your vbcrlf with %0D%0A and that should do the trick!
I tested it on my own server, and it works fine. Good luck!
Earnie Eng
- Status
Similar threads
- Locked
- Question
- Locked
- Question