asp - invio emailcon cdosys

[ngs]

salve,

sto provando ad inviare una mail normale con cdosys ma con questo codice :

Dim Mail
Set Mail = CreateObject("CDO.Message")


Mail.Subject="Sending email with CDO"
Mail.From="mas@libero.it"
Mail.To= "Pippo@libero.it"
Mail.TextBody="This is a message."
Mail.Send
set Mail = nothing

mi va in errore dicendomi :

Il valore di configurazione "SendUsing" non è valido.

[Roby_72]

La configurazione non l'hai messa.
Cerca nel forum lo script adatto.

Roby

[ngs]

questa è la funzione che ho fatto :

public function SendMail(strFrom,strTo,strSubject,Formato, _
	strFileAttach,strBody)
	on error resume next
	Dim Mail
	dim objConfig
	Set Mail = CreateObject("CDO.Message")
	set objConfig = CreateObject("CDO.Configuration")
		
	With objConfig 
		.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" 
		.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 Mail.Configuration = objConfig
	
	Mail.Subject = strSubject
	Mail.From = strFrom
	Mail.To = strTo
	if Formato = "HTML" then
		Mail.HTMLBody = strBody		
	elseif Formato = "HTMLPAGE" then
		Mail.CreateMHTMLBody strBody,cdoSuppressNone
	else
	        Mail.TextBody= strBody
	end if
	if err.number = 0 then
		'Invio il file
		if strFileAttach <> vbnullstring then
			Mail.AddAttachment strFileAttach
			if err.number <> 0 then 
				SendMail = false
				exit function
			end if
		end if
	end if
	
	Mail.Send

	Set objConfig = Nothing
	Set Mail = Nothing
	if err.number = 0 then 
		SendMail = true
	else
		SendMail = false
	end if
end function

ora funziona ma se invio una maqil al mio indirizzo di posta elettronica, mi risponde con :

Uno o più indirizzi di destinatari sono stati respinti dal server. Risposta del server: 550 5.7.1 Unable to relay for mia email

[Roby_72]

Il mittente deve essere una email configurata nel dominio.

Roby

[ngs]

scusa l'ignoranza,come faccio a testarlo su una macchina xp allora?

[Roby_72]

Il pc appartiene ad un dominio?

Roby

[ngs]

no!quindi non si puo testare?