CDONTS.NewMail non mi spedisce le e-mail ...

[engi62]

Salve,

tempo fa ho trovato in questo sito uno script per spedire le e-mail da una pagina ASP

ieri l'ho integrato in una mia pagina
non mi segnala nessun errore ... ma le e-mail spedite (a me stessa per provare) non mi arrivano.

Sarà un errore logico dunque ... ma io non lo trovo ... mi aiutate?

Ecco il codice della pagina:

<%Function SendMail(sFrom, sTo, sSub, sBody, iFrm, iPry, sFile, sURL)

    ' sFrom = indirizzo e-mail del mittente (stringa)
    ' sTo = indirizzo e-mail del destinatario (stringa)
    ' sSub = titolo della mail (stringa)
    ' sBody = testo della mail (stringa)
    ' iFrm = formato della mail (intero, 0=HTML 1=TXT)
    ' iPry = priorità della mail (intero, 0=BASSA 1=NORMALE 2=ALTA)
    ' sFile = lista dei file da allegare alla mail (stringa)
    ' sURL = lista delle immagini presenti nel testo della mail (stringa)

    Dim objMail, objFile, arrFile, oneFile, imgName, j

    On Error Resume Next

    '----------------------------------------------'
    Set objMail = Server.CreateObject("CDONTS.NewMail")
    '----------------------------------------------'

    If Err.Number = 0 Then

        ' Setta le PROPRIETA' principali della MAIL

        objMail.From = sFrom
        objMail.To = sTo
        objMail.Cc = ""
        objMail.Bcc = sBcc
        objMail.BodyFormat = iFrm
        objMail.MailFormat = iFrm
        objMail.Importance = iPry
        objMail.Subject = sSub
        objMail.Body = sBody

        ' Allega i FILE da spedire assieme alla MAIL

        Set objFile = CreateObject("Scripting.FileSystemObject") 
        arrFile = split(sFile, " ")
        for j = 0 to uBound(arrFile)
            oneFile = Server.MapPath(arrFile(j))    
          ' path file da allegare
            if objFile.FileExists(oneFile) then
                objMail.AttachFile oneFile	
           ' allega il file (solo se esiste)
            end if
        next
        Set objFile = Nothing

        
        ' Allega le IMMAGINI da mostrare nel BODY (in formato HTML)

        if (iFrm = 0) then
            Set objFile = CreateObject("Scripting.FileSystemObject") 
            arrFile = split(sURL, " ")
            for j = 0 to uBound(arrFile)
                oneFile = Server.MapPath(arrFile(j))    
            ' path img da allegare
                if objFile.FileExists(oneFile) then
                    imgName = Right(oneFile, len(oneFile)-instrrev(oneFile,"\"))
                    objMail.AttachURL oneFile, imgName	
            ' allega l'immagine
                end if
            next
            Set objFile = Nothing 
        end if

        ' Spedisci la MAIL

        objMail.Send 
        Set objMail = Nothing
        SendMail = True

    Else
        
        ' Server non supporta oggetto CDONTS.NewMail

        SendMail = False
    End If

End Function

function fixquotes(strtxt)	
	fixquotes=replace(strtxt,"'","''")	
end function
%>

<div id="contienetutto">

	<div class="panelprofilo" align="center">
		<div style="width:90%" align="center">	

<div></div>
<div align="right">Indietro</div>

<div></div>

		<fieldset class="fieldset">
<%
if (request.form("sSub")="" OR request.form("sBody")="" OR request.form("Bcc")="" ) then

	response.write "

I campi OGGETTO e DESTINATARI e il TESTO della NEWSLETTER non possono essere vuoti.</p>"
%>
	<p align="center">INDIETRO</p>
<%
else

dim conn, rs, testo

set conn=server.createobject("ADODB.Connection")
conn.open("DRIVER={microsoft Access Driver (*.mdb)}; DBQ= " & server.mappath("../mdb-database/newsletter.mdb"))

sForm=request.form("sFrom")
sTo=request.form("sTo")
sSub=request.form("sSub")
sBody=fixquotes(Trim(replace(request.form("sBody"),chr(13)&chr(10),"
")))
iFrm=request.form("iFrm")
iPry=request.form("iPry")
sFile = "/public/"&request.form("allegato")
sUrl=request.form("sURL")

if request.form("Bcc")="SPEDISCI A TUTTI" then
	set rs=conn.execute("SELECT email FROM email ORDER BY email ASC")
		if not rs.eof then
			sBcc = rs.fields("email")
			rs.movenext
			while not rs.eof
				sBcc = sBcc &";"& rs.fields("email")
			rs.movenext
			wend	
		end if
	rs.Close			
	set rs = nothing	
else
	sBcc = request.form("Bcc")
end if	

conn.execute("insert into newsletter(titolo, testo, data, destinatari, allegato)  values('"& sSub &"', '"& sBody &"', Now(), '"& sBcc &"', '"& request.form("allegato") &"')")

conn.Close	
set conn = nothing

if SendMail(sFrom, sTo, sSub, sBody, iFrm, iPry, sFile, sURL) then
%>
 

Newsletter spedita alle ore: <%=Time()%></p>
 

a:

<%=sBcc%></p>
<%
else
	response.write("Si sono verificati degli errori nella spedizione della Newsletter")
end if
end if
%>
	
	</div>
</div>

GRAZIE!!!

[optime]

togli tutte le On Error Resume Next, così ti si ferma in caso di errore, e ti dice cosa è successo

[engi62]

Fatto .............. ma non mi dà ancora niente ... e la mail non arriva ...

[engi62]

RISOLTO!!!

ma non riuscirete mai ad immaginare ...

nella riga

sForm=request.form("sFrom")

c'è scritto FORM invece che FROM!!!!!!!!!!!!!!!!!!


Scusate il disturbo ... comunque erano 24 ore che lo cercavo! Maledetto errore idiota!

:rollo: Engi