Cdonts dove sbaglio?

[slay]

ciao a tutti ho questo codice per invio e-mail cdonts (il mio spazio web lo supporta) il problema è questo non mi invia niente .. dove sbaglio?

<%@ Language = "VBScript" %>
<% 
Dim iMsg, iConf, Flds, azienda1,azienda,nome,email,citta,regione1,regionetelefono,oggetto2,oggetto,provincia,messaggio,lingua

azienda1= Request.Form("azienda")
nome = Request.Form("nome")
email = Request.Form("email")
citta = Request.Form("citta")
regione1 = Request.Form("regione")
telefono = Request.Form("telefono")
oggetto2 = Request.Form("oggetto")
provincia = Request.Form("provincia")
messaggio = Request.Form("messaggio")
lingua= Request.Form("lingua")

if azienda1 = "" then
azienda = "Non Dichiarata"
else
azienda = Request.Form("azienda")
end if

if regione1 = "" then
regione = "Non Dichiarata"
else
regione = Request.Form("regione")
end if


Set iMsg = Server.CreateObject("CDONTS.NewMail")

mittente = email 
destinatario = "info@iiii.it" 
oggetto = "Richiesta informazioni dal sito ii.com" 
messaggio = "Messaggio inviato dal sito ii.com 
 ------------------------------------------------------------------------------
"&_
"Dati del mittente che desidera avere informazioni:  

"&_
"[b]Oggetto:[/b] " & oggetto2 &" 
"&_ 
"[b]Nome Azienda:[/b] " & azienda &" 
"&_ 
"[b]Nome Referente:[/b] " & nome &" 
"&_ 
"[b]Città:[/b]" &citta&" 
"&_
"[b]Provincia:[/b]" &provincia&" 
"&_
"[b]Telefono:[/b]" &telefono&" 
"&_
"[b]E-mail: [/b][email=' "&email&"']"&email&"[/email] 
"&_
"[b]
Messaggio della richiesta: [/b]
"&messaggio&" 
------------------------------------------------------------------------------
"&_
"[b]Il messaggio è stato inviato il: [/b] "&Date()&"
"&_
"[b]Indirizzo ip del mittente:[/b]  "&Request.ServerVariables("REMOTE_ADDR")&""



iMsg.From = mittente 
iMsg.To = destinatario 
iMsg.Subject = oggetto 
iMsg.Body = messaggio 
iMsg.Send()

set iMsg = Nothing 

Response.Redirect("contatti_mappa.asp?conferma=ok&lang=" & lingua &"")
%> 

:master:

[Sr.Aximili]

forse devi dikiarare il server di posta?!?!?! o.o

[Sr.Aximili]

ti metto la funzione ke uso solitamente io...

io programmo xo' in cod behind...

Private Sub Invia_Email(ByVal destinatario As String, ByVal password As String)

            Dim posta As System.Net.Mail.MailMessage
            Dim outsmtp As System.Net.Mail.SmtpClient

        
            posta = New System.Net.Mail.MailMessage
            Dim br As String = "
"

            posta.Subject = "soggetto mail"
            posta.From = New System.Net.Mail.MailAddress("tinviolam@il.it")
            posta.To.Add(New System.Net.Mail.MailAddress(destinatario))


                       outsmtp = New System.Net.Mail.SmtpClient("server invio mail")

            posta.IsBodyHtml = True

            posta.Body = "blablaba "

            posta.Body &= "

Non rispondete a questa e-mail. E' stata inviata da un sistema automatico. " & "
"

            outsmtp.Send(posta)


        End Sub

[Roby_72]

Prova ad usare come mittente uno di quelli configurati nel dominio che spedisce.

Roby

[slay]

ho risolto per chi dovesse spedire tramite cdosys ecco il codice:

<%@ Language = "VBScript" %>
<% 
Dim iMsg, iConf, Flds, azienda1,azienda,nome,email,citta,regione1,regionetelefono,oggetto2,oggetto,provincia,messaggio,lingua

azienda1= Request.Form("azienda")
nome = Request.Form("nome")
email = Request.Form("email")
citta = Request.Form("citta")
regione1 = Request.Form("regione")
telefono = Request.Form("telefono")
oggetto2 = Request.Form("oggetto")
provincia = Request.Form("provincia")
messaggio = Request.Form("messaggio")
lingua= Request.Form("lingua")

if azienda1 = "" then
azienda = "Non Dichiarata"
else
azienda = Request.Form("azienda")
end if

if regione1 = "" then
regione = "Non Dichiarata"
else
regione = Request.Form("regione")
end if

sch = "http://schemas.microsoft.com/cdo/configuration/" 
 
    Set cdoConfig = CreateObject("CDO.Configuration") 
 
    With cdoConfig.Fields 
        'Set CDO Port 
        .Item(sch & "sendusing") = 2
        'Set mailserver name either IP address, mail.yoursite.com or localhost 
        .Item(sch & "smtpserver") = "mail.sito.com"
        'Set SMTP port which is 25 by default 
        .Item(sch & "smtpserverport") = 25 
        'Set number of seconds before timeout 
        .Item(sch & "smtpconnectiontimeout") = 60 
        .update 
    End With 
 
    Set cdoMessage = CreateObject("CDO.Message") 

'Spedizione: mittente, destinatario, oggetto, messaggio 
mittente = email 
destinatario = "info@email.it" 
oggetto = "Richiesta informazioni dal sito sito.com" 
messaggio = "Messaggio inviato dal sito sito.com 
 ------------------------------------------------------------------------------
"&_
"Dati del mittente che desidera avere informazioni:  

"&_
"[b]Oggetto:[/b] " & oggetto2 &" 
"&_ 
"[b]Nome Azienda:[/b] " & azienda &" 
"&_ 
"[b]Nome Referente:[/b] " & nome &" 
"&_ 
"[b]Città:[/b]" &citta&" 
"&_
"[b]Provincia:[/b]" &provincia&" 
"&_
"[b]Regione:[/b]" &regione&" 
"&_
"[b]Telefono:[/b]" &telefono&" 
"&_
"[b]E-mail: [/b][email=' "&email&"']"&email&"[/email] 
"&_
"[b]
Messaggio della richiesta: [/b]
"&messaggio&" 
------------------------------------------------------------------------------
"&_
"[b]Il messaggio è stato inviato il: [/b] "&Date()&"
"&_
"[b]Indirizzo ip del mittente:[/b]  "&Request.ServerVariables("REMOTE_ADDR")&""

    With cdoMessage 
        Set .Configuration = cdoConfig 
        .From = mittente
        .To = destinatario
        .Subject = oggetto 
        'Send the email in HTML format 
        .HTMLBody = messaggio 
        .Send 
    End With 
 
Set cdoMessage = Nothing 
Set cdoConfig = Nothing 

Response.Redirect("contatti_mappa.asp?conferma=ok&lang=" & lingua &"")
%> 

[Roby_72]

Peccato che questo è CDOSYS e non CDONTS....

Roby

[slay]

Originariamente inviato da Roby_72
Peccato che questo è CDOSYS e non CDONTS....

Roby

ehh.. si scusa nella fretta ... senti ti volevo chiedere una cosa cdonts e cdosys possono coesistere oppure o c'è l'uno o l'altro .. perchè il mio manteiner mi ha detto che ho cdonts .. forse si è sbagliato

[Roby_72]

Possono coesistere...

Roby