sto provando questo script seguente di newsletter e sta funzionando benissimo
<%
Dim mailObj, cdoMessage, cdoConfig, addrList, strEmailMsg, subject
Dim strEmail, intErrNumber
Dim rsNews, recipients, strCount, strSQL, iMsg, iConf, Flds, cdoSendUsingPort, cdoSendUsingMethod
Set rsNews = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM newsLetter where regione = 'PIEMONTE' "
rsNews.Open strSQL, objConn, adOpenForwardOnly, adLockOptimistic, adCmdText
strCount = 0
If Not rsNews.EOF Then
Do While Not rsNews.EOF
' recipients = recipients & rsNews("email") & ", "
strCount = strCount + 1
rsNews.MoveNext
Loop
' recipients = Left(recipients,Len(recipients)-2)
End If
rsNews.Close
Set rsNews = Nothing
Select Case Request.Form("action")
Case ""
%>
<div align="center">
<form action="mailPIEMONTE.asp" method="post">
<span style="font-family:arial;font-size:12px;color:#000080;font-weight:bold">
Ci sono <%= strCount %> mail nella regione PIEMONTE.
</span>
</form>
<form action="mailPIEMONTE.asp" method="post">
<input type="hidden" name="recipients" value="<%= recipients %>" />
<input type="hidden" name="action" value="view" />
<table width="50%" border="0" cellpadding="1" cellspacing="0" bgcolor="#333333">
<tr>
<td><table width="100%" bgcolor="#FFFFFF">
<tr>
<td valign="top"><span class="thrd">Oggetto:</span></td><td><input type="text" name="nwsubject" size="30" />
</td>
</tr>
<tr>
<td valign="top"><span class="thrd">Messaggio:</span></td><td><textarea name="msg" cols="60" rows="40"></textarea>
</td>
</tr>
<tr>
<td align="center"><input type="radio" name="version" value="html" checked />
<span style="font-family:arial;font-size:12px;color:#000080;font-weight:bold">HTML
<input type="radio" name="version" value="Testo" />
TEXT</span></td>
</tr>
<tr>
<td align="center"><input type="submit" value="anteprima" /></td>
</tr>
</table></td>
</tr>
</table>
</form>
</div>
<% Case "view" %>
<form action="mailPIEMONTE.asp" method="post">
<input type="hidden" name="action" value="Invia" />
<input type="hidden" name="recipients" value="<%= recipients %>" />
<input type="hidden" name="nwsubject" size="30" value="<%=Request.Form("nwsubject")%>" />
<input name="msg" type="hidden" value="<%=Replace(Request.Form("msg"),chr(34),"'") %>">
<input type="hidden" name="version" value="<%=Request.Form("version")%>" />
<table width="50%" border="0" align="center" cellpadding="1" cellspacing="0">
<tr>
<td><table width="100%" align="center" bgcolor="#FFFFFF">
<tr>
<td><span class="thrd">Oggetto:</span> <%=Request.Form("nwsubject")%></td>
</tr>
<tr>
<td>Messaggio:</td>
</tr>
<tr>
<td><div align="justify"><%
If Request.Form("version") = "html" Then
Response.Write Replace(Request.Form("msg"),chr(34),"'")
Else
Response.Write Replace(Request.Form("msg"),Chr(13) & Chr(10),"
")
End If %> </div></td>
</tr>
<tr>
<td align="center"><input type="submit" value="Invia" /></td>
</tr>
</table></td>
</tr>
</table>
</form>
<%
Case "Invia"
strEmail = Request.Form("recipients") ' "info@xxxxxxxxxxxx.it" '
subject = Request.form("nwsubject")
'send email so subscriber can confirm
' strEmailMsg = Replace(Request.Form("msg"),Chr(13) & Chr(10),"
")
strEmailMsg = Request.Form("msg")
' If Request.Form("version") = "html" Then
' strEmailMsg = strEmailMsg & strFooter
' Else
' strEmailMsg = Replace(strEmailMsg & strFooter,"
",Chr(13) & Chr(10))
' End If
'Send email based on mail component.
'Send email (CDONTS version). Note: CDONTS doesn't support a reply-to
'address and has no error checking.
if mailComp = "CDONTS" then
set mailObj = Server.CreateObject("CDONTS.NewMail")
If Request.Form("version") = "html" Then
mailObj.BodyFormat = 0
mailObj.MailFormat = 0
Else
mailObj.BodyFormat = 1
End If
mailObj.From = fromAddr
mailObj.To = strEmail
mailObj.Subject = subject
mailObj.Body = strEmailMsg
mailObj.Send
set mailObj = Nothing
end if
'Send email (CDOSYS version).
if mailComp = "CDOSYS" then
Set rsNews = Server.CreateObject("ADODB.Recordset")
rsNews.Open "SELECT * FROM newsLetter where regione = 'PIEMONTE' ", objConn, adOpenForwardOnly, adLockOptimistic, adCmdText
If Not rsNews.EOF Then
Do While Not rsNews.EOF
set cdoMessage = Server.CreateObject("CDO.Message")
set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpServer
cdoConfig.Fields.Update
set cdoMessage.Configuration = cdoConfig
cdoMessage.From = fromAddr
' cdoMessage.To = strEmail
cdoMessage.Bcc = rsNews("email")
cdoMessage.Subject = subject
If Request.Form("version") = "html" Then
cdoMessage.HtmlBody = strEmailMsg
Else
cdoMessage.TextBody = strEmailMsg
End If
on error resume next
cdoMessage.Send
intErrNumber = Err.Number
set cdoMessage = Nothing
set cdoConfig = Nothing
rsNews.MoveNext
Loop
if intErrNumber <> 0 then
SendMail = "Email send failed: " & Err.Description & "."
else
Response.Write "<div align=""center"">
" & _
"<span style=""font-family:arial;font-size:12px;color:#000080;font-weight:bold;text-align:left"">" & _
"La newsletter č stata inviata con successo!</span></div>
"
end if
End If
rsNews.Close
Set rsNews = Nothing
end if
'Send email (JMail version).
if mailComp = "JMail" then
set mailObj = Server.CreateObject("JMail.SMTPMail")
mailObj.Silent = true
mailObj.ServerAddress = smtpServer
mailObj.Sender = fromAddr
mailObj.ReplyTo = fromAddr
mailObj.Subject = subject
addrList = Split(strEmail, ",")
for each addr in addrList
mailObj.AddRecipient Trim(addr)
next
If Request.Form("version") = "html" Then mailObj.ContentType = "text/html"
mailObj.Body = strEmailMsg
if not mailObj.Execute then
SendMail = "Email send failed: " & mailObj.ErrorMessage & "."
end if
end if
'Send email (ASPMail version).
if mailComp = "ASPMail" then
set mailObj = Server.CreateObject("SMTPsvg.Mailer")
mailObj.FromAddress = fromAddr
mailObj.RemoteHost = smtpServer
mailObj.ReplyTo = fromAddr
for each addr in Split(strEmail, ",")
mailObj.AddRecipient "", Trim(addr)
next
mailObj.Subject = subject
If Request.Form("version") = "html" Then mailObj.ContentType = "text/html"
mailObj.BodyText = strEmailMsg
if not mailObj.SendMail then
SendMail = "Email send failed: " & mailObj.Response & "."
end if
end if
End Select
If Request.Form("purge") = "yes" Then
Set rsNews = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM newsLetter where regione = 'PIEMONTE' "
rsNews.Open strSQL, objConn, adOpenForwardOnly, adLockOptimistic, adCmdText
If Not rsNews.EOF Then
Do While Not rsNews.EOF
If DateDiff("y",rsNews("Date"),Now) > 7 then
rsNews.delete
End If
rsNews.MoveNext
Loop
End If
rsNews.Close
Set rsNews = Nothing
End If
objConn.Close
Set objConn = Nothing
%>
come possiamo far visualizzare questo all'interno del messaggio dell email?
CAMPO NOME dello stesso recordset del campo email con questo collegamento
onClick="MM_openBrWindow('download.asp?file=<%=rs( "nome")%>
cioe esempio :
invio newsletter con il metodo di cui sopra
arriva l'email a indirizzo info@ppp.com
mi arrivera questo testo
PPPPP (NOME) LINKATO A QUELLA PAGINA
come posso fare questa cosa
vorrei il vostro aiuto
grazie
Rispondi quotando
