Newsgroup: it.comp.aiuto
Titolo: Salvare tutti gli allegati in una sola manovra

Salve a tutto il n.g.
Vorrei poter salvare tutti i 375 allegati delle e-mail di "Una gif al
giorno" in una sola manovra senza dover aprire tutti le 375 e-mail. Vi
risulta possibile questa cosa? Eventualmente, come?
Grazie.
Roberto.

 risulta possibile questa cosa? Eventualmente, come?
Vedi qui:
http://members.xoom.virgilio.it/_XOOM/DFS_OE/PaginaOE5_02.htm#39
"Separare molti allegati dalle relative email e salvare il tutto sull'hard
disk"
--
Vincenzo Di Russo
Microsoft® MVP - Windows - Internet Explorer/OE
news:microsoft.public.it.internet_explorer
http://support.microsoft.com/newsgroups
http://mvp.support.microsoft.com

 ha scritto nel messaggio
news:c4jlml$2inec4$1...@ID-202151.news.uni-berlin.de...

Grazie per la dritta. Ho tentato di fare come riportato nella url che
gentilmente riporti sopra, ma non mi estrappola tutti gli allegati, non so
perchè. Me ne estrappola solo una sessantina su 375.
Grazie.
Rob.

"Roberto Bortolotti"
Copia tutte gli allegati in formato *.eml in
c:\windows\temp assicurati (click destro su un file) che l'iterm
del tuo winzip sia effettivamente "E&xtract To Here"
le prime volte fai le prove con pochi file e non adoperarlo
se ci sono gia' file estratti eventualmente spostali.
Per maggior sicurezza in caso di file grandi aumenta
tutti i WScript.Sleep    (1000 = 1 secondo)
PS:
fai le prove con file "sacrificabili"
'INIZIO
sDirectory = "C:\WINDOWS\TEMP"
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(sDirectory)
For Each oFile In oFolder.Files
  If InStr(UCase(oFile.Name), ".EML") Then
'Msgbox oFile.Name& ".mim"
Set f = ofso.GetFile(oFile)
'f.Name = oFile.Name& ".mim"
'f.Name =InStr(UCase(oFile.Name), ".MIM")
str = oFile.Name
newstring = Left(str, Instr(str, ".")-1)
'msgbox newstring
f.Name = newstring& ".mim"
  End If
Next
WScript.Sleep 10000
For Each oFile In oFolder.Files
  If InStr(UCase(oFile.Name), ".MIM") Then
Set oSH = CreateObject("Shell.Application")
'Msgbox sDirectory
oSH.NameSpace("C:\WINDOWS\TEMP").ParseName _
(oFile.name).InvokeVerb "E&xtract To Here"
set oShell = CreateObject("WScript.Shell")
If  oShell.AppActivate("WinZip - Confirm File Overwrite")  Then
WScript.Quit
end if
If Not oShell.AppActivate("WinZip")  Then
WScript.Sleep 1000
else
WScript.Sleep 200
oShell.SendKeys"{enter}"
End If
  End If
Next
'FINE
'Copia incolla su notepad e salva con estensione .vbs
'tutti i file (*.*)  poi ci clicchi sopra. (per esempio Allegati.vbs)
'se ti da' errore disattiva l'antivirus
--
Fosco

"RobertOne"
Se i file sono tanti e "grossi" e meglio :
(testato su 10 file da 5 mega)
scaricare 
http://www.hiddensoft.com/cgi-bin/countdown.pl?AutoIt/AutoItX.zip
e registrare con regsvr32 AutoItX.dll (invio)
Se lasciato lavorare (senza toccare mouse o tastiera) dovrebbe
fare tutti i 375 allegati tenendo conto che Winzip ha i suoi
tempi per estrarre gli allegati soprattutto se grossi,
al limite si puo aumentare il time out di :
oAutoIt.WinWaitActive "Winzip", "Archive contains", 10
che e' calcolato in secondi >> 10  (adatto a file di 5 mega)
sDirectory = "C:\WINDOWS\TEMP"
Set oFSO = CreateObject("Scripting.FileSystemObject")
set oShell = CreateObject("WScript.Shell")
Set oFolder = oFSO.GetFolder(sDirectory)
For Each oFile In oFolder.Files
 If InStr(UCase(oFile.Name), ".EML") Then
Set f = ofso.GetFile(oFile):str = oFile.Name
newstring = Left(str, Instr(str, ".")-1)
f.Name = newstring& ".mim"
 End If :Next :WScript.Sleep 10000
For Each oFile In oFolder.Files
  If InStr(UCase(oFile.Name), ".MIM") Then
Set oSH = CreateObject("Shell.Application")
oSH.NameSpace("C:\WINDOWS\TEMP").ParseName _
(oFile.name).InvokeVerb "E&xtract To Here"
Set oAutoIt = CreateObject("AutoItX.Control")
oAutoIt.WinWaitActive "Winzip", "Archive contains", 10
oShell.SendKeys"{enter}"
End if
Next
'se dovesse comportarsi in manuera anomala CTRL+ALT+CANC
e killare Wscript
--
Fosco