Autor Beitrag
JoelH
ontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic starofftopic star
Beiträge: 798
Erhaltene Danke: 17

Win10
Delphi XE7/Tokyo Prof.
BeitragVerfasst: Mi 05.10.16 12:27 
Ich möchte gerne sämliche Emailadressen eines Outlookkontaktes auslesen. Mit folgenden Code erhalte ich die Hauptadresse, aber ich hätte gerne den gesamten Block ausgelesen, den man in dem Dialog im angefügten Pic sieht.
ausblenden volle Höhe Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
procedure TForm1.auslesen;
var
  application: OleVariant;
  dialog: OleVariant;
  i: Integer;
  recipients: String;
  recipient,  myAddressList , Myentry, MyContact: OleVariant;
  s : TStrings;
begin
  ListBox1.Clear;

   application := createOleObject( 'Outlook.Application' );
  myAddressList := Application.Session.AddressLists('Globale Adressliste')  ;
  recipient := myAddressList.AddressEntries;
  for i := 1 to  recipient.count do
  begin
      Myentry := recipient.item( i );

      ListBox1.Items.Add(Myentry.name);
      if Myentry.DisplayType = 0 then
      begin
        try
          MyContact :=  Myentry.GetExchangeUser;
          ListBox1.Items.Add(MyContact.PrimarySmtpAddress);
        finally
          //
        end;

      end;
  end;
end;


Der Code, bzw. PrimarySmtpAddress, gibt mir nur joel.hopingman(at)joelh.de zurück. Ich hätte aber gerne beide Adressen zurück, gerne auch als Stringlist oder so, das smtp: kann gerne mit dabei stehen.
Einloggen, um Attachments anzusehen!
_________________
mfg. Joel
Frühlingsrolle
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 2162
Erhaltene Danke: 399

[Win NT] 5.1 x86 6.1 x64
[Delphi] 7 PE, 2006, 10.1 Starter, Lazarus - [C#] VS Exp 2012 - [Android API 15] VS Com 2015, Eclipse, AIDE - [C++] Builder 10.1
BeitragVerfasst: Mi 05.10.16 18:11 
Und wenn du statt MyContact.PrimarySmtpAddress, MyContact.Email1Address verwendest?

_________________
„Politicians are put there to give you the idea that you have freedom of choice. You don’t. You have no choice. You have owners. They own you. They own everything." (George Denis Patrick Carlin)