> > Nevertheless, I'm going to lay this out for you, just so you can't say I > never explained Mail::Internet. > > ================================================= > #!/usr/bin/perl > > use strict; > use Mail::Internet; > > my $head = Mail::Header->new(Modify => 1); > $head->add(From => 'joe@localhost'); > $head->add(To => 'jane@somewhere'); > $head->add(Subject => 'Just a test mail'); > $head->add(Sender => 'joe@localhost'); > > > my $body .= "Message goes here."; > my $mail = Mail::Internet->new(Header => $head, > Body => [$body], > Modify => 1, > ); > my $success = $mail->smtpsend(Host => 'smtp.localhost.com', Hello > => 'localhost.com'); > > # EOF > ================================================ > Thanks. That is what I was looking for, an example (with sample function calls and sample syntax). Ben -- redhat-list mailing list unsubscribe mailto:redhat-list-request@xxxxxxxxxx?subject=unsubscribe https://www.redhat.com/mailman/listinfo/redhat-list
