Ciao! Sto cercando di fare 2 cose:

1) creare una macro che mi "estrapoli", dalle mail contenute in una determinata cartella LINKSLUISA, tutti i link in esse contenuti e che me li copi in un foglio di excel.

Io sono riuscita per ora a fare un pezzettino di codice con Outlook 2003, però mi farebbe molto più comodo usare ThunderbirdPortable: si può fare in modo che una macro comunichi con ThunderbirdPortable? se sì come?
Di seguito cè il codice che sto usando, però mi manca la parte relativa alla ricerca del testo che mi serve (cioè le stringhe dei link in cui compare un www. o un http:\\). Ho visto che cè il metodo AdvancedSearch (non so se fa al caso mio), ma non ho capito come si utilizza...

codice:
'ricerca copiata da guida
Const strF As String = "urn:schemas:mailheader:subject = 'WWW.'" 'DA MODIFICARE: devo estrapolare i link contenuti nella mail
	Const strS As String = "LINKSLUISA"   
	Set sch = Application.AdvancedSearch(strS, strF)
Io avrei bisogno di ricercare nel testo della mail (cioè nel body credo) tutte le occorrenze di dove compare un www o un http ed estrapolarmi il link (usando credo i vari metodi instr, left, right, ect). Cosa devo mettere nella costante strF? cosa significa sto urn:schemas:mailheader:subject? non ho trovato spiegazioni... Mi aiutate per favore? grazie
Luisa

codice:
'mio codice
Sub PROVA()
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")

Set MYFOLDER = myNameSpace.GetDefaultFolder(olFolderInbox)

'la mia cartella su cui lavorare
Set mynewfolder = MYFOLDER.Folders("LINKSLUISA")
' rendo disponibili le items di quella cartella
Set AAA = mynewfolder.Items


' copio il testo di tutte le mail contenute in quella cartella
For Each ITM In AAA
 variabile = variabile & ITM.Body  'DA MODIFICARE: fare ricerca e estrapolazione testo (devo usare advancedsearch?)
Next


Dim xxx As Excel.Application
Set appWd = CreateObject("EXCEL.Application")
'Dim BBB As Excel.Workbook


Workbooks.Open FileName:="PROVA.xls", ReadOnly:=False

appWd.Visible = True
Sheets(1).Select
'copio il testo
Range("A1").Value = variabile  'DA MODIFICARE: non in una sola cella, ma in più celle in modo da creare un elenco

End Sub

2) tramite un altra macro, vorrei che automaticamente tutti i link presenti nell'elenco nel foglio di excel si aprissero in una finestra di Internet explorer (un link per scheda) o Firefox.

si può? che metodo posso usare?

grazie ancora
Luisa