ho questo codice:
codice:... sql_mail= "SELECT * " sql_mail= sql_mail + "FROM email " sql_mail= sql_mail + "WHERE tipologia='"&area&"';" set obj_mail = Server.CreateObject("adodb.Recordset") set obj_mail = objConn.Execute (sql_mail) indirizzo=obj_mail("email") Dim iMsg, iConf, Flds 'Crea l'oggetto email Set iMsg = CreateObject("CDO.Message") 'Crea l'oggetto configurazione Set iConf = CreateObject("CDO.Configuration") 'Impostazione delle configurazioni per l'invio remoto Set Flds = iConf.Fields Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True 'Spedizione: mittente, destinatario, oggetto, messaggio mittente = Request.Form("email") destinatario = indirizzo oggetto = "reclamo " & area messaggio = "e_mail inviata da " & Request.Form("nome") & " " & Request.Form("cognome") & " " & Request.Form("rag_sociale")& " " & Request.Form("email")& " il reclamo è: " & Request.Form("testoreclamo") With iMsg 'Assegnazione delle configurazioni Set .Configuration = iConf .From = mittente .To = destinatario .Subject = oggetto 'Formato HTML .HTMLBody = messaggio 'Formato testo (scegliere) .TextBody = messaggio 'Invio di una pagina web .CreateMHTMLBody "http://www.novacomitalia.com/home/" 'Invio con allegato '.AddAttachment server.mappath("/public/test.txt") 'Invia l'email .Send() end with set Flds = Nothing set iConf = Nothing set iMsg = Nothing %>
non mi va in errore ma non mi spedisce la mail qual'è il problema?
il codice è quello preso da:
http://freeasp.html.it/script/view_script.asp?id=281
aiuto
Rispondi quotando
