questa è la funzione che ho fatto :

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