Invio NewsLetters

[sam27]

Questa è la pagina di invio NewsLetters di un CMS che si trova su un host di Aruba con Widows 2003 :

<%
strSubject = Request.Form("subject")
strMessage = Request.Form("message")
If strSubject = "" Or strMessage = "" Then
Response.Write "Please fill in subject and message details!"
Else
Set objRS = connect.Execute ("SELECT * FROM maillista")
If objRS.EOF Then
Response.Write "There are no current subscribers to the newsletter service"
Else
Do Until objRS.EOF
Response.Write "Sent to " & objRS("email") & "
"
' CDONTS
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = tipsmail
objMail.To = objRS("email")
objMail.Subject = strSubject
objMail.Body = strMessage
objMail.Send
Set objMail = Nothing

Response.Flush
objRS.MoveNext
Loop
Response.Write "

Clear!"
End If
objRS.Close
Set objRS = Nothing

End If
%>


si può cambiare il codice invece di CDONTS usare CDOSYS ??? Grazie per le risposte....

[wegawhite]

Solo la parte per invio CDOSYS:

Const cdoSendUsingMethod        = _
	"http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort          = 2
Const cdoSMTPServer             = _
	"http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort         = _
	"http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Const cdoSMTPConnectionTimeout  = _
	"http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
	
Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields

With Fields
	.Item(cdoSendUsingMethod)       = cdoSendUsingPort
	.Item(cdoSMTPServer)            = "nome.tuodominio"
	.Item(cdoSMTPServerPort)        = 25
	.Item(cdoSMTPConnectionTimeout) = 10
	.Update
End With

Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig

With objMessage
        .To       = "email destinatario"
        .From    = "Email mittente"
        .Cc       = "Email copia conoscenza"
	.BCc      = "Email copia conoscenza nascosta"
	.Subject  = "ciao"
	.HtmlBody = "messaggio"
	.Send
End With

Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing

[sam27]

Questa parte di codice la conoscevo già, ma come faccio a configurarla con l'invio della newsletters dato che il sistema genera tanti invii di posta elettronica ( loop ) quanti sono gli iscritti alla newsletters ??? Grazie....

[Dirk Pitt]

Sostituisci questo:

Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = tipsmail
objMail.To = objRS("email")
objMail.Subject = strSubject
objMail.Body = strMessage
objMail.Send
Set objMail = Nothing

Con questo

Set myMail = CreateObject("CDO.Message")
myMail.Subject = strSubject
myMail.From = tipsmail
myMail.To = objRS("email")
myMail.TextBody = strMessage
myMail.Send

Set myMail = Nothing

[sam27]

Il CMS dopo un bel pò di tempo mi genera questo errore :

Sent to beth12756@libero.it

Active Server Pages error 'ASP 0113'

Script timed out

/public/cms/default.asp

The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.

avvisandomi che le-mail è stata inviata ma non è mai arrivata.

Grazie per la pazienza....

[sam27]

Grazie Dirk Pitt tutto funziona avevo sbagliato aggiornando il file in internet

[sam27]

Grazie Dirk Pitt tutto funziona avevo sbagliato aggiornando il file in internet Grazie...

[Dirk Pitt]

Prego