Salve!

Dopo ormai quasi un mese di studio e smanettate varie comincio a prendere una certa dimistichezza con il linguaggio (era ora). Di certo non dimentico che ancora ho molto da imparare ed è proprio per questo che mi trovo quì a postare:

in seguito alla realizzazione di un sistema per la creazione dinamica di pagine HTML mi ritrovo davanti a un vicolo ceco. Ho sempre utilizzto CDOSYS per l'invio di mail (coi famigerati VbCrLf come newlines) :-)

E' arrivato il momento di inviare e-mail HTML!!

Vorrei sapere il modo più rapido e "stabile" (visto che CDOSYS a volte, chissà per quale motivo, invia le e-mail a distanza di ore) per inviare e-mail utilizzando il formato HTML in modo da poter utilizzare i fantastici <br /> e non VbCrLf e poter gestire le dimensioni e i colori anziché avere uno scarno testo in b/n.

Prima o poi da quà ci passiamo tutti :D

Grazie,
Claudio

Ho letto il mini-howto smanettando un pò col codice ma non sono riuscito a produrre risultati: mi và sempre in "Server Application Error".

Peccato perchè, sorvolando sull'impossibilità di specificare un SMTP per l'invio, é comodo ed interessante il sistema di implementazione mail basato sui NameSpaces (i quali non conoscevo ancora applicati ad ASP.NET).

Chiaramente sono alla ricerca di soluzioni alternative.

Grazie,
Claudio

Leggi qui:
http://www.masterdrive.it/default.asp?modulo=Leggi&contenuto_id=781

Ops, scusa, è codice per asp.net.

Se scrivi questo codice:

<%
Dim MiaMail
Set MiaMail = Server.CreateObject("CDONTS.NewMail")
MiaMail.From = "xx@xx.it"
MiaMail.To = "yy@yy.it"
MiaMail.Subject = "CDONTS"
MiaMail.BodyFormat = 0
MiaMail.MailFormat = 0
MiaMail.Importance = 2
MiaMail.Body = "CDONTS<br />ciao"
MiaMail.Send
Set MiaMail = Nothing
%>

E non funziona, giusto?

Con questo:
<%
Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = "xx@xx.it"
MiaMail.To = "yy@yy.it"
MiaMail.Subject = "cdosys"
'MiaMail.TextBody = "CDOSYS<br />ciao"
MiaMail.HTMLBody = "CDOSYS<br />ciao"
MiaMail.Fields("urn:schemas:httpmailmportance").Value = 2
MiaMail.Fields.Update()
MiaMail.Send()
Set MiaMail = Nothing
%>

Funziona?

Ciao