Mailadresse des Standardprofiles von Outlook auslesen...

[FriFra]

Kann mal jemand testen ob das funzt?

Delphi-Quellcode:

function GetOEMail(DisplayName: boolean): string;
  var
    RDI: TRegistry;
    Konten: TStringList;
    n: integer;
  begin
    Result := '';
    RDI := nil;
    Konten := nil;
    RDI := TRegistry.Create;
    Konten := TStringList.Create;
    try
      RDI.RootKey := HKEY_CURRENT_USER;
      RDI.OpenKey('Software\Microsoft\Internet Account Manager\Accounts',
        False);
      RDI.GetKeyNames(Konten);
      for n := 0 to Konten.Count - 1 do
      begin
        RDI.CloseKey;
        RDI.OpenKey('Software\Microsoft\Internet Account Manager\Accounts\' +
          Konten[n], False);
        if RDI.ValueExists('SMTP Email Address') = True then
          if RDI.ReadString('SMTP Email Address') <> '' then
          begin
            if (DisplayName = True) and (RDI.ValueExists('SMTP Display Name') =
              True) then
              if RDI.ReadString('SMTP Display Name') <> '' then
                Result := Result + ', ' + RDI.ReadString('SMTP Display Name') +
                  ' <' + RDI.ReadString('SMTP Email Address') + '>'
              else
                Result := Result + ', ' + RDI.ReadString('SMTP Email Address')
            else
              Result := Result + ', ' + RDI.ReadString('SMTP Email Address');
          end;
      end;
    finally
      if Length(Result) > 0 then
        Result := Trim(copy(Result, 3, Length(Result)));
      RDI.Free;
      Konten.Free;
    end;
  end;

02.10.2003: Ich habe die Funktion noch etwas überarbeitet. Die Hinweise aus den Antworten und eine optionale Ausgabe inkl. DisplayName wurde eingebaut.