Newsgroup: it.comp.software.mailreader
Titolo: Thunderbird mi ha perso la rubrica :-(

Mi è successo una cosa molto strana e pessima!
Da un momento all'altro sono andato in TB e mi sono reso conto che
tutta la rubrica è andata completamente a donnine... esistono solo
più 6 contatti dei circa 150 che avevo...
Avete idea se è recuperabile? O dove reperire info? Sono quasi
dispetato...
Al3x

Alex1980:

Ma tu backups niente ?  [1]

 dispetato...
http://www.washington.edu/nebula/tbird.html
-- 
Fosco

> Ma tu backups niente ?  [1]
Sinceramente tra tutti i bckp che faccio quello della rubrica proprio
non era dentro!
Non sarebbe la fine del mondo perderla perchè dalle mail ricevute
potrei ricostuire man mano quelli utili...
Cmq stamattina riaccendendo il pc tutto è tornato magicamente a
posto... mah!
Al3x

 posto... mah!
Ecco e' la volta buona di farti il backup
A TB chiuso zippati tutta la cartella del profilo
C:\*******\Application Data\Thunderbird
eventualmente anche
C:\Programmi\Mozilla Thunderbird
Io adopero recolarmente questo script su un win98se
su un winXp basta cambiare i percorsi
;   
http://www.autoitscript.com/autoit3/
If ProcessExists("msimn.exe") then
MsgBox(262144, "","Chiudi OE e ritenta")
Exit
endif
If ProcessExists("seamonkey.exe") then
MsgBox(262144, "","Chiudi seamonkey e ritenta")
Exit
endif
$o_SW = ObjCreate("WScript.Shell")
$o_FSO = ObjCreate("Scripting.FileSystemObject")
  ;$sDest = "C:\Backups"
  $sDest = "C:\Xsave\Backups"
  If Not $o_FSO.FolderExists( $sDest) then
   $o_FSO.CreateFolder( $sDest)
  EndIf
  $SdestPref="Preferiti"
  If Not $o_FSO.FolderExists( $sDest & "\"& $SdestPref) then
   $o_FSO.CreateFolder( $sDest & "\"& $SdestPref)
  EndIf
  $SdestIdent="Identities"
  If Not $o_FSO.FolderExists( $sDest & "\"& $SdestIdent) then
   $o_FSO.CreateFolder( $sDest & "\"& $SdestIdent)
  EndIf
$sSrc = "C:\WINDOWS\Application Data\Identities"
;MsgBox(262144, "", $sSrc)
$sSrc1 = "C:\WINDOWS\Preferiti"
$sSrc2 ="C:\WINDOWS\Application Data\Microsoft\Address Book"
$sSrc3 = "C:\WINDOWS\Application Data\*.zip"
$o_FSO.CopyFolder  ($sSrc , $sDest & "\"& $SdestIdent)
$o_FSO.CopyFolder  ($sSrc1 , $sDest & "\"& $SdestPref)
$o_FSO.CopyFolder  ($sSrc2 , $sDest)
$o_FSO.CopyFile   ($sSrc3 , $sDest)
MsgBox(262144, "", "FATTO")
'Copia incolla su notepad e salva con estensione .au3
'tutti i file (*.*)  poi ci clicchi sopra. (per esempio Test.au3)
'se ti da' errore disattiva l'antivirus
-- 
Fosco

Fosco:
 > Alex1980:
 > Io adopero recolarmente questo script su un win98se
 > su un winXp basta cambiare i percorsi
ecco un air code per OE e preferiti in vbs per XP :
(basta aggiungerci il percordo di Thunderbird volendo)
Set WshNetwork = WScript.CreateObject("WScript.Network")
      ' WScript.Echo "Domain = " & WshNetwork.UserDomain
  'WScript.Echo "Computer Name = " & WshNetwork.ComputerName
         WScript.Echo "User Name = " & WshNetwork.UserName
XP_User = WshNetwork.UserName &"\"
last = "Dati applicazioni\"
Root = "C:\Documents and Settings\"
'on error resume next
set oShell = CreateObject("WScript.Shell")
Set fs = CreateObject("Scripting.FileSystemObject")
  sDest = "C:\Backups"
  If Not fs.FolderExists( sDest) then
   fs.CreateFolder( sDest)
  End If
  SdestPref="Preferiti"
  If Not fs.FolderExists( sDest & "\"& SdestPref) then
   fs.CreateFolder( sDest & "\"& SdestPref)
  End If
  SdestIdent="Identities"
  If Not fs.FolderExists( sDest & "\"& SdestIdent) then
   fs.CreateFolder( sDest & "\"& SdestIdent)
  End If
'sSrc = "C:\WINDOWS\Application Data\Identities"
sSrc =  root & XP_User & last & "Identities"
'sSrc1 = "C:\WINDOWS\Preferiti"
sSrc1=  root & XP_User & "Preferiti"
'sSrc2 ="C:\WINDOWS\Application Data\Microsoft\Address Book"
sSrc2 =  root & XP_User & last & "Microsoft\Address Book"
fs.CopyFolder  sSrc , sDest & "\"& SdestIdent
fs.CopyFolder  sSrc1 , sDest & "\"& SdestPref
fs.CopyFolder  sSrc2 , sDest
oShell.Popup "FATTO.",2,"title...",vbInformation+vbSystemModal
'Copia incolla su notepad e salva con estensione .vbs
'tutti i file (*.*)  poi ci clicchi sopra. (per esempio Test.vbs)
