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>