problema con cdosys

[ghis]

Buongiorno,
da un sito invio una mail che dovrebbe arrivare a chi si iscrive ed al admin del sito.
A chi si iscrive arriva all'admin invece ritorna un messaggio di questo tipo

This is an automatically generated Delivery Status Notification.

Delivery to the following recipients failed.

       miamail@miamail.it

il bello e che la mail con questo testo arriva nella mail a chi si iscrive!!!!
Inoltre la mail che arriva a chi si si iscrive è in formato testo ed invece dovrebbe essere in Html.

Ecco lo script

 
Function InvioMail(byVal ServerMail, byVal Mittente, byVal Destinatario, byVal Titolo, byVal Corpo)

		Dim objmessage
		Set objmessage = Server.CreateObject("CDO.Message")
		objmessage.From = Mittente
		objmessage.To = Destinatario
		objmessage.Subject = Titolo
		objmessage.HTMLBody = Corpo

		On Error Resume Next
		objmessage.Send
		InvioMail = True
		Set objmessage = Nothing
If Result = 1 Then
'			InvioMail = True
'		Else
'			InvioMail = False
'		End If

	End Function

e questo invia i dati

'---Invio la mail di conferma ordine al webmaster
					Select Case QSPagamento
						Case "Bonifico"
							NomeTipoPagamento = TestoBonifico
							InfoPagamento = InfoBonifico
						Case "Contrass"
							NomeTipoPagamento = TestoContrassegno
							InfoPagamento = InfoContrassegno
						Case "CCredito"
							NomeTipoPagamento = TestoCartaDiCredito
							InfoPagamento = InfoCartaDiCredito
					End Select
					
					If ConfermaAcquistoAlWebmaster = True Then
						MailBody = BodyConfermaOrdineWebmaster
						If Rivenditore Then
							RivText = "Rivenditore"
						Else
							RivText = "Cliente"
						End If
						MailBody = Replace(MailBody, "[IDOrdine]", IDOrdine, 1, -1, 1)
						MailBody = Replace(MailBody, "[Rivenditore]", RivText, 1, -1, 1)
						MailBody = Replace(MailBody, "[UserID]", UserID, 1, -1, 1)
						MailBody = Replace(MailBody, "[nome]", Nome, 1, -1, 1)
						MailBody = Replace(MailBody, "[cognome]", Cognome, 1, -1, 1)
						MailBody = Replace(MailBody, "[indirizzo]", Via, 1, -1, 1)
						MailBody = Replace(MailBody, "[civico]", Civico, 1, -1, 1)
						MailBody = Replace(MailBody, "[cap]", Cap, 1, -1, 1)
						MailBody = Replace(MailBody, "[citta]", Citta, 1, -1, 1)
						MailBody = Replace(MailBody, "[provincia]", Provincia, 1, -1, 1)
						MailBody = Replace(MailBody, "[stato]", Stato, 1, -1, 1)
						MailBody = Replace(MailBody, "[telefono]", Telefono, 1, -1, 1)
						MailBody = Replace(MailBody, "[codfiscale]", CodiceFiscale, 1, -1, 1)
						MailBody = Replace(MailBody, "[piva]", PartitaIva, 1, -1, 1)
						MailBody = Replace(MailBody, "[mail]", EMail, 1, -1, 1)
						MailBody = Replace(MailBody, "[pagamento]", NomeTipoPagamento, 1, -1, 1)
						MailBody = Replace(MailBody, "[listaprodotti]", ListaProdotti, 1, -1, 1)
						MailBody = Replace(MailBody, "[puntisconto]", VisualizzaPrezzo(QSPuntiUsati), 1, -1, 1)
						MailBody = Replace(MailBody, "[spesespedizioneeuro]", VisualizzaPrezzo(SpeseSpedizione) & " " & TestoValuta & " " & IvaInclusa, 1, -1, 1)
						MailBody = Replace(MailBody, "[totaleeuro]", VisualizzaPrezzo(TotaleIvato) & " " & TestoValuta & " " & IvaInclusa, 1, -1, 1)
						MailBody = Replace(MailBody, "[note]", QSNote, 1, -1, 1)
						MailBody = Replace(MailBody, "[firma]", FirmaEMail, 1, -1, 1)
						MailBody = Replace(MailBody,"
", VbCrLf, 1, -1, 1)
						InvioMail MailServer, EMail, MailAdmin, Replace(SubjectConfermaOrdineWebmaster, "[idordine]", IDOrdine, 1, -1, 1), MailBody
					End If

'---Invio la mail di conferma ordine al cliente
					If ConfermaAcquistoAlCliente = True Then
						
	
						MailBody = BodyConfermaOrdineCliente
						MailBody = Replace(MailBody, "[IDOrdine]", IDOrdine, 1, -1, 1)
						MailBody = Replace(MailBody, "[statoordine]", OrdineOK, 1, -1, 1)
						MailBody = Replace(MailBody, "[pagamento]", NomeTipoPagamento, 1, -1, 1)
						MailBody = Replace(MailBody, "[listaprodotti]", ListaProdotti, 1, -1, 1)
						MailBody = Replace(MailBody, "[puntisconto]", VisualizzaPrezzo(QSPuntiUsati), 1, -1, 1)
						MailBody = Replace(MailBody, "[puntiscontoavanzati]", VisualizzaPrezzo(PuntiScontoUtente - QSPuntiUsati), 1, -1, 1)
						MailBody = Replace(MailBody, "[spesespedizioneeuro]", VisualizzaPrezzo(SpeseSpedizione) & " " & TestoValuta & " " & IvaInclusa, 1, -1, 1)
						MailBody = Replace(MailBody, "[totaleeuro]", VisualizzaPrezzo(TotaleIvato) & " " & TestoValuta & " " & IvaInclusa, 1, -1, 1)
						MailBody = Replace(MailBody, "[note]", QSNote, 1, -1, 1)
						MailBody = Replace(MailBody, "[infopagamento]", InfoPagamento, 1, -1, 1)
						MailBody = Replace(MailBody, "[firma]", FirmaEMail, 1, -1, 1)
						MailBody = Replace(MailBody, "
", VbCrLf, 1, -1, 1)
						InvioMail MailServer, MailAdmin, EMail, Replace(SubjectConfermaOrdineCliente, "[idordine]", IDOrdine, 1, -1, 1), MailBody
					End If
				End If
			End If
		Else
			Response.Redirect "errore.asp?cod=303"
		End If
	End If

	If QSPagamento = "CCredito" Then	
'---Reindirizzo alla pagina di gestione della carta di credito
		Response.Redirect "bancasella.asp?p=" & TotaleIvato & "&idordine=" & IDOrdine
	Else
'---Reindirizzo alla pagina di conferma ordine
		Response.Redirect "ordine_confermato.asp?idordine=" & IDOrdine
	End If
%>

Ho provato a cambiare la mail, il server di posta ecc ma niente. Dove sbaglio.
Grazie

[Roby_72]

La mail ritorna a chi la invia...

objmessage.From = Mittente

Il mittente qual'è?

Roby

[ghis]

la mail parte dal mittente (admin) ed arriva a chi si iscrive.
la mail dell'admin non arriva e ritorna con questo messaggio a chi si iscrive come se l'avesse inviata lui all'admin

This is an automatically generated Delivery Status Notification.

Delivery to the following recipients failed.

       miamail@miamail.it

Non riesco a capire il perchè.

[Fichico]

il messaggio ti arriva perchè la mail non arriva ad uno dei due destinatari

se all'utente arriva, vuol dire che la variabile in cui hai memorizzato la mial dell'admin è sbagliata, nel caso direi ad intuito che hai una variabile che contiene tale indirizzo ed è valorizzata a "miamail@miamail.it"

[ghis]

ho controllato la variabile ed è esatta eccola

Dim UrlEcom, MailAdmin, MailServer
UrlEcom = "http://www.miosito.it"  'Url sito e-Commerce
MailAdmin = "miamail@miamail.it"  'Indirizzo Admin
MailServer = "smtp.miosito.it"  'Indirizzo Mail Server

Non capisco perchè non arriva all'admin ma sopratutto perchè la mail non ritorna all'admin che è il mittente ma ritorna alla mail del destinatario.

Non mi ci raccapezzo più.

[ghis]

dai ragazzi ho bisogno una dritta

[ghis]

Risolto.
Ho inserito la mail al posto di "mittente" e funziona.
objmessage.From = "miamail@miamail.it"

La mail mi arriva però ancora in formato testo nonostante abbia HTMLBody.
Se cambio in Textbody mi arriva in Html non formattata correttamente....

sapete perchè