Trying to Send mail

[Ben Eagle]

I am trying to get mail working but I have yet been able to get tit to
work properly, I am using MIME::Lite

 

Not sure what I am doing wrong

 

 

use MIME::Lite;

 

# set up email

$to = "[EMAIL PROTECTED], [EMAIL PROTECTED]";

$from = "[EMAIL PROTECTED]";

$subject = "Email Sent via Perl";

$message = "This email was sent using Perl.";

$file = "graph1.jpg";

 

# send email

email($to, $from, $subject, $message, $file);

 

# email function

sub email

{

 # get incoming parameters

 local ($to, $from, $subject, $message, $file) = @_;

 

 # create a new message

 $msg = MIME::Lite->new(

  From => $from,

  To => $to,

  Subject => $subject,

  Data => $message

 );

 

 # add the attachment

 $msg->attach(

  Type => "image/jpeg",

  Path => $file,

  Filename => $file,

  Disposition => "attachment"

 );

 

 # send the email

 MIME::Lite->send('smtp', 'email01.alinean.com', Timeout => 60);

 $msg->send();

}

 

 

it gives me a error on  $msg->send();

 

not sure why

 

 

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

Perl PDF having problems with acrobat version 8

[Ben Eagle]

I made a PDF using PDF::API2, it works fine I put all the text where
they should be and in acrobat 7 and below works fine, but in acrobat 8
all the text gets pushed to the right.

 

This is a real big problem for my client, and I am not sure how it can
be fixed

 

Any Ideas?

 

Also, using PDF::API2 & PDF::Table, there is a text_block function that
should be able to create paragraphs and text blocks, however I can't get
it to work, has anyone used this or know how to I can't find any
documentation that clearly explains it.

 

 

($width_of_last_line, $ypos_of_last_line, $left_over_text) =
$pdftable->text_block(

$txt,

#  $text_to_place,

-x=> $left_edge_of_block,

-y=> $baseline_of_first_line,

-w=> $width_of_block,

-h=> $height_of_block,

   [-lead => $font_size * 1.2 | $distance_between_lines,]

   [-parspace => 0 | $extra_distance_between_paragraphs,]

   [-align=> "left|right|center|justify|fulljustify",]

   [-hang => $optional_hanging_indent,]

 );

 

this is all the examples has though I still can't get it to work, Help
Please.

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