From: deny <[EMAIL PROTECTED]>
> ok i try this
>
> #!/usr/bin/perl -w
>
> use strict;
> use MIME::Lite;
> use Getopt::Std;
>
> #------------------------------
> # main
> #------------------------------
> sub main {
> my %opts;
> my $subj = "hello world";
>
> ### Create a message:
> my $msg = MIME::Lite->new(From => '[EMAIL PROTECTED]',
> To => '[EMAIL PROTECTED]',
> Subject => $subj,
> Type => 'TEXT',
> Data => ["This is the original
> message.\n",
> "Let's see if we can embed
> it!\n"]);
> }
> exit (&main ? 0 : -1);
You just created the message, you did not send it.
Add
$msg->send;
Also ... you should get rid of the sub main {}. This is not C.
Jenda
===== [EMAIL PROTECTED] === http://Jenda.Krynicky.cz =====
When it comes to wine, women and song, wizards are allowed
to get drunk and croon as much as they like.
-- Terry Pratchett in Sourcery
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
