Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi e-mail adresse aus outlook auslesen (https://www.delphipraxis.net/109940-e-mail-adresse-aus-outlook-auslesen.html)

meama 10. Mär 2008 15:34


e-mail adresse aus outlook auslesen
 
hallo,
kann mir jemand sagen, wie ich mit delphi 6 eine e-mail adressen aus outlook auslesen kann??
ich hab mal gegoogelt und folgenden code gefunden
Delphi-Quellcode:
reg.RootKey := HKEY_CURRENT_USER;
//1. Mailaddy
reg.OpenKey ('Software\Microsoft\Office\Outlook\OMI Account Manager\Accounts\00000001', false);

EMailaddy.text := reg.ReadString ('SMTP Email Address');
Username.Text := reg.ReadString ('SMTP Display Name');
Smtp.Text := reg.ReadString ('SMTP Server');
pop3.Text := reg.ReadString ('POP3 Server');
login.Text := reg.ReadString ('POP3 User Name');
reg.CloseKey;


//2. Mailaddy
reg.OpenKey ('Software\Microsoft\Office\Outlook\OMI Account Manager\Accounts\00000002', false);

EMailaddy2.text := reg.ReadString ('SMTP Email Address');
Username2.Text := reg.ReadString ('SMTP Display Name');
Smtp2.Text := reg.ReadString ('SMTP Server');
pop32.Text := reg.ReadString ('POP3 Server');
login2.Text := reg.ReadString ('POP3 User Name');
reg.CloseKey;


//3. Mailaddy
reg.OpenKey ('Software\Microsoft\Office\Outlook\OMI Account Manager\Accounts\00000003', false);

EMailaddy3.text := reg.ReadString ('SMTP Email Address');
Username3.Text := reg.ReadString ('SMTP Display Name');
Smtp3.Text := reg.ReadString ('SMTP Server');
pop33.Text := reg.ReadString ('POP3 Server');
login3.Text := reg.ReadString ('POP3 User Name');
reg.CloseKey;


//4. Mailaddy
reg.OpenKey ('Software\Microsoft\Office\Outlook\OMI Account Manager\Accounts\00000004', false);

EMailaddy4.text := reg.ReadString ('SMTP Email Address');
Username4.Text := reg.ReadString ('SMTP Display Name');
Smtp4.Text := reg.ReadString ('SMTP Server');
pop34.Text := reg.ReadString ('POP3 Server');
login4.Text := reg.ReadString ('POP3 User Name');
reg.CloseKey;


//5. Mailaddy
reg.OpenKey ('Software\Microsoft\Office\Outlook\OMI Account Manager\Accounts\00000005', false);

EMailaddy5.text := reg.ReadString ('SMTP Email Address');
Username5.Text := reg.ReadString ('SMTP Display Name');
Smtp5.Text := reg.ReadString ('SMTP Server');
pop35.Text := reg.ReadString ('POP3 Server');
login5.Text := reg.ReadString ('POP3 User Name');
reg.CloseKey;


//6. Mailaddy
reg.OpenKey ('Software\Microsoft\Office\Outlook\OMI Account Manager\Accounts\00000006', false);

EMailaddy6.text := reg.ReadString ('SMTP Email Address');
Username6.Text := reg.ReadString ('SMTP Display Name');
Smtp6.Text := reg.ReadString ('SMTP Server');
pop36.Text := reg.ReadString ('POP3 Server');
login6.Text := reg.ReadString ('POP3 User Name');
reg.CloseKey;


//7. Mailaddy
reg.OpenKey ('Software\Microsoft\Office\Outlook\OMI Account Manager\Accounts\00000007', false);

EMailaddy7.text := reg.ReadString ('SMTP Email Address');
Username7.Text := reg.ReadString ('SMTP Display Name');
Smtp7.Text := reg.ReadString ('SMTP Server');
pop37.Text := reg.ReadString ('POP3 Server');
login7.Text := reg.ReadString ('POP3 User Name');
reg.CloseKey;


//8. Mailaddy
reg.OpenKey ('Software\Microsoft\Office\Outlook\OMI Account Manager\Accounts\00000008', false);

EMailaddy8.text := reg.ReadString ('SMTP Email Address');
Username8.Text := reg.ReadString ('SMTP Display Name');
Smtp8.Text := reg.ReadString ('SMTP Server');
pop38.Text := reg.ReadString ('POP3 Server');
login8.Text := reg.ReadString ('POP3 User Name');
reg.CloseKey;


//9. Mailaddy
reg.OpenKey ('Software\Microsoft\Office\Outlook\OMI Account Manager\Accounts\00000009', false);

EMailaddy9.text := reg.ReadString ('SMTP Email Address');
Username9.Text := reg.ReadString ('SMTP Display Name');
Smtp9.Text := reg.ReadString ('SMTP Server');
pop39.Text := reg.ReadString ('POP3 Server');
login9.Text := reg.ReadString ('POP3 User Name');
reg.CloseKey;

da schreit mich mein delphi aber an dass es den bezeichner reg nicht kennt....was tun??
ich hoffe ihr könnt mir helfen

RavenIV 10. Mär 2008 15:43

Re: e-mail adresse aus outlook auslesen
 
Zitat:

Zitat von meama
da schreit mich mein delphi aber an dass es den bezeichner reg nicht kennt....was tun??
ich hoffe ihr könnt mir helfen

Dann erstell halt eine Variable reg.
Delphi-Quellcode:
var
  ...
  ...
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  ...
  ...
end;

meama 11. Mär 2008 09:14

Re: e-mail adresse aus outlook auslesen
 
gute idee, nur jetzt sagt er mir das tregistry in der variablen deklaration ein undefinierter bezeichner ist?!

RavenIV 11. Mär 2008 09:31

Re: e-mail adresse aus outlook auslesen
 
Zitat:

Zitat von meama
gute idee, nur jetzt sagt er mir das tregistry in der variablen deklaration ein undefinierter bezeichner ist?!

Dann geh mit dem Cursor auf TRegistry.
Drück dann <F1> und schau in der Hilfe nach, welche Unit Du noch einbinden musst.

Wenn das nicht klappt, solltest Du Dir mal "Delphi für Dummies" reinziehen ;-)

meama 11. Mär 2008 18:09

Re: e-mail adresse aus outlook auslesen
 
ahh....danke.....nur nochmal zum sichergehen ich muss die unit Registry einbinden richtig???

Die Muhkuh 11. Mär 2008 18:10

Re: e-mail adresse aus outlook auslesen
 
Ja


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:40 Uhr.

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