Ciao a tutti,
ho cercato nel forum materiale sul CDONTS e alla fine ho assemblato il codice, solo che quando compilo il form, non mi dà errore ma neanche invia:
Ovviamente le variabili del modulo le recupero prima con un request.form... secondo voi perchè non funziona?codice:Dim strBody strBody= strBody & "<html><head>" strBody= strBody & "</head>" strBody= strBody & "<body>" strBody= strBody & "Nome:" & nome & "</br> " strBody= strBody & "Cognome:" & cognome & "</br> " strBody= strBody & "Oggetto:" & oggetto & "</br> " strBody= strBody & "E-mail:" & email & "</br> " strBody= strBody & "Nome allegato:" & NomeFile1 & "</br> " strBody= strBody & "Testo della mail:" & testo & "</br> " strBody= strBody & "</body>" strBody= strBody & "</html>" '****************** ' INIZIO COMPONENTE CDONTS '****************** 'DICHIARAZIONE E CREAZIONE DELL'OGGETTO: Dim objCDONTS Set objCDONTS = Server.CreateObject("CDONTS.NewMail") with objCDONTS .From = mail .To = "miamail@miamail.it" .Importance = 1 .BodyFormat = 1 .Subject = oggetto .AttachFile Server.MapPath("/public/allegati/" & NomeFile1) .Body = strBody .Value("Disposition-Notification-To") = "miamail@miamail.it" .Send() end with ' Distruggo l'oggetto CDONTS Set objCDONTS = Nothing '****************** ' FINE COMPONENTE CDONTS '******************
Rispondi quotando
