Newsgroup: it.comp.lang.visual-basic
Titolo: e-mail parsing

Salve, mi servirebbe qualcosa che leggesse testo e oggetto di una mail 
(integrato nel programma appunto, o anche prendendolo da thunderbird o 
dal web) e li copi in un altro programma.. fattibile? documentazione in 
proposito? (anche in altri linguaggi) grazie

 in proposito? (anche in altri linguaggi)
Google: "visual basic" pop3 sample
Ciao!
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca

 
quindi mi consigli la versione integrata in un mio programmino?
e per prendere oggetto e testo e copiarli in un'altra applicazione (es. 
notepad)?

 (anche in altri linguaggi)
'*.vbs
'Il target sono i *.eml ( si puo' modificare)
'copia ogni linea con "from:" nel log file.
sDirectory = "C:\Documenti\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.ReadLine
''''   If InStr(UCase(sLine),"FROM:") Then 'originale
      If InStr(UCase(sLine),"FROM:") Or InStr(UCase(sLine),"TO:")  Then
        oLogFile.WriteLine sLine
         ' oLogFile.WriteLine ""
'Msgbox sLine
      End If
    Loop
  End If
Next
oLogFile.Close
--
Fosco

"Fosco"
http://www.ahml.info/oml/wndw.txt
questo lo fa sulla classe OFMailView
ma io e' mesi che ogni tanto lo riprendo ma non ci
sono mai riuscito a farlo lavorare in Outlook Express
prova un po' tu ...
http://www.ahml.info/oml/
http://www.ahml.info/oml/vbsgw4.txt
--
Fosco

 sono mai riuscito a farlo lavorare in Outlook Express
ma funziona per esempio in notepad
(estratto da un vbs piu' ampio modificato da me per altri scopi)
http://www.ahml.info/oml/UsingVB5CCE.txt
http://www.ahml.info/oml/RegisteringCOM.txt
http://support.microsoft.com/default.aspx?scid=kb;en-us;Q112649
Const EM_GETSEL = &HB0
Const EM_SETSEL = &HB1
 Dim handle
   Dim handle2
   Dim tool
   Set tool = CreateObject("wndw.tools")
   Dim oShell
   Set oShell = WScript.CreateObject("WScript.Shell")
   handle = tool.GetHwndFromClass("Notepad")
  If handle = 0 Then
      MsgBox "Currently, no Groupwise mail window is open!"
   Else
      handle2 = tool.GetHwndFromParentAndWndID( handle, 15 )  'Notepad
b = tool.GetNameFromHwnd(handle)
oShell.AppActivate b
 a = tool.SendMsgByNum(handle2, EM_SETSEL, 0, -1)
end if
 tool.ShowTheWindow(handle)
 'ecc
--
Fosco

koichirose ha scritto:

Per Outlook puoi usare il DBX Manager dal Sito Comune:
http://www.it-lang-vb.net/archivio.asp?subMenu=Tutte&FullText=on&TypeRic=AND&keyword=dbx&x=0&y=0
Per Mozilla Tunderbird devi crearti tu un parser (non è difficilissimo).
bye
-- 
Gestione Ottica - Gestionale per Ottici e Programmi Gratuiti su:
http://www.nicolaottomano.it
Sinapsi Antispam. Antispam Gratuito.
http://www.nicolaottomano.it/sinapsi.htm
email spamtrap: 
spam...@nicolaottomano.it

 
Mi sapresti dire dove documentarmi?
Ringrazio anche tutti gli altri :)

 (es. notepad)?
No, non è che te lo consiglio... Non sapendo cosa vuoi farci esattamente, 
ti ho illustrato un paio di sistemi.
Tutto dipende da cosa vuoi farne delle email.
