Thanks! So if anyone is looking for a Perl programmer who's been known to
do the impossible, let me know, I'm looking for a job. ;-)
Jeremy Blonde
>Dear Jeremy:
> I am newbie but I must congratulate you on some
>well written and documented code. You should
>get the "$50,000" contract". This leads me to another
>question: I have looked at the new book by
>active state and the Learning Perl on Win32. Yet
>neither of these books has applications that I am
>interested in such as MAPI attachment extraction,
>or controlling MS Internet Explorer or the Program
>that Jan wrote in the Perl Journal to download T-bill
>information, put it in a database and email through
>Lotus notes. Is anyone at active state or on the list aware
>or planning to write a book on using perl to integrate
>MS Office applications(Access,Excel,Word,Outlook,IE)
>into one perl application?
>
>Thank you,
>Raymond
>
>-----Original Message-----
>From: Jeremy Blonde [mailto:[EMAIL PROTECTED]]
>Sent: Friday, June 09, 2000 6:49 PM
>To: Perl-Win32-Users Mailing List; [EMAIL PROTECTED]
>Subject: Perl MAPI attachment extraction script
>
>
>Here's a Perl script that I wrote to extract e-mail attachments from a MS
>Exchange server and then scan them for viruses.
>
>Apparently, MS doesn't "really" support virus scanning the Exchange info
>store (although I don't work on Exchange servers, so I apologize if my
>terminology is incorrect). We can't afford a $50,000 contract for a virus
>scanning server (and ONE year of updated signatures). So we needed a way
>to
>pull out the e-mail attachments from users mail and then scan them for
>viruses. Currently we don't need to put them back, although I may work on
>that later. I also don't have scanning Public Folders working (yet!).
>
>I use the CDO library to access the exchange mailbox and it's contents.
>You'll have to be on the lookout for any documentation in the script as
>it's
>pretty sparse right now (if it even exists), but it's pretty easy to follow
>if you know how Exchange/CDO works. Take a look at the OLE::Browser page
>in
>the ActiveState documentation for more information. Of course, I would be
>happy to answer any questions.
>
>I don't know if anyone would actually have a use for this or not, but I'm
>fairly new to Perl programming, so I'm really more interested in hearing
>your suggestions and/or comments about my code (I'm working on the
>documentation part).
>
>Here's the details:
>Basically, you pass the perl script the ini fle and from there it takes
>off.
>It uses a list of mailboxes (mailboxlist.txt) and tries to logon on as each
>username listed and then starts extracting the attachments.
>
>The INI file requires the following keys.
>[Settings]
>Mailboxlist=c:\scan\mailboxlist.txt
>DownloadDir=c:\scan\download
>Files=*.doc;*.zip;
>Log=c:\scan\mailscan.log
>
>Mailboxlist=c:\scan\mailboxlist.txt - A text file listing the Exchange
>server and mailbox username. (SERVER,USERNAME)
>(We wanted to split the mailbox list up and have multiple sessions run.)
>
>DownloadDir=c:\scan\download - This is where the mailbox folders and
>attachments will be extracted to.
>
>Files=*.doc;*.zip; - These are the file types that will be searched for.
>
>Log=c:\scan\mailscan.log - Errors, successes, failures, etc. will be logged
>to this file.
>
>
>Jeremy
>[EMAIL PROTECTED]
>
>_______________________________________________
>Perl-Win32-Users mailing list
>[EMAIL PROTECTED]
>http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
