Adresse e-mail par défaut

Question

Comment faire pour récupérer l'adresse e-mail par défaut d'un poste sur lequel se trouve outlook.
Merci pour votre aide.

jinh68 · Answer

Salut,



A l'aide du registre, tous les comptes mail et newsgroup, ainsi que les annuaires sont stock&#233;s dans:



HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager\Accounts



Si tu as du mal &#224; faire la proc&#233;dure Delphi  pour lire les valeurs, n'h&#233;site pas &#224; demander.

j!nH

adjena · Answer

J'avouerais honnetement que je ne maitrise pas du tout la lecture des parametres stockes dans la base de regsitre et que la solution "écrite" m'interesserais pour éviter de m'éterniser sur le probleme.
Merci pour ton aide.
Cordialement.

adjena · Answer

J'avouerais honnetement que je ne maitrise pas du tout la lecture des parametres stockes dans la base de regsitre et que la solution "écrite" m'interesserais pour éviter de m'éterniser sur le probleme.
Merci pour ton aide.
Cordialement.

adjena · Answer

J'avouerais honnetement que je ne maitrise pas du tout la lecture des parametres stockes dans la base de regsitre et que la solution "écrite" m'interesserais pour éviter de m'éterniser sur le probleme.
Merci pour ton aide.
Cordialement.

adjena · Answer

J'avouerais honnetement que je ne maitrise pas du tout la lecture des parametres stockes dans la base de regsitre et que la solution "écrite" m'interesserais pour éviter de m'éterniser sur le probleme.
Merci pour ton aide.
Cordialement

jinh68 · Answer

Par contre t'as l'air de ma&#238;triser le clic fr&#233;n&#233;tique :

Voici la fonction, elle renvoit le nombre d'emails trouv&#233;s en cas de plusieurs comptes :

function RetrieveEmailAddresses(var EmailAdresses: TStringList): integer;
var registry: TRegistry;
    subKeys: TStringList;
    cpt: integer;
    tmp: string;
begin
EmailAdresses.Clear;
subKeys := TStringList.Create;
registry := TRegistry.Create;
registry.RootKey := HKEY_CURRENT_USER;
try
   with registry do
        begin
           if OpenKey('\Software\Microsoft\Internet Account Manager\Accounts', false) then
              begin
                GetKeyNames(subKeys);
                for cpt := 0 to (subKeys.Count - 1) do
                    if OpenKey(subKeys.Strings[cpt], true) then
                           begin
                             tmp := ReadString('SMTP Email Address');
                             if tmp <> '' then
                                EmailAdresses.Add(tmp);
                           end;
              end;
        end;
finally
       if Assigned(subKeys) then FreeAndNil(subKeys);
       if Assigned(registry) then FreeAndNil(registry);
end;
result := EmailAdresses.Count;
end;

Bonne prog,

jinh

j!nH

adjena · Answer

Désolé j'ai repris le code en l'adaptant pour vérifier les différentes valeurs et çà ne marche pas.
Merci quand même.

Code modifié avec des showmessage :
procedure TForm1.RetrieveEmailAddresses;
var registry: TRegistry;
    subKeys: TStringList;
    cpt: integer;
    tmp: string;
begin
subKeys := TStringList.Create;
registry := TRegistry.Create;
registry.RootKey := HKEY_CURRENT_USER;
try
   with registry do
        begin
           if OpenKey('\Software\Microsoft\Internet Account Manager\Accounts', false) then
              begin
                GetKeyNames(subKeys);
                for cpt := 0 to (subKeys.Count - 1) do
                    if OpenKey(subKeys.Strings[cpt], true) then
                           begin
                             showmessage(subKeys.Strings[cpt]);
                             tmp := ReadString('SMTP Email Address');
                             if tmp <> '' then
                               showmessage(tmp)
                           end;
              end;
        end;
finally
       if Assigned(subKeys) then FreeAndNil(subKeys);
       if Assigned(registry) then FreeAndNil(registry);
end;
end;

jinh68 · Answer

Il t'affiche quoi?

j!nH

jinh68 · Answer

Parce que ca marche chez moi sans souci :s.

j!nH

jinh68 · Answer

if OpenKey(subKeys.Strings[cpt], true) il faut mettre false, pas true.
j!nH

adjena · Answer

Il m'affiche :
- active directory GC
- bigfoot
- verisign
- whowhere

jinh68 · Answer

Cherche ton adresse email dans le registre et dis moi ou tu la trouves.

j!nH

adjena · Answer

J'ai cherché et pas trouvé, peut-être que c'est dû au fait que nous sommes en réseau et que nous avons un serveur dédié, c'est peut-être sur ce serveur que se trouve toutes les infos ?

jinh68 · Answer

C'est une messagerie Lotus?

j!nH

Adresse e-mail par défaut

14 réponses

Votre réponse

Discussions similaires