Email Attachments

2005-09-28 Thread Alejandro Santillan Iturres



I was trying to getan email attachment 
downloaded into a file unsuccessfully.
I used the following simple script:


use Mail::POP3Client;use 
MIME::Parser

#email part
$pop = new Mail::POP3Client( 
USER = 
"aba", 
PASSWORD = 
"aba", 
HOST = "200.45.71.180" );
$msg=1;$body=$pop-Body($msg);$pop-Close();

#parsing part
$parser = new MIME::Parser;$entity = 
$parser-parse_data($body);

The aba account is working fine, and it has a unique email with an 
Excel file attached.
The scriptworks well up tocreating a fileinto the working 
directory, but is completely different to the original attached file.
Moreover, the name of the downloaded file has nothing to do with the 
original one.
As far as I know the body is well retrieved, but the parsing is not doing 
its job.
Any idea about how to get the right email attach downloaded?

Thank you all,

Alejandro

___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


Building Email attachments

2001-05-10 Thread Charles Maier

I have a project that needs to build file attachments for which the files
don't actualy exist. The data of the 'files' willl be contained in a single
Perl variable each... $atch1, $atch2.. etc. They are actually specially
formatted textual data.

I am hoping someone has already done this and could offer some example code
on just how to accomplish this.

TIA
Chuck

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users



Re: Building Email attachments

2001-05-10 Thread $Bill Luebkert

Charles Maier wrote:
 
 I have a project that needs to build file attachments for which the files
 don't actualy exist. The data of the 'files' willl be contained in a single
 Perl variable each... $atch1, $atch2.. etc. They are actually specially
 formatted textual data.
 
 I am hoping someone has already done this and could offer some example code
 on just how to accomplish this.

MIME::Lite using 'Data' arg for the msg in a $vrbl.

-- 
  ,-/-  __  _  _ $Bill Luebkert   ICQ=14439852
 (_/   /  )// //   DBE Collectibles   http://www.todbe.com/
  / ) /--  o // //  Mailto:[EMAIL PROTECTED] http://dbecoll.webjump.com/
-/-' /___/__/_/_http://www.freeyellow.com/members/dbecoll/
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users