D
dalewz
Thanks for helps here. I tried the simple method - HTML::Mail.
HTML::Mail works for some web sites. But it does not work for some. The
results are:
C:\Perl\scripts>mailp.pl
Error while making request [ GET
http://www.macom.com/Images/darkblue_bgcolor.gi
f]
404 Object Not Found at C:/Perl/lib/HTML/Mail.pm line 167.
C:\Perl\scripts>
-----Mail.pm
164 my $response = $self->{'_ua'}->get($uri);
165
166 if (!$response->is_success) {
167 die "Error while making request [ GET ", $response->request->uri,
"]\n", $response->status_line;
168 }
However, if I use IE to open www.macom.com, I can save the page with
all images. Any suggestions?
Thanks a lot. -Dale
PS> my script is:
use HTML::Mail;
### initialisation
my $html_mail = HTML::Mail->new(
HTML => 'http://www.macom.com',
Subject => 'Alert page');
### Send the email ("inherited" from MIME::Lite)
# $html_mail->send();
$html_mail->send('smtp','outgoing.verizon.net');
#### Remove text representation
$html_mail->set_Text();
### Rebuild the message and send
$html_mail->build->send;
### Serialise to file for later reuse
$html_mail->dump_file('c:/html_mail.data');
### Restore from file
my $restored = HTML::Mail->restore_file('c:/html_mail.data');
HTML::Mail works for some web sites. But it does not work for some. The
results are:
C:\Perl\scripts>mailp.pl
Error while making request [ GET
http://www.macom.com/Images/darkblue_bgcolor.gi
f]
404 Object Not Found at C:/Perl/lib/HTML/Mail.pm line 167.
C:\Perl\scripts>
-----Mail.pm
164 my $response = $self->{'_ua'}->get($uri);
165
166 if (!$response->is_success) {
167 die "Error while making request [ GET ", $response->request->uri,
"]\n", $response->status_line;
168 }
However, if I use IE to open www.macom.com, I can save the page with
all images. Any suggestions?
Thanks a lot. -Dale
PS> my script is:
use HTML::Mail;
### initialisation
my $html_mail = HTML::Mail->new(
HTML => 'http://www.macom.com',
To => '(e-mail address removed), (e-mail address removed)',From => '(e-mail address removed)',
Subject => 'Alert page');
### Send the email ("inherited" from MIME::Lite)
# $html_mail->send();
$html_mail->send('smtp','outgoing.verizon.net');
#### Remove text representation
$html_mail->set_Text();
### Rebuild the message and send
$html_mail->build->send;
### Serialise to file for later reuse
$html_mail->dump_file('c:/html_mail.data');
### Restore from file
my $restored = HTML::Mail->restore_file('c:/html_mail.data');