Buongiorno a tutti
attualmente invio mail con allegati CDOSYS utilizzando il seguente codice

codice:
        Set myMail=CreateObject("CDO.Message")        myMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
        myMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        myMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
        myMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        myMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
        myMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1        
        myMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "info@xxxx.it"
        myMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxx"
        myMail.Configuration.Fields.Update        
        myMail.Subject= "Invio documenti " + RagioneSociale 
        myMail.From = "xxx@xxx.it"
        myMail.To=Email1
        myMail.BCc=EmailCC
        myMail.HTMLBody = "xxxxxxxxxxxxx"
        myMail.AddAttachment (Server.MapPath("/public/" & Cartella & "/" & "LETTERA_" & ID &".pdf"))
        myMail.AddAttachment (Server.MapPath("/public/" & Cartella & "/" & "FATTURA_" & ID &".pdf"))


            myMail.Send
            set myMail=nothing
Ma se anziche indicare il file preciso da inviare, volessi inviare tutto il contenuto della cartella come posso gestirlo?
Grazie mille