Invio mail con piu allegati

[apuuuu]

Buongiorno a tutti
attualmente invio mail con allegati CDOSYS utilizzando il seguente 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

[Vincent.Zeno]

esplora la cartella con fso e recupera tutti i contenuti.
preventivamente fai un controllo sull'esistenza delle cartella stessa.

[apuuuu]

sull'esplorazione cartella nessun problema, mi blocco sul myMail.AddAttachment di tutto il contenuto

[Vincent.Zeno]

myMail.AddAttachment = myMail.AddAttachment & fileTrovatoConFso

non dovrebbe darti problemi

[Vincent.Zeno]

no scusa, così è scritto alla cavolo
fai la lista con fso e poi mettila direttamente come variabile unica in myMail.AddAttachment

[apuuuu]

Ciao Vincent
il recupero lista file lo faccio con
Set file1 = CreateObject("Scripting.FileSystemObject")
Set file2 = file1.GetFolder(Server.MapPath("/public/FATTURE/") & "\" & Cartella )
Set file3 = file2.Files
ma poi come faccio a creare variabile unica?

[Vincent.Zeno]

farei un cose del genere...

strPath="\public\FATTURE\"&cartella&"" 
Set objFso = Server.CreateObject("Scripting.FileSystemObject") 
Set objFolder = objFso.GetFolder(Server.MapPath(strPath)) 
Set objFiles = objFolder.Files 

For Each file in objFiles
elencoAllegati=elencoAllegati & Server.MapPath(file.name) & ","
Next 

Set objFso = Nothing 
Set objFolder = Nothing 
Set objFiles = Nothing

poi devi togliere l'ultima virgola dalla stringa

[apuuuu]

Scusa Vicent
facendo così a me pesca solo un file (di tre presenti nella cartella).

[Vincent.Zeno]

a me no, li prende tutti

correggo per renderlo un po' più dinamico

strPath=Server.MapPath("\public\FATTURE\"&cartella)
Set objFso = Server.CreateObject("Scripting.FileSystemObject") 
Set objFolder = objFso.GetFolder(strPath) 
Set objFiles = objFolder.Files 


For Each file in objFiles
elencoAllegati=elencoAllegati & strPath & file.name&","
Next 


Set objFso = Nothing 
Set objFolder = Nothing 
Set objFiles = Nothing

[apuuuu]

Ammetto di essere limitato e non riesco a venirne a capo, anche googolando.
A me non funge

strPath=Server.MapPath("\public\FATTURE\"&cartella)
Set objFso = Server.CreateObject("Scripting.FileSystemObject") 
Set objFolder = objFso.GetFolder(strPath) 
Set objFiles = objFolder.Files 
For Each file in objFiles
elencoAllegati=elencoAllegati & strPath & file.name&","
Next 
myMail.AddAttachment = myMail.AddAttachment & elencoAllegati
myMail.Send
set myMail=nothingSet 
objFso = Nothing 
Set objFolder = Nothing 
Set objFiles = Nothing

con
myMail.AddAttachment = myMail.AddAttachment & elencoAllegati
errore
Wrong number of arguments or invalid property assignment: 'AddAttachment'

con
myMail.AddAttachment elencoAllegati
errore
The system cannot find the path specified.

dove sbaglio?