Home > Archive > PERL Beginners > September 2004 > Mime Lite attachments
You are viewing an archived Text-only version of the thread.
To view this thread in it's original format and/or if you want to reply to
this thread please [click here]
| Author |
Mime Lite attachments
|
|
| DBSMITH@OhioHealth.com 2004-09-22, 3:57 pm |
| All,
Was hoping for some advise b/c I cannot seem to get this to work.
My problem is that it attaches the path name when I need to actual data
attached. So my goal is as if it would be
cat test |uuencode test | mailx -s test email@email.com
thanks,
my $scratchtps = "/usr/local/log/filename";
code snippet <
there is a process that may/may not populate this file.
>
if ( -s $scratchtps ) {
&mailme;
}
sub mailme {
my $msg = MIME::Lite->new(
From => 'EDM01 <root@edm01.ohnet>',
To => 'Derek Smith <dbsmith@ohiohealth.com>',
Subject => "Return EDM Tapes",
Type => 'TEXT',
Data => "$scratchtps",
Disposition => 'attachment');
$msg->send;
}
| |
| Wiggins d Anconia 2004-09-22, 3:57 pm |
| >
> All,
>
> Was hoping for some advise b/c I cannot seem to get this to work.
> My problem is that it attaches the path name when I need to actual data
> attached. So my goal is as if it would be
>
> cat test |uuencode test | mailx -s test email@email.com
>
> thanks,
>
> my $scratchtps = "/usr/local/log/filename";
>
> code snippet <
> there is a process that may/may not populate this file.
>
>
>
> if ( -s $scratchtps ) {
> &mailme;
The above is usually better written as:
mailme();
> }
>
> sub mailme {
> my $msg = MIME::Lite->new(
> From => 'EDM01 <root@edm01.ohnet>',
> To => 'Derek Smith <dbsmith@ohiohealth.com>',
> Subject => "Return EDM Tapes",
> Type => 'TEXT',
> Data => "$scratchtps",
'Data' is for the body, you need to either use the separate C<attach>
method, or provide the filename as the 'Path' argument.
You really should start reading the docs thoroughly, you have asked a
number of questions that are pretty simple if you just pay attention to
the API, and MIME::Lite has very thorough and simple documentation,
http://search.cpan.org/~yves/MIME-L... />
st_an_image
> Disposition => 'attachment');
> $msg->send;
> }
>
http://danconia.org
| |
| Josimar Nunes de Oliveira 2004-09-22, 3:57 pm |
| Hello everybody,
I have used something like this to send e-mail with three parts: one is an
html code that internally refers to other two files to compose the final
design. This code may be adaptable to other needs.
May be this help somebody.
Josimar Nunes de Oliveira
==========================
$msg = MIME::Lite->new(
From => $from_id,
To => $to_id,
Cc => $cc_id,
Subject => $subject_text,
Type => 'multipart/related',
);
my $var = '<html>....<body>....
<table border="1"
background="cid:InternalFileNameA.gif">...
....
....<img src="cid:InternalFileNameB.jpg">....
....
</body></html>';
$msg->attach(
Type => 'text/html',
Data => $var
);
$msg->attach(
Type => 'image/gif',
Id => 'InternalFileNameA.gif',
Path => 'FileNameA.gif'
);
$msg->attach(
Type => 'image/jpeg',
Id => 'InternalFileNameB.jpg',
Path => 'FileNameB.jpg'
);
==========================
----- Original Message -----
From: "Wiggins d Anconia" <wiggins@danconia.org>
To: <DBSMITH@OhioHealth.com>; <beginners@perl.org>
Sent: Tuesday, September 21, 2004 10:33 AM
Subject: Re: Mime Lite attachments
>
> All,
>
> Was hoping for some advise b/c I cannot seem to get this to work.
> My problem is that it attaches the path name when I need to actual data
> attached. So my goal is as if it would be
>
> cat test |uuencode test | mailx -s test email@email.com
>
> thanks,
>
> my $scratchtps = "/usr/local/log/filename";
>
> code snippet <
> there is a process that may/may not populate this file.
>
>
>
> if ( -s $scratchtps ) {
> &mailme;
The above is usually better written as:
mailme();
> }
>
> sub mailme {
> my $msg = MIME::Lite->new(
> From => 'EDM01 <root@edm01.ohnet>',
> To => 'Derek Smith <dbsmith@ohiohealth.com>',
> Subject => "Return EDM Tapes",
> Type => 'TEXT',
> Data => "$scratchtps",
'Data' is for the body, you need to either use the separate C<attach>
method, or provide the filename as the 'Path' argument.
You really should start reading the docs thoroughly, you have asked a
number of questions that are pretty simple if you just pay attention to
the API, and MIME::Lite has very thorough and simple documentation,
http://search.cpan.org/~yves/MIME-L... />
st_an_image
> Disposition => 'attachment');
> $msg->send;
> }
>
http://danconia.org
--
To unsubscribe, e-mail: beginners-unsubscribe@perl.org
For additional commands, e-mail: beginners-help@perl.org
<http://learn.perl.org/> <http://learn.perl.org/first-response>
| |
| DBSMITH@OhioHealth.com 2004-09-22, 3:57 pm |
| This works great, thnaks!
I was missing the $msg->attach(
Type => 'image/gif',
Id => 'InternalFileNameA.gif',
Path => 'FileNameA.gif'
);
block. Prior I was doing this in one full swoop.
derek
"Josimar Nunes de Oliveira" <jn_oliveira@directnet.com.br>
09/21/2004 01:10 PM
To: "Wiggins d Anconia" <wiggins@danconia.org>, <DBSMITH@OhioHealth.com>,
<beginners@perl.org>
cc:
Subject: Re: Mime Lite attachments
Hello everybody,
I have used something like this to send e-mail with three parts: one is an
html code that internally refers to other two files to compose the final
design. This code may be adaptable to other needs.
May be this help somebody.
Josimar Nunes de Oliveira
==========================
$msg = MIME::Lite->new(
From => $from_id,
To => $to_id,
Cc => $cc_id,
Subject => $subject_text,
Type => 'multipart/related',
);
my $var = '<html>....<body>....
<table border="1"
background="cid:InternalFileNameA.gif">...
....
....<img src="cid:InternalFileNameB.jpg">....
....
</body></html>';
$msg->attach(
Type => 'text/html',
Data => $var
);
$msg->attach(
Type => 'image/gif',
Id => 'InternalFileNameA.gif',
Path => 'FileNameA.gif'
);
$msg->attach(
Type => 'image/jpeg',
Id => 'InternalFileNameB.jpg',
Path => 'FileNameB.jpg'
);
==========================
----- Original Message -----
From: "Wiggins d Anconia" <wiggins@danconia.org>
To: <DBSMITH@OhioHealth.com>; <beginners@perl.org>
Sent: Tuesday, September 21, 2004 10:33 AM
Subject: Re: Mime Lite attachments
>
> All,
>
> Was hoping for some advise b/c I cannot seem to get this to work.
> My problem is that it attaches the path name when I need to actual data
> attached. So my goal is as if it would be
>
> cat test |uuencode test | mailx -s test email@email.com
>
> thanks,
>
> my $scratchtps = "/usr/local/log/filename";
>
> code snippet <
> there is a process that may/may not populate this file.
>
>
>
> if ( -s $scratchtps ) {
> &mailme;
The above is usually better written as:
mailme();
> }
>
> sub mailme {
> my $msg = MIME::Lite->new(
> From => 'EDM01 <root@edm01.ohnet>',
> To => 'Derek Smith
<dbsmith@ohiohealth.com>',
> Subject => "Return EDM Tapes",
> Type => 'TEXT',
> Data => "$scratchtps",
'Data' is for the body, you need to either use the separate C<attach>
method, or provide the filename as the 'Path' argument.
You really should start reading the docs thoroughly, you have asked a
number of questions that are pretty simple if you just pay attention to
the API, and MIME::Lite has very thorough and simple documentation,
http://search.cpan.org/~yves/MIME-L... />
st_an_image
> Disposition => 'attachment');
> $msg->send;
> }
>
http://danconia.org
--
To unsubscribe, e-mail: beginners-unsubscribe@perl.org
For additional commands, e-mail: beginners-help@perl.org
<http://learn.perl.org/> <http://learn.perl.org/first-response>
|
|
|
|
|