CDOSYS

[iperuber]

sono costretto a dover convertire il vecchio script in CDONTS in CDOSYS. Ho trovato uno schema base x invio mail e funziona. Voglio però leggere il contenuto delle textbox contenute nella pagina html ed inviarle per mail (oggetto, soggetto, body, ecc).

In CDONTS facevo così:
msg.Subject = Request.Form("oggetto")

come fare la stessa cosa con CDOSYS? Sarà l'orario, ma non mi è sembrato funzionasse seguendo la stessa sintassi.

:master:

[maximum]

Ecco un esempio:

<%
' istanzio le costanti per invio
DIM iMsg, Flds, iConf
		
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
		
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it" 
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update							

'Recupero i campi della pagina precedente
campo1 = trim(request.form("campo1"))
campo2 = trim(request.form("campo2")) 
'compone e spedisce la mail 
strFrom = "A TUO PIACIMENTO"
sBody = "IL campo1 vale: " & campo1 & ". Il campo2 vale: " & campo2 
With iMsg
     Set .Configuration = iConf
     .To = "QUI LA MAIL DEL DESTINATARIO"
     .From = strFrom
     .Sender = "QUI LA MAIL DEL MITTENTE"
     .Subject = "Quello che vuoi"
     .HTMLBody = sBody
     .Send
End With
%>

La parte in grassetto ti dimostra come recuperare i campi.