CDOSYS e invio email multiple...

[Iron83]

Ciao a tutti,

utilizzo questo script per segnalare un sito ad un amico, testandolo mi sono accorto che sarebbe comodo aggiungere due campi email in più per creare un invio multiplo, non conoscendo molto questo oggetto non so come comportarmi. Posto il codice:

'Impostiamo le nostre preferenze

Dim Destinatario, Mittente, Oggetto, Testo,



Destinatario = Replace(Request.form("email_amico"), "'", "''")
Mittente = "email@destinatario.it"
Oggetto = request.form ("tuo_nome") 
Testo = request.form ("messaggio")

'Creiamo l'oggetto mail con CDOSYS
Dim eMail
Set eMail = CreateObject("CDO.Message")

'Definiamo i diversi attributi della nostra mail
eMail.From = Mittente
eMail.To = Destinatario
eMail.Subject = Oggetto

'Se il testo è in Html useremo HTMLBody al posto di TextBody
eMail.TextBody = Testo

'Stabiliamo il livello di importanza (1 o 2)
eMail.Fields("urn:schemas:httpmail:importance").Value = 2
eMail.Fields.Update()

'Inviamo la mail!
eMail.Send()

'Eliminiamo l'oggetto...
Set eMail = Nothing 

[ale_1976]

Ciao...

crea un array che contiene i vari indirizzi mail, poi fai uno split degli indirizzi.
Infine fai un ciclo posizionandolo tra la riga di creazione dell'oggetto e quella che setta la variabile a nothing...

quindi:
hai l'array che contiene ad esempio tre indirizzi tipo
array_email= "email1@ hotmail.it, email2@ hotmail.it, email3@ hotmail.it"
poi fai uno split tipo
email_to=split(array_email, ", ")

dopo Set eMail = CreateObject("CDO.Message")

metti ad esempio

for a=0 to Ubound(email_to) (qui fai una prova, perché se da errore devi mettere -1, perché l'array parte da 0)

qua riporti il corpo della mail mettendo come email.to i valori diversi

eMail.From = Mittente
eMail.To = ....qua metti email_to(a) così prende il valore nuovo ad ogni ciclo
eMail.Subject = Oggetto

'Se il testo è in Html useremo HTMLBody al posto di TextBody
eMail.TextBody = Testo

'Stabiliamo il livello di importanza (1 o 2)
eMail.Fields("urn:schemas:httpmail:importance").Va lue = 2
eMail.Fields.Update()

'Inviamo la mail!
eMail.Send()


next

e poi la riga di chiusura
set email=nothing


prova...dovrebbe andare