invio email da server con cdosys

[Razzia]

ho trovato questo codice per mandare mail, il problema è che se il mittente scrive il nome con uno spazio in mezzo il sistema non funziona;

per ora ho rimediato con un invioDa=Replace (invioDa,CHR(32),"_")
ma volevo qualcosa ce restituisse davvero lo spazio
esiste un sistema?
grazie

'* creo gli oggetti cdosys sul server e li gestisco
	
DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it" 
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
   Set .Configuration = iConf
   .To = invioA
   .From = email
   .Sender = invioDa
   .Subject = "Contatto da Annisettanta.it"
   .TextBody = Request.Form("dati")
   .Send
End With

[alexba64]

La Variabile "InvioDa" non deve contenere un nome ma un'indirizzo email.