Mailadresse des Standardprofiles von Outlook auslesen...

[FriFra]

Wie komme ich an die Mailadresse eines Outlook bzw. Outlook-express users?

[Daniel B]

Am einfachsten über die Registry:

HKCU\Software\Microsoft\Internet Account Manager\Accounts\xxxxxxxx

die xen geben die ID an des Account, der erste hätte z.B. 00000001.
Die Adresse steht dann in "SMTP Email Adress".

[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.

[Daniel B]

Bei mir gehts nur teilweise.

Ich habe in der Reg 7 Accounts, 5 sind Mail und zwei sind NGs.

Ich bekomme insgesamt von der Funktion, 5 Mail-Addys zurück, wobei die erste, die dritte und die fünfte die gleichen sind, was aber in wirklichkeit nicht der Fall ist.

[Christian Seehase]

Moin FriFra,

bei mir funzt es soweit.

BTW: try gehört hinter das Create. Wenn noch nichts erzeugt wurde gibt es auch noch keine Resourcen, die geschützt werden müssten.

[Daniel B]

Ach ja,

Delphi-Quellcode:

  RDI := nil;
  Konten := nil;

Bekommst Du keine Warnungen vom komplizierer?

[FriFra]

Zitat:

Zitat von Daniel B

Ach ja,

Delphi-Quellcode:

  RDI := nil;
  Konten := nil;

Bekommst Du keine Warnungen vom komplizierer?

Danke für den Hinweis ;) Diese Warnungen habe ich bisher immer ignoriert... :oops:

Knn mir noch einer von euch Outlook Usern sagen, ob es auch mit Outlook (nicht Express) vom Office geht?

[Duffy]

Hallo Frifra,
bei Outlook schau mal unter diesem Registry Schlüssel nach

Code:

HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook-Profilname

bye