#!/usr/bin/perl -w

use strict;
use Win32::OLE;

my @PhoneProperties = (
  "Business2TelephoneNumber",
  "BusinessFaxNumber",
  "BusinessTelephoneNumber",
  "CarTelephoneNumber",
  "Home2TelephoneNumber",
  "HomeTelephoneNumber",
  "ISDNNumber",
  "MobileTelephoneNumber",
  "OtherFaxNumber",
  "OtherTelephoneNumber",
  "PrimaryTelephoneNumber",
);

my $outlook;
$outlook = Win32::OLE->new('Outlook.Application');

my $activeexplorer;
$activeexplorer = $outlook->ActiveExplorer;

print $activeexplorer->Caption,"\n";

my $items = $activeexplorer->CurrentFolder->Items;
print $items->Count,"\n";

my $linenumber = 1;
print "NR;NAME;TELNUM\n";

my $Kontakt;
my $PhoneProp;
my $ItemIndex = 1;

while ($ItemIndex <= $items->Count) {
  $Kontakt = $items->item($ItemIndex);

  foreach $PhoneProp (@PhoneProperties) {
    my $number = $Kontakt->{"$PhoneProp"};
    if ($number) {
      # Prefix local area code unless an area code
      # is already given
      if ($number !~ /^0/) { $number = "069$number" };
      $number =~ s/ +//g;
      $number =~ s/-+//g;
      print $linenumber++, ";", $Kontakt->FullName,";'$number\n";
      #print "$number=", substr( $Kontakt->FullName, 1, 15 ),"\n";
    };
  };

  $ItemIndex++;
};