Salve,
vorrei proporvi un problema che non riesco a risolvere:
Avevo un codice per inviare email con cdonts che girava sotto windows NT. Il codice spediva mail e inviava le immagini inline ovvero un software come outlook le mostrava senza dover essere collegato alla rete. CDONTS per far ciò utilizzava il metodo attachURL. Poi per una serie di motivi son dovuto passare a CDO e dopo una serie di problemi sono riuscito a ricreare la mail , ma ora le immagini arrivano in allegato e non vengono visualizzate nel messaggio. Ho utilizzato il metodo AddRelatedBodyPart come suggerito da Microsoft ma senza esito.
Sapete dirmi dove sbaglio?

Di seguto trovate il vecchio codice e poi quello nuovo.

CODICE CON CDONTS

Set objMail = New CDONTS.NewMail
objMail.From = "io<" & p_From & ">"
objMail.To = EmailDestinatario
objMail.Subject = Soggetto
objMail.TextBody = Testo
objMail.Importance = 0
If HtmlMail Then
objMail.BodyFormat = 0
objMail.MailFormat = 0
Set Elenco = Template.ListaAllegati
For Each allegato In Elenco
objMail.AttachURL allegato.Percorso & "\" & allegato.NomeFile, allegato.NomeFile
Next

Else

objMail.BodyFormat = 1
objMail.MailFormat = 1
End If
objMail.Send



CODICE CON CDO



Set objMail = New CDO.Message
objMail.From = "io<" & p_From & ">"
objMail.To = EmailDestinatario
objMail.Subject = Soggetto
If HtmlMail Then
objMail.BodyPart.ContentTransferEncoding = "quoted-printable"


Set Elenco = Template.ListaAllegati
For Each allegato In Elenco
objMail.AddRelatedBodyPart allegato.Percorso & "\" & allegato.NomeFile, allegato.NomeFile, cdoRefTypeId
Next
objMail.HTMLBody = Testo
Else
objMail.TextBody = Testo
End If
objMail.Send