Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Software-Projekte der Mitglieder (https://www.delphipraxis.net/26-software-projekte-der-mitglieder/)
-   -   Email-Extract (Version 1.10) (https://www.delphipraxis.net/102571-email-extract-version-1-10-a.html)

IceTube 31. Okt 2007 08:59


Email-Extract (Version 1.10)
 
Liste der Anhänge anzeigen (Anzahl: 2)
Hallo,

hab mal wieder ein kleines Tool programmiert, welches die Email-Adressen aus dem Outlook Express extrahiert und diese dann in eine Textdatei speichert(Email-Adressen oder nur die Domains).

Hab das eigentlich für meinen Vater programmiert, da er sowas gebraucht hat. Er verwendet es für seine Blacklist.

Vielleicht braucht es ja von euch irgendwer...


Änderungen:

Verison 1.10:

-Schöneres Design
-Probleme beim lesen der Ordner von OE wurde beseitigt
-Beim extrahieren werden die Emails angezeigt
-Doppelte Einträge können gefiltert werden

lg

leddl 31. Okt 2007 09:12

Re: Email-Extract
 
Zitat:

Zitat von IceTube
hab mal wieder ein kleines Tool programmiert, welches die Email-Adressen aus dem Outlook Express extrahiert und diese dann in eine Textdatei speichert(Email-Adressen oder nur die Domains).

:gruebel: eMail-Adressen oder eMails? :gruebel: Hier schreibst du eMail-Adressen, im Programm steht aber eMails...

IceTube 31. Okt 2007 20:08

Re: Email-Extract
 
Email-Adressen meine ich, ich habs eh bemerkt - jedoch keine Zeit mehr gehabt dies auszubessern...

IceTube 1. Nov 2007 21:27

Re: Email-Extract (Version 1.10)
 
Neue Version erschienen

Verison 1.10:

-Schöneres Design
-Probleme beim lesen der Ordner von OE wurde beseitigt
-Beim extrahieren werden die Emails angezeigt
-Doppelte Einträge können gefiltert werden

Download im ersten Beitrag!

HuxXx 4. Nov 2007 12:28

Re: Email-Extract (Version 1.10)
 
"Wählen Sie den Folder..."
"Alle Folder durchforsten..."

Ein Folder?
Wenn die Beschreibung schon auf Deutsch ist, wieso machst du das Programm dann nicht komplett auf Deutsch?
Das hat mich anfangs ein bisschen verwirrt. Ansonsten ein nettes Programm ;)

IceTube 4. Nov 2007 19:25

Re: Email-Extract (Version 1.10)
 
Da hast du schon recht, ich mach das bei meinen Programmen immer(Englisch/Deutsch mischen). Muss ich mich noch umgewöhnen.

Danke fürs Feedback!

lg

dominikkv 4. Nov 2007 19:33

Re: Email-Extract (Version 1.10)
 
Beim öffnen:
Zitat:

---------------------------
Email Extract
---------------------------
Listenindex überschreitet das Maximum (0)
---------------------------
OK
---------------------------
lässt sich aber trotzdem starten.
und wenn ich dann einen "Email Folder Name" auswählen will und auf den Button Auswählen klicke das gleiche nochmal, das auswahlfenster kommt aber nicht.

Windows Vista 64 Ultimate mit und ohne Adminrechten.

IceTube 4. Nov 2007 20:04

Re: Email-Extract (Version 1.10)
 
Das ist das Problem mit der Registry, jedoch hab ich das in der 2. Version des Programmes ausgebessert - da dürfte dieses Problem nicht mehr kommen.

Ich denke du hast noch die alte Version des Programmes!

Oder Nein^ blödsinn - ich weiß es nicht, ich lese die Daten der Dbx Dateien vom Outlook dort(code):

Delphi-Quellcode:
function TForm1.GetRoot:string;
var Reg : TRegistry;
s,a : string;
xList : TstringList;
begin
//Hole mir Path
xList := TstringList.Create;
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('Identities',false);
s := 'Identities\'+Reg.ReadString('Default User ID')+'\Software\Microsoft\Outlook Express\';
Reg.CloseKey;
Reg.OpenKey(s,false);
Reg.GetKeyNames(xList);
a := s+'\'+xList.Strings[0];
Reg.CloseKey;
Reg.OpenKey(a,false);
Result := Reg.ReadString('Store Root');
s := GetPath('UserProfile');
Result := StringReplace(Result,'%UserProfile%',s,[rfReplaceAll,rfIgnoreCase]);
Reg.Free;
xList.Free;
exit;
end;


lg

leddl 5. Nov 2007 08:10

Re: Email-Extract (Version 1.10)
 
Zitat:

Zitat von dominikkv
Windows Vista 64 Ultimate mit und ohne Adminrechten.

:gruebel: Was für einen Sinn macht es, dieses Programm unter Vista zu testen? :gruebel: Outlook Express gibt es da doch gar nicht. Das heißt da inzwischen Windows Mail und macht AFAIK einiges anders als OE :zwinker:
Wie die eMails (die ja hier anscheinend ausgelesen werden) gespeichert sind, weiß ich jetzt nicht, aber zumindest die Kontakte liegen jetzt einzeln in einem Ordner statt im Adressbuch wie noch aus XP gewohnt.

IceTube 5. Nov 2007 08:58

Re: Email-Extract (Version 1.10)
 
^Das erklärt alles...


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:09 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz