Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

Perl and Eudora

by /dev/trash (Curate)
on Nov 18, 2002 at 18:35 UTC ( #213844=perlquestion: print w/replies, xml ) Need Help??
/dev/trash has asked for the wisdom of the Perl Monks concerning the following question:

Right now I have this snippet of code to backup my Eudora Mailboxes to a network drive.
copy($_,'z:/mail_test') foreach glob 'D:/EudoraPro/*.mbx'; copy($_,'z:/mail_test') foreach glob 'D:/EudoraPro/*.toc';
It works great but I'd like to automate it so that when I close Eudora, the files get copied automatically. Will Win32::OLE interact with Eudora?

Replies are listed 'Best First'.
Re: Perl and Eudora
by dmmiller2k (Chaplain) on Nov 19, 2002 at 01:29 UTC

    You could write a wrapper script, e.g.,

    system("D:/EudoraPro/Eudora.exe"); copy($_,'z:/mail_test') foreach glob 'D:/EudoraPro/*.mbx'; copy($_,'z:/mail_test') foreach glob 'D:/EudoraPro/*.toc';

    Then, create a shortcut for the command, perl.exe and use THAT for starting Eudora.


    If you GIVE a man a fish you feed him for a day
    TEACH him to fish and you feed him for a lifetime
      That doesn't work. The files get copied and everything but Eudora is not starting.
        If your on windows 2000 or Xp you can add your back up code as a scheduled task, will that work for you?

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://213844]
Approved by premchai21
Front-paged by Theseus
[Corion]: Michael_W: $Variables[0] = $Map_Request_Date; $Variables[1] = $Map_Due_Date; ...
[choroba]: ( $Map_Request_Date, $Map_Due_Date,$Map _Cutover_Date,$Map _Complete_Date,$Ma p_Approved_Date) = @Variables;?
[thezip]: something like: $Map_Request = <value>; etc. should work
[Corion]: Duh - I read it backwards. I shouldn't code today I guess ;)
[thezip]: G'day all, BTW!
[Corion]: Hi thezip ;)
[thezip]: Howdy Corion

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (12)
As of 2017-04-27 15:40 GMT
Find Nodes?
    Voting Booth?
    I'm a fool:

    Results (509 votes). Check out past polls.