Newsgroup: it.comp.aiuto
Titolo: Programma Email

Salve,
ho una domanda:
ho un account di posta che raccoglie i logs di tutti i sistemi sparsi per il 
mondo.
Vorrei un programma che scaricasse tremite POP3 i messaggi ogni TOT tempo e 
me li convertisse in formato txt in modo da leggere agevolemte le mail dal 
mio server.
Esiste una cosa del genere?
Grazie 

 Esiste una cosa del genere?
No so lo scarico , ma le *.eml sono gia' plain text , nel
senso che se tu apri un file diciamo  PC353status.eml
in questo modo  notepad PC353status.eml  hai gia il plain text
Diciamo che di sicuro ci sono cose professionali che fanno tutto
con un click , quallo che farei io  imposti il tuo OE  perche scarichi
ogni tot tempo , ti procuri un programma che ti estragga dai
dbx le singole mail .. diciamo che  dbx extract va bene
"DBXtract"
http://www.google.it/search?hl=it&q=DBXtract%2Bfree&meta=
http://www.pcworld.com/downloads/file_description/0,fid,23383,00.asp
http://downloads.pcworld.com/pub/new/internet/e_mail/DBXtract.zip
http://www.pcalmeglio.it/public/download/showlink1.asp?ID=546
http://www.oehelp.com/dbxtract/default.aspx
 
http://www.zanezane.net/servizi/download/DBXtract.zip
dopo scegli tu un modo per vedere le mail , come detto notepad >> *.email
fa quello che ti serve
'prova a crearti una cartella in c:\email
' e mettici dentro 5 *.email puoi farlo salvandole
'dal tuo oe per fare una prova e poi lancia questo e vedi cosa
'ne viene fuori , poi con lo stesso strumento volendo poi
' fare un parsing ed estrarre dalle mail solo quello che ti serve
'fai una prova prima con poche email
'se dovesse dare errori con molte email
'cambia "C:\E-Mail.Log" con  "C:\E-Mail.doc"
set oShell = CreateObject("WScript.Shell")
sDirectory = "C:\Email"
sLogFile = "C:\E-Mail.Log"
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oLogFile = oFSO.OpenTextFile(sLogFile, 8, True, 0)
Set oFolder = oFSO.GetFolder(sDirectory)
For Each oFile In oFolder.Files
  If InStr(UCase(oFile.Name), ".EML") Then
    Set oStream = oFSO.OpenTextFile(oFile.Path, 1)
    Do Until oStream.AtEndOfStream
      sLine = oStream.ReadAll
        oLogFile.WriteLine sLine
    Loop
  End If
Next
oLogFile.Close
oShell.run sLogFile
'Copia incolla su notepad e salva con estensione .vbs
'tutti i file (*.*)  poi ci clicchi sopra. (per esempio Test.vbs)
'se ti da' errore disattiva l'antivirus
--
Fosco

 ' fare un parsing ed estrarre dalle mail solo quello che ti serve
ecco un esempio generico per fare il parsing (vedasi SkipLine)
' Avevo un po' di tempo e curiosita' di provare 'na cosa :
' siccome NON so se la pagina e statica o no per affinare
' diminuire o aumentare >>  For i = 0 To 41
x = TextFromHTML("http://"& _
"
www.televideo.rai.it/televideo/pub/solotesto.jsp
")
'WScript.Echo x
 Const ForReading = 1, ForWriting = 2
 Set fso = CreateObject("Scripting.FileSystemObject")
if  FSO.FileExists("Televideo2.txt") then
 fso.DeleteFile"Televideo.txt"
 end if
'x = TextFromHTML("C:\Rai_it - Televideo.htm")
'WScript.Echo x
Function TextFromHTML(URL)
  set ie = createobject("InternetExplorer.Application")
  ie.navigate URL
  do until ie.readystate = 4 : wscript.sleep 10: loop
  TextFromHTML = ie.document.body.innerText
  ie.quit
End Function
filename = "Televideo.txt"
Set newf = fso.createtextfile(filename)
newf.WriteLine x
set oShell = CreateObject("WScript.Shell")
   Set f = fso.OpenTextFile("Televideo.txt", ForReading)
For i = 0 To 31
   f.SkipLine
Next
   SkipLineInFile = f.ReadAll
   Msgbox SkipLineInFile
filename = "Televideo2.txt"
Set newf = fso.createtextfile(filename)
newf.WriteLine SkipLineInFile
while not FSO.FileExists("Televideo2.txt")
WScript.Sleep 100
Wend
oShell.run"Televideo2.txt"
