Email Adressen aus Outlook auslesen (Windows)

[thread]15731[/thread]

Email Adressen aus Outlook auslesen

Leser: 20

Articles: hide open all | hide show old branches

+8 replies
a_abels

2010-12-10 11:41
User since
2010-07-11
90 Artikel
BenutzerIn
Hallo zusammen,

ich habe ein Skript, welches die Adressen aus Outlook mit allen Unterordnern ausliest. Dabei brauche ich nur bestimmte Properties (Vor-, Nachname, Adresse, etc.), welche ich in eine Datei umleite (.vcf).

Jetzt ist es allerdings so, dass ich immer auf ein Problem stosse,
Code: (dl )

1 2

Win32::OLE(0.1701) error 0x8002000e: "Unzulõssige Parameteranzahl" in METHOD/PROPERTYGET "HomeAddressCountry" at C:\Dokumente und Einstellungen\admin\Desktop\outlook_structure.pl line 70
Zeile 70 ist hier die Zeile 7:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

if ( $count ne 0 ) { for $k (1 .. $count) { my $export = 1; my $contact = $folder->{Items}->Item($k); for my $field ( @FIELDS ) { my $string = $contact->{ $field->[0] }; if ( $string ) { $string =~ s/ä/ae/g; $string =~ s/ö/oe/g; $string =~ s/ü/ue/g; $string =~ s/Ä/Ae/g; $string =~ s/Ö/Oe/g; $string =~ s/Ü/Ue/g; $string =~ s/ß/ss/g; $string =~ s/é/e/g; $string =~ s/[&\/\\]//g; } my $property = $field->[0]
wobei @FIELDS wiederum:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

my @FIELDS = ( [ qw( Title ) ], [ qw( LastName ) ], [ qw( FirstName ) ], [ qw( CompanyName ) ], [ qw( BusinessAddressStreet ) ], [ qw( BusinessAddressPostalCode ) ], [ qw( BusinessAddressCity ) ], [ qw( BusinessAddressCountry ) ], [ qw( BusinessTelephoneNumber ) ], [ qw( HomeAddressStreet ) ], [ qw( HomeAddressPostalCode ) ], [ qw( HomeAddressCity ) ], [ qw( HomeAddressCountry ) ], [ qw( HomeTelephoneNumber ) ], [ qw( MobileTelephoneNumber ) ], [ qw( Email1Address ) ], );
ist.

Ich müsste (irgendwie) vorher überprüfen, ob es sich um einen Adresseintrag oder Verteilereintrag handelt. Oder kann ich (irgendwie) die Existenz einer Property einer Verteilerliste abfragen? Und wenn ja; wie?

mfg André

[quote]

wenn Perl auf eine Verteilerliste trifft, da dort diese Properties nicht vorhanden sind.
- +5 replies
- GwenDragon
  
  2010-12-10 12:43
  
  User since
  2005-01-17
  14711 Artikel
  Admin1
  
  Kannst du bitte mal zeigen was für eine Funktion, Methode oder Datenstruktur hinter $contact steht?
  Nur so kann da sinnvoll auf Fehler geprüft werden.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +4 replies
  - a_abels
    
    2010-12-10 12:54
    User since
    2010-07-11
    90 Artikel
    BenutzerIn
    
    Es geht so los:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11
    
    my $outlook = get_outlook(); my $mapi = $outlook->GetNamespace('MAPI'); my $default_folder = $mapi->GetDefaultFolder(olFolderContacts); my @all_folder_names; my @all_folders; my %hash = (); my %args = get_args(); print_items($default_folder_)
    
    In sub print_items ist dann der code von meinem thread.
    
    mfg André
    - +3 replies
    - GwenDragon
      
      2010-12-10 13:01
      
      User since
      2005-01-17
      14711 Artikel
      Admin1
      
      Es ist immer noch nicht ganz klar, wie du Win32::OLE zum Einlesen der Mailadressen benutzt.
      Liest du Mails oder das Adressbuch? Welches Modul verwendest du?
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +2 replies
      - a_abels
        
        2010-12-10 13:09
        
        User since
        2010-07-11
        90 Artikel
        BenutzerIn
        
        Sorry, so geht es los:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13
        
        #!/usr/bin/perl use strict; use warnings; use Win32::OLE qw(in with); use Win32::OLE::Const 'Microsoft Outlook'; $Win32::OLE::Warn = 0; my $outlook = get_outlook(); my $mapi = $outlook->GetNamespace('MAPI'); my $default_folder = $mapi->GetDefaultFolder(olFolderContacts);
        
        Ich interessiere mich ausschließlich für die Adressen.
        
        mfg André
        
        GwenDragon
        
        2010-12-10 13:26
        
        User since
        2005-01-17
        14711 Artikel
        Admin1
        
        Warum schaltest du denn die Warnungen von Win32::OLE aus?
        Hat das einen bestimmten Grund?
        Dann erkennst du doch nicht mehr wo das Problem wirklich anfing. Du kannst doch auch prüfen, ob ein Aufruf gklappt hat mit
        
        Code (perl): (dl )
        
        Win32::OLE->LastError();
        
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +2 replies
- GwenDragon
  
  2010-12-10 13:32
  User since
  2005-01-17
  14711 Artikel
  Admin1
  Du könntest natürlich in deinem Beispiel
  statt
  
  Code (perl): (dl )
  
  my $string = $contact->{ $field->[0] };
  
  schreiben:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  my $string; eval { $string = $contact->{ $field->[0] }; }; next if (!$@); # weiter in Schleife falls Problem
  
  Das fängt den Fehler ab.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - a_abels
    
    2010-12-10 14:44
    
    User since
    2010-07-11
    90 Artikel
    BenutzerIn
    
    Hallo,
    
    vielen Dank für die schnellen Antworten. Das mit dem eval habe ich noch nie gemacht. Werde ich als nächstes ausprobieren.
    
    Ich habe die Fehlermeldungen nur bekommen, weil ich normalerweise der WARN level an habe (auf 3).
    
    Ich habe jetzt gleich allerdings noch einen Termin ausserhalb des Büros und kann erst später oder morgen weiter machen.
    
    Ich melde mich wieder.
    
    mfg André

View all threads created 2010-12-10 11:41.