CDONTS !! Dynamic Data in email

dave

I am trying to generate an email from the webpage using code below, which
works fine. However I want to be able to include some dyanmic data how do I
go about it ?can anybody point me in the direction of some sample code ?

Thanks Dave
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<%

Dim myMail
Dim HTML
Set myMail = CreateObject("CDONTS.NewMail")

HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type"""
HTML = HTML & "content=""text/html; charset=iso-8859-1"">"
HTML = HTML & "<meta name=""GENERATOR"""
HTML = HTML & " content=""Microsoft Visual Studio 6.0"">"
HTML = HTML & "<title>HTMLMail</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""FFFFFF"">"
HTML = HTML & "<IMG SRC=""http://www.microsoft.com/library/"
HTML = HTML & "images/gifs/homepage/microsoft.gif"" BORDER=0 "
HTML = HTML & "WIDTH=167 HEIGHT=36 ALT=""Microsoft Corporation"">"
HTML = HTML & ""
HTML = HTML & "Microsoft Exchange CDONTS Example"
HTML = HTML & ""
HTML = HTML & "CDO for NTS allows an easy way to send mail. "
HTML = HTML & "This example shows how the content can be "
HTML = HTML & "an HTML page "
HTML = HTML & "which allows you to send rich text and"
HTML = HTML & "inline graphics."
HTML = HTML & "</body>"
HTML = HTML & "</html>"

myMail.From="so*****@microsoft.com"
myMail.To="so*****@microsoft.com"
myMail.Subject="Sample CDONTS HTML Message"
myMail.BodyFormat=0
myMail.MailFormat=0
myMail.Body=HTML
myMail.Send
set mymail=nothing
Response.Write "Message Sent"
%>
</HEAD>
<BODY>
</BODY>
</HTML>

Jul 19 '05 #1

Subscribe Reply

1614

Ray Costanzo [MVP]

"dave" <da**@griffineng.co.uk> wrote in message
news:ci**********@sparta.btinternet.com...

I am trying to generate an email from the webpage using code below, which
works fine. However I want to be able to include some dyanmic data how do I go about it ?can anybody point me in the direction of some sample code ?

Dynamic how?

Ray at home

Jul 19 '05 #2

Dave

"Ray Costanzo [MVP]" <my first name at lane 34 dot commercial> wrote in
message news:u2*************@TK2MSFTNGP14.phx.gbl...

"dave" <da**@griffineng.co.uk> wrote in message
news:ci**********@sparta.btinternet.com...
I am trying to generate an email from the webpage using code below, which works fine. However I want to be able to include some dyanmic data how
do I
go about it ?can anybody point me in the direction of some sample code ?

Dynamic how?

Ray at home

Dyanmic in the sense of I want to be able to pull data from sql and display
it in a formatted html table which in turn is embeded in an email message,
basically like when you buy something online and you have a confirmation
email showing what you ordered, that is what I want to be able to do. I may
be going completly the wrong way about it due to my ignorance any help is
gratefully received

Dave

Jul 19 '05 #3

Ray Costanzo [MVP]

Do you know how to build a web-page that would display this data? If so,
it's the same basic idea, except that instead of writing the html to a
browser, you save it to a variable that will become the .HTMLBody of your
CDO.Message object (assuming that's what you use).

So, forget the e-mailing for a moment, and focus on just creating a web page
with the data you want. Can you do that?

Ray at work

"Dave" <da**@griffineng.co.uk> wrote in message
news:KA*****************@newsfe6-gui.ntli.net...

Dyanmic in the sense of I want to be able to pull data from sql and
display
it in a formatted html table which in turn is embeded in an email message,
basically like when you buy something online and you have a confirmation
email showing what you ordered, that is what I want to be able to do. I
may
be going completly the wrong way about it due to my ignorance any help is
gratefully received

Dave

Jul 19 '05 #4

Dave

Thanks Ray,

I can build an asp page that shows the data I require to be sent in the
email , Just about ! :-)

What do I do next ?

Dave

"Ray Costanzo [MVP]" <my first name at lane 34 dot commercial> wrote in
message news:e2**************@TK2MSFTNGP11.phx.gbl...

Do you know how to build a web-page that would display this data? If so,
it's the same basic idea, except that instead of writing the html to a
browser, you save it to a variable that will become the .HTMLBody of your
CDO.Message object (assuming that's what you use).

So, forget the e-mailing for a moment, and focus on just creating a web page with the data you want. Can you do that?

Ray at work

"Dave" <da**@griffineng.co.uk> wrote in message
news:KA*****************@newsfe6-gui.ntli.net...

Dyanmic in the sense of I want to be able to pull data from sql and
display
it in a formatted html table which in turn is embeded in an email message, basically like when you buy something online and you have a confirmation
email showing what you ordered, that is what I want to be able to do. I
may
be going completly the wrong way about it due to my ignorance any help is gratefully received

Dave

Jul 19 '05 #5

Ray Costanzo [MVP]

Well, let's say that this is your page that returns data:

page.asp:
<html><head><title>something</title></head>
<body>
<%
UserID = 6
Dim oADO, oRS
Set oADO = CreateObject("ADODB.Connection")
Set oRS = oADO.Execute("SELECT COUNT(transID) FROM Trans WHERE UserID=" &
UserID)
%>
You have placed <%=oRS.Fields.Item(0).Value%> orders.
<%
oRS.Close : Set oRS = Nothing
oADO.Close : Set oADO = Nothing
</body>
</html>

To turn that into an e-mail, you'd dump all the html to a variable, i.e.

<%
sBody = "<html><head><title>something</title></head>" & vbCrLf
sBody = sBody & "<body>" & vbCrLf
UserID = 6
Dim oADO, oRS
Set oADO = CreateObject("ADODB.Connection")
Set oRS = oADO.Execute("SELECT COUNT(transID) FROM Trans WHERE UserID=" &
UserID)
sBody = sBody & "You have placed " & oRS.Fields.Item(0).Value & " orders." &
vbCrLf
oRS.Close : Set oRS = Nothing
oADO.Close : Set oADO = Nothing
sBody = sBody & "</body>" & vbCrLf
sBody = sBody & "</html>"

Set oCDO = CreateObject("CDO.Message")
oCDO.From = "sd*@kjasdf.cmdf"
oCDO.To = "kj******@kjasdf.omc"
oCDO.Subject = "orders"
oCDO.HtmlBody = sBody
oCDO.Send
%>

Does that make sense?

Ray at work

"Dave" <da**@griffineng.co.uk> wrote in message
news:0p*****************@newsfe6-gui.ntli.net...

Thanks Ray,

I can build an asp page that shows the data I require to be sent in the
email , Just about ! :-)

What do I do next ?

Dave

"Ray Costanzo [MVP]" <my first name at lane 34 dot commercial> wrote in
message news:e2**************@TK2MSFTNGP11.phx.gbl...
Do you know how to build a web-page that would display this data? If so,
it's the same basic idea, except that instead of writing the html to a
browser, you save it to a variable that will become the .HTMLBody of your
CDO.Message object (assuming that's what you use).

So, forget the e-mailing for a moment, and focus on just creating a web

page
with the data you want. Can you do that?

Ray at work

"Dave" <da**@griffineng.co.uk> wrote in message
news:KA*****************@newsfe6-gui.ntli.net...
>>
> Dyanmic in the sense of I want to be able to pull data from sql and
> display
> it in a formatted html table which in turn is embeded in an email message, > basically like when you buy something online and you have a
> confirmation
> email showing what you ordered, that is what I want to be able to do. I
> may
> be going completly the wrong way about it due to my ignorance any help is > gratefully received
>
> Dave
>
>

Jul 19 '05 #6

dave

brilliant thankyou
"Ray Costanzo [MVP]" <my first name at lane 34 dot commercial> wrote in
message news:e$**************@TK2MSFTNGP09.phx.gbl...

Well, let's say that this is your page that returns data:

page.asp:
<html><head><title>something</title></head>
<body>
<%
UserID = 6
Dim oADO, oRS
Set oADO = CreateObject("ADODB.Connection")
Set oRS = oADO.Execute("SELECT COUNT(transID) FROM Trans WHERE UserID=" &
UserID)
%>
You have placed <%=oRS.Fields.Item(0).Value%> orders.
<%
oRS.Close : Set oRS = Nothing
oADO.Close : Set oADO = Nothing
</body>
</html>

To turn that into an e-mail, you'd dump all the html to a variable, i.e.

<%
sBody = "<html><head><title>something</title></head>" & vbCrLf
sBody = sBody & "<body>" & vbCrLf
UserID = 6
Dim oADO, oRS
Set oADO = CreateObject("ADODB.Connection")
Set oRS = oADO.Execute("SELECT COUNT(transID) FROM Trans WHERE UserID=" &
UserID)
sBody = sBody & "You have placed " & oRS.Fields.Item(0).Value & " orders."
& vbCrLf
oRS.Close : Set oRS = Nothing
oADO.Close : Set oADO = Nothing
sBody = sBody & "</body>" & vbCrLf
sBody = sBody & "</html>"

Set oCDO = CreateObject("CDO.Message")
oCDO.From = "sd*@kjasdf.cmdf"
oCDO.To = "kj******@kjasdf.omc"
oCDO.Subject = "orders"
oCDO.HtmlBody = sBody
oCDO.Send
%>

Does that make sense?

Ray at work

"Dave" <da**@griffineng.co.uk> wrote in message
news:0p*****************@newsfe6-gui.ntli.net...
Thanks Ray,

I can build an asp page that shows the data I require to be sent in the
email , Just about ! :-)

What do I do next ?

Dave

"Ray Costanzo [MVP]" <my first name at lane 34 dot commercial> wrote in
message news:e2**************@TK2MSFTNGP11.phx.gbl...
Do you know how to build a web-page that would display this data? If
so,
it's the same basic idea, except that instead of writing the html to a
browser, you save it to a variable that will become the .HTMLBody of
your
CDO.Message object (assuming that's what you use).

So, forget the e-mailing for a moment, and focus on just creating a web

page
with the data you want. Can you do that?

Ray at work

"Dave" <da**@griffineng.co.uk> wrote in message
news:KA*****************@newsfe6-gui.ntli.net...
>>
> Dyanmic in the sense of I want to be able to pull data from sql and
> display
> it in a formatted html table which in turn is embeded in an email

message,
> basically like when you buy something online and you have a
> confirmation
> email showing what you ordered, that is what I want to be able to do.
> I
> may
> be going completly the wrong way about it due to my ignorance any help

is
> gratefully received
>
> Dave
>
>

Jul 19 '05 #7

Similar topics

CDONTS works intermitantly

by: | last post by:

Hi Guys CDONTS works with all sites hosted on my test server bar one (which surely rules out a miscomputation of the Default SMTP server in IIS). I have tried uploading the file with make up...