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
codice:
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
codice:
 
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
codice:
'---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