Ho riportato sotto il codice della pagina in .asp che ho creato per inviare 50 mail alla volta da un database con oltre 1000 indirizzi. Il server su cui risiede l'applicazione è aruba. Al momento dell'invio nn mi da errori, quindi sembra che invii!!! il prob è che dal pannello mail di aruba nn mi da i messaggi inviati e nn mi ritorna nemmeno un errore di una mail nn ricevuta o casella piena.
Secondo voi è normale???
Marco
-----------------------------------------------------------------------------------------
<html>
<head>
<title>Spedizione E-mail</title>
<head>
<body bgcolor="black" link="#ffcc00" vlink="#ffcc00" alink="#ffcc00">
<%
Dim tipo, email, mittente, oggetto
Dim BCC, conta
tipo=request("Tipo")
email=request("Email")
mittente=request("Mittente")
oggetto=request("Oggetto")
Set cn = Server.CreateObject("ADODB.Connection")
%><%
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL="SELECT Email FROM Mailing ORDER BY Email"
rs.Open strSQL,cn
If (rs.eof = true) AND (rs.bof = true) then
response.write "Non ho trovato nessun indirizzo"
else
rs.movefirst
Conta = 0
BCC = ""
do until rs.eof
do until (Conta > 50) OR (rs.eof = true)
BCC = BCC & rs("email") & "; "
Conta = Conta + 1
rs.movenext
loop
'#### CREO LA MAIL
Set Config = Server.CreateObject("CDO.Configuration")
Set Fields = Config.Fields
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' cdoSendUsingPort
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "..............................."
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
' ************************************ DA MODIFICARE
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "...................................."
' ************************************ DA MODIFICARE
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "............"
Fields.Update
Set objMail = Server.CreateObject("CDO.Message")
Set objMail.Configuration = Config
objMail.To = mittente
objMail.From = mittente
objMail.Bcc = BCC
objMail.Subject = oggetto
'*** Verifico il formato mail
if tipo="html" then
objMail.HTMLBody = email
else
objMail.TextBody = email
end if
objMail.Send
set objMail = Nothing
Set Fields = Nothing
Set Config = Nothing
Conta = 0
BCC = ""
loop
end if
set cn = nothing
set rs = nothing
%>
<center><font face="Verdana" color=#ffcc00 size=4>I messaggi sono stati spediti correttamente
<font size=3>Torna alla lista delle email</font></center>
</body>
</html>
Rispondi quotando
