Invio email

[Dudu4ever]

Ciao a tutti, sto cercando un buon metodo per l'invio di una mail da un'applicazione ASP.

Quelle fin'ora trovate non mi funzionano, CDONTS, CDOSYS..chi mi sa aiutare? magari sbaglio qualcosa nelle impostazioni, ad esempio con CDOSYS scritto così:

<%
    Set Mail = Server.CreateObject("CDO.Message")
    Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort 
    Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "nome_server_smtp"
    Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
    
    
    Mail.from= "mittente"
    mail.to = "destinatario"
    Mail.Subject = "prova"
    mail.textbody = "Ciaoooo"
    'Mail.Fields.Update()
    Mail.send
    set Mail = Nothing
    
    %>

Grazie a tutti

[Fichico]

Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "nome_server_smtp"

hai messo una stringa, devi mettere localhost

Mail.from= "mittente"
mail.to = "destinatario"
devi metter due indirizzi email validi e non due stringhe

[max1975_na]

prova questo... a me funziona perfettamente!

<% response.buffer = true    

rem ----- Prendo i dati passati dal modulo con il metodo POST --------------
         nome = request.form("nome")
         email = request.form("email")
         testo = request.form("testo")

 crlf = chr(13) + chr(10) ' a capo
 
    text = text & "*****************************" & crlf
    text = text & "Messaggio da:" & nome & "" & crlf
    text = text & "E-Mail:" & email & "" & crlf
    text = text & "Richiesta:" & testo & "" & crlf
    text = text & crlf
    
    cBodyText = text


'---Script per CDOSYS 
Dim Mail

sch = "http://schemas.microsoft.com/cdo/configuration/"

set Mail = server.CreateObject("CDO.Message") 
Set iConf = CreateObject("CDO.Configuration")

With iConf.Fields 
     .Item(sch & "sendusing") = 2 ' cdoSendUsingPort 
     .Item(sch & "smtpserver") = "localhost"
     .update 
End With 

With Mail
 Set.Configuration = iConf 
 .From = Cstr(trim(email))
 .To = "info@tuamail.it"
 .Subject = "Richiesta Informazioni"
 .TEXTBody = cBodyText
 .Fields("urn:schemas:httpmail:importance").Value = 2
 .Send 
end With 

set Mail=nothing 
set iConf=nothing
%>

<script language="JavaScript">
    location.href('HelpDesk_ok.asp');
</script> 

[Dudu4ever]

Funziona alla grande..grazie mille!!

[Dudu4ever]

Originariamente inviato da Fichico
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "nome_server_smtp"

hai messo una stringa, devi mettere localhost

Mail.from= "mittente"
mail.to = "destinatario"
devi metter due indirizzi email validi e non due stringhe

Ovviamente poi nel mio codice non c'era scritto "mittente", "destinatario" ecc ma i valori giusti :P

Il codice postato da Max invece funziona perfettamente..grazie!