Inviare una e-mail con CDOSYS

<% recipients = recipients & obxRS("mail") & "," recipients = left(recipients,Len(recipients)-1)  Set myMail=CreateObject("CDO.Message") myMail.Subject= stroggetto myMail.From= "inserire qui l'email del mittente" myMail.To = recipients myMail.HtmlBody = "Inserire il testo del messaggio myMail.Send set myMail=nothing   %>

Recipients è una variabile che permette di estrarre una serie di e-mail da un database, per inviare più e-mail contemporaneanente. Se dobbiamo inviare una sola e-mail basta inserire l'e-mail al posto della variabile recipients.

Le prime due righe  dello script permettono di inglobare in un unica variabile (recipients) tutte le e-mail estratte dal database, aggiungendo una virgola tra una e-mail e l'altra.

Commenta questo articolo Visualizza i commenti (-0,5)