gube has asked for the wisdom of the Perl Monks concerning the following question:

Dear monks,

I used the below code to send the url page, here with url page all the images used in the site also send as attachement to the 'To' id. I want to send only site page. I have to remove the attachments of images, please anyone help me the code.

Thanks in advance 

#!/usr/bin/perl

use strict;
use MIME::Lite::HTML;

my $url = 'http://www.agriya.com';

  my $mailHTML = new MIME::Lite::HTML(
     From     => 'testmail4all@yahoo.co.in',
     To       => 'testmail4all@yahoo.co.in',
     Subject => 'Your url: '.$url);

  my $MIMEmail = $mailHTML->parse($url);
  $MIMEmail->send;

[download]

Replies are listed 'Best First'.
Re: How to remove attachements in MIME::Lite::HTML ?
by dorko (Prior) on Jul 02, 2005 at 04:23 UTC
    From the "Public Interface" section of the docs for this module, it looks like you can have the links to images be absolute and point to the images on the original server. I'm not sure if this is exactly what you want, but it's close. All you have to do is add a key called IncludeType with the value "extern" when you create $mailHTML.

    But note, I've never used Mime::Lite::HTML and this modified code is untested. Make sure you understand the docs before you try this. 

    #!/usr/bin/perl

use strict;
use MIME::Lite::HTML;

my $url = 'http://www.agriya.com';

  my $mailHTML = new MIME::Lite::HTML(
     From        => 'testmail4all@yahoo.co.in',
     To          => 'testmail4all@yahoo.co.in',
     Subject     => 'Your url: '.$url,
     IncludeType => 'extern');

  my $MIMEmail = $mailHTML->parse($url);
  $MIMEmail->send;

    [download]

    Cheers,

    Brent

    -- Yeah, I'm a Delt.
[reply]
[d/l]
[select]

Back to Seekers of Perl Wisdom