Newsgroup: it.comp.appl.access
Titolo: invio allegati con thurderbirf

salve a tutti
voglio spedire una mail con alcuni allegati utilizzando Thunderbird
per inviare un solo allegato utilizzo
Allegato = "c:\pippo.txt"
'Comando = "c:\Programmi\Mozilla Thunderbird\thunderbird.exe -compose
attachment='file://" & Allegato & "',to=" & Destinatario & ",subject="
& Oggetto & ",body=" & Corpo
Shell (Comando)
e tutto funziona correttamente
per inviare più allegati, inserisco i percorsi in una variabile
Dim aFiles(0 To 50) As String
Comando = "c:\Programmi\Mozilla Thunderbird\thunderbird.exe -compose
attachment=" & aFiles & ",to=" & Destinatario & ",subject=" & Oggetto
& ",body=" & Corpo
Shell (Comando)
ma in questo caso ottengo un errore
qualche indicazione ?
grazie a tutti e buon lavoro
Maurizio

Dim aFiles(0 To 50) As String
Comando = "c:\Programmi\Mozilla Thunderbird\thunderbird.exe -compose
attachment=" & aFiles & ",to=" & Destinatario & ",subject=" & Oggetto
& ",body=" & Corpo
Shell (Comando)
ma in questo caso ottengo un errore
qualche indicazione ?
----------------------------------------------------------
spazi nei percorsi di aFiles ?
se s�, prova con :
& chr(34) & aFiles  & chr(34) &
-- 
---
Ciao
Pablitomf
FORZA NAPOLI - - - SEMPRE!
Tifosi Napoletani, gente fantastica
http://it.youtube.com/watch?v=gUqFHOXrK-M&feature=related
 

 Tifosi Napoletani, gente fantasticahttp://
it.youtube.com/watch?v=gUqFHOXrK-M&feature=related
grazie
ho provato ma mi dice "Tipo non corrispondente" e mi evidenzia la &
precedente a aFiles
ciao
Maurizio

grazie
ho provato ma mi dice "Tipo non corrispondente" e mi evidenzia la &
precedente a aFiles
ciao
------------------------
Ma sicuro che hai scritto bene?
ma lo fai cos�?
...attachment=" & chr(34) & aFiles & chr(34) &",to= ....
????


 Tifosi Napoletani, gente fantasticahttp://
it.youtube.com/watch?v=gUqFHOXrK-M&feature=related
scritto proprio come te ... mistero
ho inserito
Allega01 = "c:\pippo.pdf"
Allega02 = "c:\prova.doc"
aFiles(0) = Allega01
aFiles(1) = Allega02
Comando = "c:\Programmi\Mozilla Thunderbird\thunderbird.exe -compose
attachment=" & Chr(34) & aFiles & Chr(34) & ",to=" & Destinatario &
",subject=" & Oggetto & ",body=" & Corpo
Shell (Comando)
grazie per la risposta
Maurizio

 ma lo fai cos�?


 - Mostra testo citato -
scusa mi sono dimenticato di dirti che NON funziona: mi dice "errore
di compilazione: tipo non corrispondente" e si ferma sulla &
precedente aFiles

scusa mi sono dimenticato di dirti che NON funziona: mi dice "errore
di compilazione: tipo non corrispondente" e si ferma sulla &
precedente aFiles
---------------------------------------------
ma non gli passi l'id ad aFiles ??
se fai un debug.print di aFiles cosa ti d�? nulla credo...


 Tifosi Napoletani, gente fantasticahttp://
it.youtube.com/watch?v=gUqFHOXrK-M&feature=related
scusa ma non so cosa vuol dire "passare l'id ad aFiles"
avevo utilizzato un sistema simile con Outlook Express e aveva
funzionato senza complicazioni
ciao
Maurizio

scusa ma non so cosa vuol dire "passare l'id ad aFiles"
avevo utilizzato un sistema simile con Outlook Express e aveva
funzionato senza complicazioni
ciao
-------------------------------
Se tu setti questi
aFiles(0) = Allega01
aFiles(1) = Allega02
ma poi...
...attachment=" & Chr(34) & aFiles & Chr(34) & ",to=" ...
praticamente non gli passi nulla...
dovrebbe essere cosi :
...attachment=" & Chr(34) & aFiles(0) & Chr(34) & ",to=" ...
ecc...
ma hai visto con un debug.print di aFiles cosa ti restituisce?
poi prova a farlo di aFiles(0) e (1) e vedi se ti valorizza il tutto



effettivamente se scrivo
Comando = "c:\Programmi\Mozilla Thunderbird\thunderbird.exe -compose
attachment=" & aFiles(0) & ",to=" & Destinatario & ",subject=" &
Oggetto & ",body=" & Corpo
oppure
Comando = "c:\Programmi\Mozilla Thunderbird\thunderbird.exe -compose
attachment=" & aFiles(1) & ",to=" & Destinatario & ",subject=" &
Oggetto & ",body=" & Corpo
funziona correttamente
il problema è che io vorrei inviare "n" file e non so a priori quanti
sono, potrebbero essere 1, 2, 3 oppure anche 20
ciao
Maurizio

funziona correttamente
il problema � che io vorrei inviare "n" file e non so a priori quanti
sono, potrebbero essere 1, 2, 3 oppure anche 20
---------------------------------
eh, ma "lui" che ne s� se non glielo dici?
da dove li prendi sti files da allegare? in un unica cartella?
cicla la cartella, li potresti contare prima, per poi fare un
for xxx=1 to contafile
Comando = "c:\Programmi\Mozilla Thunderbird\thunderbird.exe -compose
attachment=" & aFiles(xxx) & ",to=" & Destinatario & ",subject=" &
Oggetto & ",body=" & Corpo
next i


 ha scritto nel messaggio 
news:1461ec55-290b-48c5...@n21g2000vba.googlegroups.com...
salve a tutti
voglio spedire una mail con alcuni allegati utilizzando Thunderbird
per inviare un solo allegato utilizzo
Allegato = "c:\pippo.txt"
'Comando = "c:\Programmi\Mozilla Thunderbird\thunderbird.exe -compose
attachment='file://" & Allegato & "',to=" & Destinatario & ",subject="
& Oggetto & ",body=" & Corpo
Shell (Comando)
e tutto funziona correttamente
per inviare pi� allegati, inserisco i percorsi in una variabile
Dim aFiles(0 To 50) As String
Comando = "c:\Programmi\Mozilla Thunderbird\thunderbird.exe -compose
attachment=" & aFiles & ",to=" & Destinatario & ",subject=" & Oggetto
& ",body=" & Corpo
Shell (Comando)
ma in questo caso ottengo un errore
qualche indicazione ?
grazie a tutti e buon lavoro
Maurizio
Io userei la libreria filesystemobject per avere informazioni riguardo i 
file presenti in una cartella e poi utilizzerei la libreria cdosys per 
creare/inviare l'email senza thunderbird da shell

thunderbird da shell
bh� c'� anche l'ASPmail... ma sia cdosys che aspmail hanno la prerogativa di 
"non passare" per alcun programma di posta... per cui, non avrai "mai" il 
messaggio in posta in uscita (metti il caso a lui serva)
bisognerebbe capirne le reali necessit�.


 Tifosi Napoletani, gente fantasticahttp://
it.youtube.com/watch?v=gUqFHOXrK-M&feature=related
grazie a tutti per l'aiuto
la necessità è semplice: il cliente vuole poter inviare
automaticamente la mail con gli allegati va vuole anche vederla in
"posta inviata" per avere una traccia
finchè utilizzava Outlook la cosa funzionava senza problemi: adesso ha
comprato un PC nuovo e ha deciso di passare a Firefox e Thunderbird
Potrei anche rispondergli "ripassa a Outlook" ma vorrei prima vedere
se si trova una soluzione
inserisco nuovamente il codice:
Allega01 = "c:\pippo.pdf"
Allega02 = "c:\prova.doc"
aFiles(0) = Allega01
aFiles(1) = Allega02
For i = 0 To 1
    Comando = "c:\Programmi\Mozilla Thunderbird\thunderbird.exe -
compose  attachment='file://" & aFiles(i) & "',to=" & Destinatario &
",subject=" & Oggetto & ",body=" & Corpo
Next i
Shell (Comando)
mi trovo la mail con allegato solo l'ultimo file (ovvero prova.doc)
il problema credo sia nella gestione del comando "attachment" ma non
ho ancora trovato una soluzione
ciao
Maurizio

 fantasticahttp://
it.youtube.com/watch?v=gUqFHOXrK-M&feature=related
grazie a tutti per l'aiuto
la necessit� � semplice: il cliente vuole poter inviare
automaticamente la mail con gli allegati va vuole anche vederla in
"posta inviata" per avere una traccia
finch� utilizzava Outlook la cosa funzionava senza problemi: adesso ha
comprato un PC nuovo e ha deciso di passare a Firefox e Thunderbird
Potrei anche rispondergli "ripassa a Outlook" ma vorrei prima vedere
se si trova una soluzione
inserisco nuovamente il codice:
prova in questo modo:
dim vAllegati
Allega01 = "c:\pippo.pdf"
Allega02 = "c:\prova.doc"
aFiles(0) = Allega01
aFiles(1) = Allega02
For i = 0 To 1
vAllegati = vAllegati &" "& aFiles(i)
Next i
Comando = "c:\Programmi\Mozilla Thunderbird\thunderbird.exe -
compose  attachment='file://" & vAllegati & "',to=" & Destinatario &
",subject=" & Oggetto & ",body=" & Corpo
Shell (Comando)
mi trovo la mail con allegato solo l'ultimo file (ovvero prova.doc)
il problema credo sia nella gestione del comando "attachment" ma non
ho ancora trovato una soluzione
ciao
Maurizio
-- 
Ciao
Geppo 

 - Mostra testo citato -
grazie Geppo
ho provato ma compare il messaggio "si è verificato un errore durante
la creazione di una finestra per la composizione del messaggio"
secondo me tra un file e il successivo potrebbe essere necessario un
carattere (non lo spazio). Ho provato con la virgola e il punto e
virgola ma ottengo lo stesso errore
Maurizio

 vAllegati = vAllegati &" "& aFiles(i) & vbcrlf
Maurizio
-- 
Ciao
Geppo 

...anzi no, ho provato, devi utlizzare la virgola cosi:
vAllegati = vAllegati & aFiles(i) & ","
-- 
Ciao
Geppo 


ciao Geppo
scusa se rispondo solo ora
ho fatto una prova e, come dici tu, si deve utilizzare la virgola per
separare i nomi dei file
ho pero' scoperto anche un'altra cosa (suggerimento datomi dal forum
di Mozilla Italia):
quando si definiscono i nomi dei file si devono dichiarare così (con
tre slash)
Allega01 = "file:///c:/prova.doc,"
Allega02 = "file:///c:/pippo.pdf"
aFiles(0) = Allega01
aFiles(1) = Allega02
grazie a tutti, adesso funziona tutto e sono soddisfatto
buona serata
Maurizio

 ha scritto nel messaggio 
news:b9388fff-05dc-4d26...@p4g2000vba.googlegroups.com...
--cut--
ho pero' scoperto anche un'altra cosa (suggerimento datomi dal forum
di Mozilla Italia):
quando si definiscono i nomi dei file si devono dichiarare cos� (con
tre slash)
Allega01 = "file:///c:/prova.doc,"
Allega02 = "file:///c:/pippo.pdf"
aFiles(0) = Allega01
aFiles(1) = Allega02
per dovere di cronaca io ho usato il tuo codice e tutto file liscio con due 
slash.
grazie a tutti, adesso funziona tutto e sono soddisfatto
prego, questa � la cosa essenziale.
buona serata
Maurizio
-- 
Ciao
Geppo 

inserisco nuovamente il codice:
Allega01 = "c:\pippo.pdf"
Allega02 = "c:\prova.doc"
aFiles(0) = Allega01
aFiles(1) = Allega02
For i = 0 To 1
    Comando = "c:\Programmi\Mozilla Thunderbird\thunderbird.exe -
compose  attachment='file://" & aFiles(i) & "',to=" & Destinatario &
",subject=" & Oggetto & ",body=" & Corpo
Next i
Shell (Comando)
mi trovo la mail con allegato solo l'ultimo file (ovvero prova.doc)
-----------------
Ovvio :
se la Shell la lanci dopo tutto il ciclo, ti ritroverai come indice i=1 
quindi passerai solo l'allegato 1...
ma tu gli allegati li vuoi mettere tutti insieme? o vuoi inviarne 1 alla 
volta?
se vuoi uno alla volta basta che la "Shell" la lanci prima di "Next i"... 
altrimenti crea una variabile di questo tipo :
Allega01 = "c:\pippo.pdf"
Allega02 = "c:\prova.doc"
aFiles(0) = Allega01
aFiles(1) = Allega02
Dim xxx
For i = 0 To 1
    Comando = "c:\Programmi\Mozilla Thunderbird\thunderbird.exe -
compose  attachment='file://" & if(xxx="",aFiles(i),xxx & "," & aFiles(i)  & 


 aFiles(1) = Allega02
sempre per dovere di cronaca, effettivamente hai ragione.
-- 
Ciao
Geppo