<div>Boa tarde a todos ...</div>
<div> </div>
<div>Gostaria de saber pq não posso ler um arquivo de menssagem do Outlook deste jeito? e o como tenho que pesquisar no cpan para este tipo de aplicação pois procurei como Email::Outlook::Message mas não veio como eu estava pensando. ;(</div>
<div> </div>
<div> </div>
<div>Abrs,</div>
<div> </div>
<div>Ailton</div>
<div> </div>
<div>#!c:/Perl/perl.exe -w</div>
<p>use strict;<br>use warnings;</p>
<p>my $Lista = 'Ailton.msg';</p>
<p>BKP($Lista);</p>
<p>sub BKP{<br> <br> open(my $file, q{<}, $_[0]); <br> foreach my $arquivo ( <$file> ) { <br> chomp($arquivo); <br> <br> print $arquivo;<br> <br> }<br> }<br clear="all"><br>-- <br>Ailton Zacarias<br>
F4 Computer – Soluções em Tecnologia da Informação<br>Tel: 55 +11 4062-0180 (Ailton)<br>Cel: 55 +11 8405-8334<br>MSN: <a href="mailto:ailton@f4computer.com">ailton@f4computer.com</a><br>Skype: ailton.zacarias<br><a href="http://www.f4computer.com">http://www.f4computer.com</a><br>
</p>