Invio Mail CDOSYS con allegato

[manu.aretuseo]

Buongiorno a tutti. Ho un piccolo problemino e sono un pò scoraggiato.
Sino ad oggi ho inviato mail con CDONTS e sono riuscito anche ad allegarvi un file.

Adesso mi è stato dato un modulo da modificare e devo riuscire ad inviare una mail per una lista di utenti e dare la possibilità di allegare uno o più file.
La funzione usata nel modulo è questa

Function sendMail_CDOSYS (mittente, destinatario, oggetto, corpo)

	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
	Flds.Update

	With iMsg    
		 Set .Configuration = iConf
		 .To =  destinatario
		 .From = mittente	
		 .Subject = oggetto
		 .HtmlBody = corpo
		 .Send
	End With
End Function

Il modo con cui viene richiamata è il seguente :

while not objUtentiList.eof
   on error resume next
   if(InStr(objUtentiList("EMail"),"@")>0)Then
     sendMail_CDOSYS "xxx@xxx.it", trim(objUtentiList("EMail")), trim(request("Oggetto")), 
     strCorpo
     iCount = iCount + 1
     end if
objUtentiList.movenext
wend

Come faccio a fargli allegare il file?
Ho provato ad usare

AttachFile(Server.MapPath("public\files\dove.jpg"))

Per un primo approccio, mi sarebbe molto utile anche riuscire ad allegare solo un file, caricato sul server tramite un upload...
Come posso fare?

[manu.aretuseo]

Ho provato ad aggiungere la seguente istruzione prima di chiamare la funzione

sendMail_CDOSYS.AttachFile(Server.MapPath("\public\Allegati\News.zip"))

Così le cose mi funzionavano con la funzione CDONTS, ma adesso non riesco!!!
Help...