Ciao ragazzi,
non riesco ad inviare una mail scrivendo nel corpo dei dati che prendo da un db, in pratica non fa il ciclo while....mi potete aiutare:
Codice:
MiaMail.From = "pippo@eeee.it"
MiaMail.To = "pippo@eeee.it"
MiaMail.Subject = "Nuovo ordine"
Do While not oRs.eof
pippo=oRs("dM")&" | "& oRs("d") &" | "& oRs("C")&" | "& oRs("qta")&" | "& oRs("prezzo")
oRs.movenext
loop
MiaMail.HtmlBody = strBody & pippo &"|"& oRs.recordcount
MiaMail.Fields("urn:schemas:httpmail:importance"). Value = 2
MiaMail.Fields.Update()
MiaMail.Send()
Set MiaMail = Nothing
grazie Lia