![]() |
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 |
Re: e-mail adresse aus outlook auslesen
Zitat:
Delphi-Quellcode:
var
... ... reg: TRegistry; begin reg := TRegistry.Create; ... ... end; |
Re: e-mail adresse aus outlook auslesen
gute idee, nur jetzt sagt er mir das tregistry in der variablen deklaration ein undefinierter bezeichner ist?!
|
Re: e-mail adresse aus outlook auslesen
Zitat:
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 ;-) |
Re: e-mail adresse aus outlook auslesen
ahh....danke.....nur nochmal zum sichergehen ich muss die unit Registry einbinden richtig???
|
Re: e-mail adresse aus outlook auslesen
Ja
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:00 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