13 messaggi dal 14 febbraio 2002

devo spedire email
ogni volta che mi arrivano dei dati
mi servirebbero consigli
ciaooo e grazie

1.605 messaggi dal 06 settembre 2002
prova a leggere questo articolo:

http://www.aspitalia.com/articoli/cdomail.asp

FORZA LA MAGICA ROMA

FORZA LA MAGICA ROMA
19 messaggi dal 02 aprile 2002
prova cosi':

--------------

<script language="VBScript" RUNAT = SERVER>


function SpedisciMail(mailto, subject, body)


Dim objCDO

'-------------------------------------------------------------------------------------
' creo l'oggetto che mi permetterà di inviare la posta, la tipologia dell'oggetto è
' CDONTS.NewMail
'-------------------------------------------------------------------------------------
Set objCDO=Server.CreateObject("CDONTS.NewMail")

'-------------------------------------------------------------------------------------
' Imposto i campi che mi interessano per costruire il messaggio di posta elettronica
' che verrà inviato automaticamente. I campi possono essere gestiti anche tramite una
' form di immissione dati.
'-------------------------------------------------------------------------------------
objCDO.To = mailTo
objCDO.From = session("email")
objCDO.Subject = subject
objCDO.Body = body
'objCDO.AttachFile = fieldAttachment 'se presente il file da allegare
objCDO.MailFormat = 0 ' 1=formato testo 0=formato HTML
objCDO.BodyFormat = 0 ' 1=formato testo 0=formato MIME
objCDO.Importance = 2

'-------------------------------------------------------------------------------------
' Invio il messaggio di posta elettronica
'-------------------------------------------------------------------------------------
objCDO.send

'-------------------------------------------------------------------------------------
' Controllo del codice di errore, se tale codice è diverso da 0 richiamo la pagina di
' gestione degli errori e visualizzo il codice ed il messaggio di errore
'
' IMPORTANTE: APPENA INVIATO IL MESSAGGIO E' NECESSARIO DISTRUGGERE L'OGGETTO CREATO
' IN PRECEDENZA, ALTRIMENTI NON SARA' POSSIBILE INVIARNE DEGLI ALTRI.
'-------------------------------------------------------------------------------------
Set objCDO = Nothing
if err <> 0 then'
errCode = err.number
errDescr = err.description
stringaURL = "error.asp?ErrorType=MailSender&ErrorCode=" & errCode
stringaURL = stringaURL & "&ErrorDescription=" & errDescr
else
stringaMsg = "Messaggio inviato correttamente a " & fieldTo
Response.write stringaMsg
end if
end function
</script>
-----------------

harley

harley

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.