|
Esempio di utilizzazione di CDONTS
di Nino Vessella
2000 12 05
Funzione da richiamare con i seguenti parametri:
sDaIndirizzo = indirizzo mittente
sDaNome = nome mittente
sAIndirizzo = indirizzo destinatario
sANome = Nome destinatario
sOggetto = Oggetto del messaggio
sMessaggio = Testo del messaggio
lBcc = Se "true" una copia del messaggio viene
inviata anche al mittente
La funzione riporta una stringa vuota, se tutto é andato bene,
altrimenti riporta la descrizione dell'errore inoltre se si sta
provando in locale non invia il messaggio ma lo stampa a schermo
Si possono utilizzare tantissimi altri parametri.
Per una documentazione completa di CDONTS leggere:
http://msdn.microsoft.com/library/psdk/cdo/
purtroppo in inglese.
<SCRIPT TYPE = "text/javascript">
<!--
Function Invia(sDaIndirizzo, sDaNome, sAIndirizzo, sANome, sOggetto, sTesto, lBcc)
Dim oPosta
ifInStr((server.MapPath(Request.ServerVariables("PATH_INFO"))),"E:\Web\Mio\")<>0 then
' Lavora in locale (Personal Web Server)
Invia= _
"<BR>Messaggio spedito" & _
"<BR>Da: " & sDaNome& "<" & sDaIndirizzo &">" & _
"<BR>A: " & sAIndirizzo & _
"<BR>Oggetto: " & sOggetto & "
" & _
"<BR>Messaggio: " & sMessaggio & "
"
else
Set oPosta = Server.CreateObject("CDONTS.NewMail")
If err.number>0 then
Invia = _
"<B>" & msgErroreMsg & "</B><BR>" & _
"Codice: " & err.number & "<BR>" & _
"Descrizione: " & err.description & "<BR>" & _
"Guida: " & err.helpcontext & " - " & _
err.helppath & "<BR>" & _
"Origine: " & err.source & "<P>"
Else
oPosta.BodyFormat = 1
oPosta.MailFormat = 1
oPosta.From = sDaNome & "<" & sDaIndirizzo & ">"
oPosta.Value("Reply-To") = sDaNome & "<" & sDaIndirizzo & ">"
oPosta.To = sAIndirizzo ' Indirizzo destinatario
if lBcc then
oPosta.Bcc = sDaIndirizzo
end if
oPosta.Subject = sOggetto ' Oggetto
oPosta.Body = sMessaggio ' Messaggio
oPosta.Send
Invia = ""
End If
Set oPosta = Nothing
end if
End Function
//-->
</SCRIPT>
|
Attenzione: se questo codice deve essere inserito in una pagina tramite l'istruzione
<!-- #include file=.... -->, come, ad esempio, in Protezione
di siti con codice di accesso, con possibilitá di richiesta di autorizzazione,
sostituire le prime e le ultime due righe:
<SCRIPT TYPE = "text/javascript">
<!--
... omissis ...
//-->
</SCRIPT>
|
con le seguenti:
Ultima revisione: 2001 01 22
Numero di lettori:
|
