ecco il codice...
************************************
Dim iMsg
Dim iConf
Dim Flds
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
Flds.Update
pippo = "0"
users = ""
cont = 0
strsql = "SELECT DISTINCT(u.mail_1) FROM SPEDIZIONE_UTENTI us, UTENTI u WHERE us.utenti_id = u.id AND us.spedizione_id = " & id
ObjRS.Open strsql,ObjConn,1,3
do while not ObjRS.EOF
With iMsg
Set .Configuration = iConf
.CreateMHTMLBody "http://www.XXXXXXX.it/webapps/mailer/adv_page.asp?id="&id&"&template_id="&template_id
.To = "[email protected]"
.Bcc = ObjRS("mail_1")
.From = "[email protected]"
.Subject = subject_mail
.Send
End With
cont = cont + 1
ObjRS.MoveNext
Loop
ObjRS.Close
**********************************************************
coi test interni (3 o 4 indirizzi) funziona. quando la query prende 1000 o 2000 indirizzi.... mi risulta che non tutte e mail vengono spedite correttamente....
server aruba.
DOVE CAVOLO SBAGLIO???
ipotesi che ho fatto io:
1. gli indirizzi email a volte non sono buoni, malscritti ... equindi mandano in timeout la cosa.
2. bug assurdo
Nella prima versione, durante il ciclo SQL costruivo SOLO la stringa con gli indirizzi e poi facevo una mail sola con tutti i destinatari in CCN.
risutato: alcuni indirizzi ricevono piu' volte la mail.
Allora ho cambiato facendo una mail per ogni indirizzo (notare che c'e' il DITINCT per cui gli indirizzi SOnO SEMPRE UNICI).
cosa sbglio???
************************************
Dim iMsg
Dim iConf
Dim Flds
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
Flds.Update
pippo = "0"
users = ""
cont = 0
strsql = "SELECT DISTINCT(u.mail_1) FROM SPEDIZIONE_UTENTI us, UTENTI u WHERE us.utenti_id = u.id AND us.spedizione_id = " & id
ObjRS.Open strsql,ObjConn,1,3
do while not ObjRS.EOF
With iMsg
Set .Configuration = iConf
.CreateMHTMLBody "http://www.XXXXXXX.it/webapps/mailer/adv_page.asp?id="&id&"&template_id="&template_id
.To = "[email protected]"
.Bcc = ObjRS("mail_1")
.From = "[email protected]"
.Subject = subject_mail
.Send
End With
cont = cont + 1
ObjRS.MoveNext
Loop
ObjRS.Close
**********************************************************
coi test interni (3 o 4 indirizzi) funziona. quando la query prende 1000 o 2000 indirizzi.... mi risulta che non tutte e mail vengono spedite correttamente....
server aruba.
DOVE CAVOLO SBAGLIO???
ipotesi che ho fatto io:
1. gli indirizzi email a volte non sono buoni, malscritti ... equindi mandano in timeout la cosa.
2. bug assurdo
Nella prima versione, durante il ciclo SQL costruivo SOLO la stringa con gli indirizzi e poi facevo una mail sola con tutti i destinatari in CCN.
risutato: alcuni indirizzi ricevono piu' volte la mail.
Allora ho cambiato facendo una mail per ogni indirizzo (notare che c'e' il DITINCT per cui gli indirizzi SOnO SEMPRE UNICI).
cosa sbglio???