problema con CreateMHTMLBody

[nicolaberti]

Salve, ho questo codice

	Set myMail=CreateObject("CDO.Message")
	with myMail
	.Subject="Nuovo ordine" 
	.From=str_from
	.To=str_to
	.CreateMHTMLBody "http://www.miosito.it/pagina.asp?id_ordine=xyz"
	.Send
	end with
	set myMail=nothing

Il problema è questo, sto cercando di inviare come contenuto della mail il dettaglio di un ordine che viene caricato da una pagina.asp.
Se nel parametro .CreateMHTMLBody inserisco un qualsiasi pagina di un server esterno (es: google.it) tutto funziona e mi arriva in email la pagina selezionata, ma non funziona per qualsiasi pagina io inserisca del mio server... (WIN SBS 2008 con exchange)

Questo è l'errore che mi restituisce:
CDO.Message.1 error '800c0008'
Download della risorsa specificata non riuscito.

Chi sa dirmi dove sbaglio?

[vem]

Ciao nicolaberti, perchè non usi semplicemente HTMLBody?

[nicolaberti]

Originariamente inviato da vem
Ciao nicolaberti, perchè non usi semplicemente HTMLBody?

Con HTMLBody, dovrei ricostruire tutto il codice del layout della pagina che è un po' complesso e contiente dati dinamici che provengono da database, poi se devo fare una modifica così mi risulta molto più semplice.

[nicolaberti]

Originariamente inviato da nicolaberti
Con HTMLBody, dovrei ricostruire tutto il codice del layout della pagina che è un po' complesso e contiente dati dinamici che provengono da database, poi se devo fare una modifica così mi risulta molto più semplice.

Qualcuno mi sa dare qualche altra soluzione?
Grazie

[lucavizzi]

Probabilmente è perchè mancano le configurazioni.
Ti posto un esempio, ma potrebbero rendersi necessarie impostazioni diverse a seconda del tuo provider.

			Set objMail = Server.createObject("CDO.Message")
			Set objConfig = Server.createObject ("CDO.Configuration")
			With objConfig
				.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.tuodominio.it"
				.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
				.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
				.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
				.Fields.update
			End With
			Set objMail.Configuration = objConfig