Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

ik wil *alle* gegevens uit het adresboek Thunderbird uitprinten

431 views
Skip to first unread message

Massimo

unread,
Jan 24, 2011, 7:42:14 AM1/24/11
to
Hallo,

Ik zoek iets heel simpels: de mogelijkheid om in Thunderbird v.3.x het
adresboek met *alle* gegevens erin uit te printen.
Tot mijn grote verwondering print de ingebouwde printfunctie alleen
-en op een stomme manier die veel te veel ruimte op het papier vraagt-
de bovenste kaart van elke contactpersoon af. De gegevens van de
contactpersonen zoals die op de tabbladen eronder genoteerd staan
worden niet geprint!

Op de supportsite van Mozilla niets gevonden.

Wie heeft een tip?

Massimo

RichardM

unread,
Jan 24, 2011, 8:05:41 AM1/24/11
to

1. Open het adres boek.
2. Tools => Export
3. Export addressbook comma seperated.
4. Open het geexporteerde bestand met je kladblok en druk het af.

pleerol

unread,
Jan 24, 2011, 12:41:39 PM1/24/11
to
Op 24-1-2011 14:05, RichardM schreef:

Om het vervolgens wat "netter" te krijgen, kun je het geëxporteerde
bestand weer importeren in bijv. Excel, zodat je het een beetje kan
fatsoeneren (sorteren eventueel).

--
groeten, pleerol (pleelol, in het Chinees) :-)
Iedereen heeft gelijk, want niet iedereen IS gelijk.
Meer spreuken: http://members.home.nl/pleerol

Richard

unread,
Jan 25, 2011, 10:20:16 AM1/25/11
to
On Mon, 24 Jan 2011 18:41:39 +0100
pleerol <ple...@gmail.com> wrote:

> Op 24-1-2011 14:05, RichardM schreef:
> > On 01/24/2011 01:42 PM, Massimo wrote:
> >> Hallo,
> >>
> >> Ik zoek iets heel simpels: de mogelijkheid om in Thunderbird v.3.x
> >> het adresboek met *alle* gegevens erin uit te printen.
> >> Tot mijn grote verwondering print de ingebouwde printfunctie alleen
> >> -en op een stomme manier die veel te veel ruimte op het papier
> >> vraagt- de bovenste kaart van elke contactpersoon af. De gegevens
> >> van de contactpersonen zoals die op de tabbladen eronder genoteerd
> >> staan worden niet geprint!
> >>
> >> Op de supportsite van Mozilla niets gevonden.
> >>
> >> Wie heeft een tip?
> >>
> >> Massimo
> >
> > 1. Open het adres boek.
> > 2. Tools => Export
> > 3. Export addressbook comma seperated.
> > 4. Open het geexporteerde bestand met je kladblok en druk het af.
>
> Om het vervolgens wat "netter" te krijgen, kun je het geëxporteerde
> bestand weer importeren in bijv. Excel, zodat je het een beetje kan
> fatsoeneren (sorteren eventueel).

Moet ik eens kijken of ik in m'n vrije tijd hiervoor een cross-platform
tool voor kan maken die het bestand omzet in een vriendelijk afdrukbaar
HTML-bestand. (comma's>>tables; C/Python)

Of denk je dat het de moeite niet loont?


--
Er zaten toch wel interessante spreuken tussen, ja.

pleerol

unread,
Jan 25, 2011, 2:02:08 PM1/25/11
to
Op 25-1-2011 16:20, Richard schreef:
Als je al tijd hebt om al die spreuken te bekijken, kun je vast nog wel
tijd vinden
voor andere zaken ;-)

RichardM

unread,
Jan 25, 2011, 2:06:52 PM1/25/11
to

Hahaha,
Dat kun je wel zeggen, ja.
Ik zal aankomend weekend wel eens kijken.

RichardM

unread,
Jan 26, 2011, 7:57:46 AM1/26/11
to
On 01/24/2011 01:42 PM, Massimo wrote:

Ik heb gisteren de broncode van Thunderbird van de FTP-server gehaald,
en denk dat ik iig. voor Windows gebruikers al een oplossing gevonden
heb, dat je niet eens je adresboek hoeft te exporteren om het op een
andere manier af te drukken.

Er zijn enorm veel params in het adresboek; Welke velden zijn echt
noodzakelijk? (naam, achternaam, e-mail, telefoon, ?)

Als ik voor iedere param een table moet maken wordt het afdrukken op
A4 een gigantische rommel.


--
http://pgp.mit.edu:11371/pks/lookup?search=0x13FC028C&op=get

Massimo

unread,
Jan 27, 2011, 12:19:08 AM1/27/11
to
On Mon, 24 Jan 2011 14:05:41 +0100, RichardM <ligh...@gmail.com>
wrote:

>On 01/24/2011 01:42 PM, Massimo wrote:
>> Hallo,
>>
>> Ik zoek iets heel simpels: de mogelijkheid om in Thunderbird v.3.x het
>> adresboek met *alle* gegevens erin uit te printen.
>> Tot mijn grote verwondering print de ingebouwde printfunctie alleen
>> -en op een stomme manier die veel te veel ruimte op het papier vraagt-
>> de bovenste kaart van elke contactpersoon af. De gegevens van de
>> contactpersonen zoals die op de tabbladen eronder genoteerd staan
>> worden niet geprint!
>>
>> Op de supportsite van Mozilla niets gevonden.
>>
>> Wie heeft een tip?
>>
>> Massimo
>

Sorry, ik vergat te zeggen dat ik nog werk met TB v.2

>1. Open het adres boek.
>2. Tools => Export
>3. Export addressbook comma seperated.

Kan alleen exporteren als .ldif bestand maar ik heb me vergist, door
een of andere oorzaak ben ik de inhoud van alle tabs behalve de eerste
kwijt geraakt. Daar staat verder niets in en *dus* wordt van de
verdere tabs ook niets afgedrukt...

>4. Open het geexporteerde bestand met je kladblok en druk het af.

Massimo

Massimo

unread,
Jan 27, 2011, 12:20:19 AM1/27/11
to
On Mon, 24 Jan 2011 18:41:39 +0100, pleerol <ple...@gmail.com> wrote:

>Op 24-1-2011 14:05, RichardM schreef:
>> On 01/24/2011 01:42 PM, Massimo wrote:
>>> Hallo,
>>>
>>> Ik zoek iets heel simpels: de mogelijkheid om in Thunderbird v.3.x het
>>> adresboek met *alle* gegevens erin uit te printen.
>>> Tot mijn grote verwondering print de ingebouwde printfunctie alleen
>>> -en op een stomme manier die veel te veel ruimte op het papier vraagt-
>>> de bovenste kaart van elke contactpersoon af. De gegevens van de
>>> contactpersonen zoals die op de tabbladen eronder genoteerd staan
>>> worden niet geprint!
>>>
>>> Op de supportsite van Mozilla niets gevonden.
>>>
>>> Wie heeft een tip?
>>>
>>> Massimo
>>
>> 1. Open het adres boek.
>> 2. Tools => Export
>> 3. Export addressbook comma seperated.
>> 4. Open het geexporteerde bestand met je kladblok en druk het af.
>
>Om het vervolgens wat "netter" te krijgen, kun je het geëxporteerde
>bestand weer importeren in bijv. Excel, zodat je het een beetje kan
>fatsoeneren (sorteren eventueel).

Dank voor je reactie, maar zie mijn antwoord op RichardM

Massimo

Massimo

unread,
Jan 27, 2011, 12:22:26 AM1/27/11
to
On Wed, 26 Jan 2011 13:57:46 +0100, RichardM <ligh...@gmail.com>
wrote:

Aardig initiatief maar doe maar geen moeite Richard, zie mijn reactie
op je eerste posting...

Massimo

RichardM

unread,
Jan 27, 2011, 6:49:41 PM1/27/11
to

Goeie avond en goed dat je het verteld.
(download ik morgen meteen die versie ook even)

Hier is het werkende concept voor Thunderbird 3.
(ik denk dat ik andere versies ook wel kan implementeren)


Richard.

--
program NONGUI;
{$APPTYPE CONSOLE}

uses
SysUtils, Windows, IniFiles, Shlobj, ShellApi;

{$E EXE}

var
I: integer;
TMP: string;
THandle: HWND;
IniFile: TIniFile;
ThunderbirdProfileIni,
ThunderbirdProfileMap,
ThunderbirdAdresBoek: string;

const
ONBEKEND = 'Fout';

resourcestring
LEEG = '';

function UserApplicationData: string;
var
b: bool;
a: array[0..Max_Path] of Char;
begin
b := ShGetSpecialFolderPath(0, a, CSIDL_APPDATA, False);
if not b then
raise Exception.Create('Kon gebruiker Application Data map niet
bepalen.');
Result := a;
end;

procedure MeldingWeergeven(Melding: string; Afbreken: boolean);
begin
WriteLn;
WriteLn(Melding);
if (Afbreken) then Halt;
end;

begin
try

WriteLn('Welkom,');
WriteLn;
WriteLn('Dit programma probeert je Thunderbird adresboek te
localiseren en');
WriteLn('vervolgens in het Windows Notepad te openen.');
WriteLn;
WriteLn('Dit programma werkt alleen wanneer je Thunderbird
geinstalleerd hebt.');
WriteLn;
WriteLn('WAARSCHUWING:');
WriteLn('Als het adresboek geopend wordt kun je de inhoud beter NIET
wijzigen.');
WriteLn;
WriteLn;
Write('Druk op [ENTER] om door te gaan of [CTRL+C] om te annuleren');
ReadLn;
WriteLn;

ThunderbirdProfileIni :=
(IncludeTrailingBackslash(UserApplicationData)+'Thunderbird\profiles.ini');
if not (FileExists(ThunderbirdProfileIni))
then
MeldingWeergeven('Kon Thunderbird PROFILES.INI niet vinden.', TRUE);

IniFile := TIniFile.Create(ThunderbirdProfileIni);
if not (StrToInt(IniFile.ReadString('Profile0', 'IsRelative',
ONBEKEND))=1)
or not (LowerCase(IniFile.ReadString('Profile0', 'Name',
ONBEKEND))='default')
then
MeldingWeergeven('Waarschuwing: Het kan zijn dat het verkeerde
adresboek geopend wordt.' ,FALSE);

TMP := IniFile.ReadString('Profile0', 'Path', ONBEKEND);
IniFile.Free;

ThunderbirdProfileMap :=
(IncludeTrailingBackslash(ExtractFileDir(ThunderbirdProfileIni))+TMP);
TMP := LEEG;
for I := 1 to Length(ThunderbirdProfileMap) do
begin;
if (Copy(ThunderbirdProfileMap, I, 1)=#47) then
TMP := TMP + #92
else
TMP := TMP + Copy(ThunderbirdProfileMap, I, 1);
end;
ThunderbirdProfileMap := IncludeTrailingBackslash(TMP);
TMP := LEEG;

ThunderbirdAdresBoek := (ThunderbirdProfileMap+'abook.mab');
if not (FileExists(ThunderbirdAdresBoek))
then
MeldingWeergeven('Kon het Thunderbird Adresboek niet vinden.', TRUE);

Write(Format('SHELLEXECUTE NOTEPAD.EXE %s',
[UpperCase(ThunderbirdAdresBoek)]));;
ShellExecute(THandle, 'open', 'NOTEPAD.EXE',
PChar(ThunderbirdAdresBoek), nil, SW_SHOWNORMAL);
Halt;

except
on E:Exception do
begin
WriteLn(E.Message);
end;
end;
end.

--
http://pgp.mit.edu:11371/pks/lookup?search=0x13FC028C&op=get

Massimo

unread,
Jan 27, 2011, 7:14:52 PM1/27/11
to
On Fri, 28 Jan 2011 00:49:41 +0100, RichardM <ligh...@gmail.com>
wrote:

Recht aardig van je. :-)

Jezus wat een lap! Wel leuk dat je dat doet, voor je eigen plezier
vooral natuurlijk, maar gebruikers van v.3 hebben er vast iets aan.

Zelf ben ik geen programmeur dus deze listing zegt me nou niet zoveel,
maar ik heb ooit, in de 80-er jaren een MSX gehad en toen een stuk of
wat miezerige probeersels gemaakt in MSXbasic en een progje in
MSXbasic+MSX-Diskbasic (database waarin op willekeurige delen van
strings gezocht kon worden. Was een utilitietje dat mij hielp om elke
keer dat het verscheen voor het blad van de MSX-Club een z.g.
MSX-puzzle te maken).
Op dat laatste ding was ik nog trots ook. ;-)

Netjes dat commentaar erbij!

Massimo

RichardM

unread,
Jan 27, 2011, 7:53:08 PM1/27/11
to
[knip]

>
> Jezus wat een lap! Wel leuk dat je dat doet, voor je eigen plezier
> vooral natuurlijk, maar gebruikers van v.3 hebben er vast iets aan.
>
> Zelf ben ik geen programmeur dus deze listing zegt me nou niet zoveel,
> maar ik heb ooit, in de 80-er jaren een MSX gehad en toen een stuk of
> wat miezerige probeersels gemaakt in MSXbasic en een progje in
> MSXbasic+MSX-Diskbasic (database waarin op willekeurige delen van
> strings gezocht kon worden. Was een utilitietje dat mij hielp om elke
> keer dat het verscheen voor het blad van de MSX-Club een z.g.
> MSX-puzzle te maken).
> Op dat laatste ding was ik nog trots ook. ;-)
>
> Netjes dat commentaar erbij!
>
> Massimo

MSX uit de tijd dat computers nog 'echt' open waren met peek en poke.
(en men machinetaal kon 'inpoken' op chip's)

Nog heel vaag heb ik daar herinneringen aan, maar wel goede.

Boven was programmeertaal Pascal. (mijn 2e programmeertaal)
en Pascal is nog steeds mijn favoriete taal om te puzzelen.;-P

Ik hem nu een cursus Python liggen, en iets zegt me dat dat een
perfecte combinatie is van de programmeertalen die ik gebruik.

Ik ga naar bed, ik wens je een fijne nacht toe.


Richard.

--
http://pgp.mit.edu:11371/pks/lookup?search=0x13FC028C&op=get

karelV

unread,
Jan 28, 2011, 5:03:50 AM1/28/11
to
Massimo schreef op 24-1-2011 13:42:

> Hallo,
>
> Ik zoek iets heel simpels: de mogelijkheid om in Thunderbird v.3.x het
> adresboek met *alle* gegevens erin uit te printen.

Ik heb de hele disscussie niet gevolgd, maar ben je hier nu uit?
Er is een Utility Dawn [http://mysite.verizon.net/zakharin/software/Dawn/]
waarmee je het adresboek (abook.mab) kunt converteren naar een .csv bestand
waarin alle velden opgenomen zijn.
Dat .csv bestand kun je in Excel keurig openen, sorteren, kolommen wissen,
afdrukken, wat je maar wilt.

RichardM

unread,
Jan 28, 2011, 10:02:13 AM1/28/11
to

Hoi Karel,

Ik wist nog niet van het bestaan van dat programma, en zal
eens goed naar het programma kijken wat het wel en niet kan.

Ik ga in m'n vrije tijd toch verder waarmee ik begonnen ben.

Het programma waarmee ik begonnen ben wordt gratis en hoeft
niet geinstalleerd te worden.

Heb je ook ervaring met het programma of dat niet?

Zou het niet mooi zijn als je voor je zelf blowfish versleutelde
veiligheidskopieen van het adresboek op een server zou kunnen opslaan?

MVG,

karelV

unread,
Jan 28, 2011, 10:19:26 AM1/28/11
to
RichardM schreef op 28-1-2011 16:02:

>> Er is een Utility Dawn
>> [http://mysite.verizon.net/zakharin/software/Dawn/] waarmee je het
>> adresboek (abook.mab) kunt converteren naar een .csv bestand waarin alle
>> velden opgenomen zijn.
>

> Heb je ook ervaring met het programma of dat niet?

Vanmorgen heb ik het op mijn Thunderbird 2.0 abook.mab losgelaten en ik kreeg
een keurig .csv bestand. Maar dat Dawn 'snapt' ook nog ándere adresboekformaten!

RichardM

unread,
Jan 28, 2011, 11:01:47 AM1/28/11
to
> een keurig .csv bestand. Maar dat Dawn 'snapt' ook nog �ndere
> adresboekformaten!

Dat had ik gelezen, ja.

Mijn programma wordt louter en alleen voor Thunderbird en Outlook.
Veilgheidskopeien maken, terug zetten, met of zonder versleuteling.
(en adresboeken converteren)


--
http://pgp.mit.edu:11371/pks/lookup?search=0x13FC028C&op=get

Massimo

unread,
Jan 29, 2011, 2:20:46 AM1/29/11
to
On Fri, 28 Jan 2011 01:53:08 +0100, RichardM <ligh...@gmail.com>
wrote:

Ja, dat waren nog eens tijden... waarin in alle blaadjes listings
werden gepubliceerd die je dan vloekend eindeloos kon overtypen en als
je daarna half misselijk van dat typen het spul uitvoerde bleek er
vaak nog -minstens- ��n typefout gemaakt.
Enfin, er was een zekere romantiek aan het computeren in die tijd.

>Boven was programmeertaal Pascal. (mijn 2e programmeertaal)
>en Pascal is nog steeds mijn favoriete taal om te puzzelen.;-P
>
>Ik hem nu een cursus Python liggen, en iets zegt me dat dat een
>perfecte combinatie is van de programmeertalen die ik gebruik.
>

Leuk voor je!

>Ik ga naar bed, ik wens je een fijne nacht toe.
>

Nou ja, insgelijks h�, maar dan voor de ochtend. :-)
>
>Richard.

Massimo

Massimo

unread,
Jan 29, 2011, 2:21:54 AM1/29/11
to
On Fri, 28 Jan 2011 11:03:50 +0100, karelV <kar...@deGroeten.local>
wrote:

Dank voor je reactie Karel, zie mijn eerste reactie op RichardM's
posting; je zou kunnen zeggen dat ik er uit ben. :-)

Massimo

RichardM

unread,
Jan 29, 2011, 10:46:27 AM1/29/11
to
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA256

> vaak nog -minstens- één typefout gemaakt.


> Enfin, er was een zekere romantiek aan het computeren in die tijd.

Of dat je naar dagen van puzzelen tot de conclusie moest komen dat je
opgeslagen werk verloren was gegaan omdat het cassette bandje beschadigt
was, waardoor je weer helemaal van voor af aan moest beginnen.

Of als je bij het programmeren van machinetaal bij een enkele foute bit
de eeprom weer een nacht onder het UV licht moest leggen.

Dit zijn inderdaad aparte herinneringen, maar tegenwoordig net zoals
Berlijn en de CCCP, totaal OT.

>> Boven was programmeertaal Pascal. (mijn 2e programmeertaal)
>> en Pascal is nog steeds mijn favoriete taal om te puzzelen.;-P
>>
>> Ik hem nu een cursus Python liggen, en iets zegt me dat dat een
>> perfecte combinatie is van de programmeertalen die ik gebruik.
>>
> Leuk voor je!
>
>> Ik ga naar bed, ik wens je een fijne nacht toe.
>>

> Nou ja, insgelijks hè, maar dan voor de ochtend. :-)
>>
>> Richard.
>
> Massimo

Dit bericht is behalve wat nostalgie niet helemaal off-topic.

Door de jaren heen heb ik vaak mensen geholpen die geconfronteerd
werden met virussen, trojan's en ander malware op hun computers.

Iedere keer opnieuw was het een enorm gedoe om alle gegevens bij
elkaar te zoeken om deze veilig te stellen voor migratie.

Ik ga nu voor Windows gebruikers een gratis programma ontwikkelen
waarmee je dit instant kan. (totaal geen computer ervaring nodig)


Richard.

- --
Was communiceren maar net zo makkelijk als computers.
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.10 (GNU/Linux)

iQEcBAEBCAAGBQJNRDZJAAoJEIZ8/LkT/AKMtwsIAKWumH0++Tq9L0i22BUT3BcP
QfyW7pYQv93Xw29+XHpcjTIA4FH4cBuh7Na6xAzF6jWVPrMBBnML2TadTR47qjcU
XSydFBtlJo/vQZv1hLLNWqcAAXx5SNObd5G+vlE6hyNNnK3xob7Mak7IFnNam9Rm
t4TZI9k3sVob8wh9Sbqv0/jFbEuWKuQ8MFfpjXCLIeC/++75SAH1ZXL9NlrAwlhn
caQUKuaUfVOVg+VufYPYZ/bfgKmi55oaxoXK4X7o9FX0jvvnRR2Zmj16h4P1wmvd
nanyX9AUsRz4RAq14e/q/16s/doLA+YxvKsIB2rlgs4Gxk4wY9hZ68CZMjJl+Ow=
=65NY
-----END PGP SIGNATURE-----

0 new messages