Thunderbird

[danten]

Hello friends,
You can tell me how Exporting email addresses from Thunderbird.

I need to format "username" and "email0" "email1" .....

thank you

[Nersgatt]

As far as i remember, Thunderbird uses the mbox-format: http://en.wikipedia.org/wiki/Mbox
I should read more carefully - sorry.

[danten]

My point is, decrypt the file:
C:\Users\<user_name>\AppData\Roaming\Thunderbird\P rofiles\<profile_name>\abook.mab

[Nersgatt]

Take a look at this wiki-article: http://en.wikipedia.org/wiki/Mork_%28file_format%29
There are also links to the description of the format.

[exilant]

Zitat:

Zitat von danten (Beitrag 1153069)

My point is, decrypt the file:
C:\Users\<user_name>\AppData\Roaming\Thunderbird\P rofiles\<profile_name>\abook.mab

The Thunderbird address book is stored in a format called "Mork". It's a very sick fileformat. Don't waste your time trying to write MORK File I/O routines. Use the Thunderbird import/export functions.

Also read on wikipedia:

"...the single most braindamaged file format that I have ever seen in my nineteen year career"

[danten]

oops,
and is there any possibility to programmatically export the contacts?

Now I thought that the file can be found in the @ sign and read from the recording marks to marks =)
Somehow use the Pos () and Find

[Iwo Asnet]

There is a plugin available for Thunderbird which adds export/import functionality to the context menu. There is a chance that you will also get the source code.

[hans ditter]

Don't know if I got you right, but in Thunderbird 10.0.2 it's possible to directly export a contact commy seperated, tabulator seperated or in LDIF format. Just open the address book, click "extras" and then export.

Hope that helps! ;)

[danten]

I have it almost done.
I need only add a piece of code.
Something like:

Delphi-Quellcode:

  for i := 0 to Memo1.Lines.Count - 1 do
  begin
   if Memo1.Lines.Text <> '@' then
   begin
   ????????? Memo1.Lines[i] =>> Copy Memo2.Lines ????????????

If you can find on line and found the @ character to copy the line Memo2

Once that is functional, I put all the code here. :lol:

[danten]

OK friends, here's my code that works. :thumb:

The file is loaded Memo1 abook.mab
Memo2 The resulting list is then e-mail addresses

Delphi-Quellcode:

procedure TForm1.ExtractAdress;
var
  pth,s1,s2:string;
  c1,c2,c3:integer;
  c,x,y:integer;
begin
  pth := 'C:\Users\<username>\AppData\Roaming\Thunderbird\Profiles\<profile_name>\abook.mab';
  s1 := '@';
  s2:= '<';
  memo1.Lines.LoadFromFile(pth); 

  for y := 23 downto 0 do
    begin
      memo1.Lines.Delete(0); 
    end;

  for c1 := 0 to Memo1.Lines.Count - 1 do
  begin
    memo1.lines[c1]:= (StringReplace(memo1.lines[c1],'=','='+#13#10,[rfReplaceAll]));
  end;

  for c2 := 0 to Memo1.Lines.Count - 1 do
  begin
    memo1.lines[c2]:= (StringReplace(memo1.lines[c2],')',''#13#10+'',[rfReplaceAll]));
  end;

  for c3 := 0 to Memo1.Lines.Count - 1 do
  begin
    memo1.lines[c3]:= (StringReplace(memo1.lines[c3],'@$${1{@','',[rfReplaceAll]));
    memo1.lines[c3]:= (StringReplace(memo1.lines[c3],'@$$}1}@','',[rfReplaceAll]));
    memo1.lines[c3]:= (StringReplace(memo1.lines[c3],'@$${3{@','',[rfReplaceAll]));
    memo1.lines[c3]:= (StringReplace(memo1.lines[c3],'@$$}3}@','',[rfReplaceAll]));
    memo1.lines[c3]:= (StringReplace(memo1.lines[c3],'@$${4{@','',[rfReplaceAll]));
    memo1.lines[c3]:= (StringReplace(memo1.lines[c3],'@$$}4}@','',[rfReplaceAll]));
    memo1.lines[c3]:= (StringReplace(memo1.lines[c3],'@$${5{@','',[rfReplaceAll]));
    memo1.lines[c3]:= (StringReplace(memo1.lines[c3],'@$$}5}@','',[rfReplaceAll]));
  end;

  for c := Memo1.Lines.Count - 1 downto 0 do
  begin
  if AnsiPos(s1, Memo1.Lines[c]) <>  0 then
    Memo2.Lines.Add(Memo1.Lines[c]);
  end;

  for x := Memo2.Lines.Count - 1 downto 0 do
  begin
  if AnsiPos(s2, Memo2.Lines[x]) <>  0 then
    Memo2.Lines.Delete(x);
  end;
end;