|
|
|
|
|
| | |
| |
Active Server Pages help tutorial how to ASP Help ASP Tutorials ASP Programming ASP Code - ASP Free CJWSoft ASPProtect ASPBanner ASPClassifieds
(Advanced)
(Components)
(Database)
(General)
(Vbscript)
|
|
|
|
Subject: |
Send Multiple Emails To Multiple Users |
|
From: |
Ryan Chandler |
|
Date: |
9/13/2000 2:48:45 PM |
|
IP: |
209.104.69.161 |
I tried to write a code that can send multiple emails to multiple users. I want that each user will recieve different email message. Could anyone help me with this. Thanks a lot in advance.
Ryan
This is my code:<HTML>
<!-- DATE DE CREATION: 31/08/00 -->
<HEAD>
<TITLE></TITLE>
<META NAME="Description" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Author" >
<META NAME="Generator" CONTENT="WebExpert">
</HEAD>
<BODY>
<%
Dim oConn, request, strsql
%>
<%
strSQL = "SELECT * From tblMemo Where tblmemo.datesend Like %" & date & "% Order By id asc"
strSQL = "SELECT * From tblMemo Order By id asc"
Set oConn = CreateObject("ADODB.Connection")
oConn.Open "memo"
Set rq = oConn.Execute(strSQL)
%>
<%
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "smtp.mlink.net:25"
%>
<%
JMail.Sender = "PLanete Quebec"
Do While Not rq.EOF
JMail.Subject = rq("title")
JMail.AddRecipient rq("nameto")
JMail.AddRecipient rq("emailto")
JMail.Body = rq("message")
JMail.Execute
%>
<%
rq.movenext
loop
if JMail.Execute then
Response.Write("Les messages sont envoyés")
else if rq("datesend") <> date then
Response.Write("Ily a pas de message à envoyer")
en |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
