Trouver le serveur et le compte smtp par défaut

//Tester avec Outlook Express

uses registry;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
Registry: TRegistry;
AccountStr: string;
begin
Registry := TRegistry.Create;
try
Registry.RootKey := hkey_CURRENT_USER;
if Registry.OpenKey('softwaremicrosoftinternet account manager', False) then {}
begin
AccountStr := Registry.ReadString('default mail account');
Registry.CloseKey;
if (AccountStr <> '') then
if Registry.OpenKey('softwaremicrosoftinternet account manageraccounts' +
AccountStr, False) then {}
begin
Showmessage('Serveur '+ Registry.ReadString('SMTP Server'));
showmessage('Compte '+ Registry.ReadString('SMTP Email Address'));
Registry.CloseKey;
end;
end;
finally
Registry.Free;
end;
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour03/10/2004
VisualisationVu 1222 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Internet
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur