Opened by a_abels at 2010-12-10 11:41
User since
2010-07-11
90 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
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,
Zeile 70 ist hier die Zeile 7:
wobei @FIELDS wiederum:
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.
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.