Fehler überprüfung - #107307 (Allgemeines zu Perl)

aspnstyle

2008-03-20 16:04

User since
2008-03-18
23 Artikel
BenutzerIn
[default_avatar]

Hallo leute ich hab wiedereinmal ein kleines Problem.

Ich habe ein script das mir einen Ordner ausliest und auf *.*doc Dokumente untersucht wenn ein doc vorhanden ist dann wendet er folgende Code an

Code (perl): (dl )

my $Word = Win32::OLE->new('Word.Application', 'Quit');
                $Word->{'Visible'} = $debug;         # if you want to see what's going on
                $Word->Documents->Open("$plpath$tmp_mail$Datei") || die("Unable to open document ", Win32::OLE->LastError());
                
                my $Versender1 = $Word->ActiveDocument->FormFields("Text1")->Result;         
                my $Versender2 = $Word->ActiveDocument->FormFields("Text18")->Result;         
                my $VersStr = $Word->ActiveDocument->FormFields("Text20")->Result;

Sprick er öffnet es und übergibt den Wert von den folgenden FormFields an eine Variable.

Mein problem ist nun wenn es ein falsches *.*doc ist das keine FormFields hat dann beendet es mir das Script... ich möchte jetzt wenn er ein fehler bringt übersprint er mir einfach das file und macht mit den anderen weitern dass es schön weiter läuft...

wie stelle ich das am besten an?

Vielen lieben Dank