Re: MIME::Lite attachments

2005-07-17 Thread Wiggins d'Anconia 
Mike Blezien wrote:
 Hello,
 
 we're setting up a script to attach mainly PDF files. And was wondering
 when setting up the code to attach the file, what TYPE attribute is used:
 
 snip
 $msg-attach(Type ='', # WHAT TYPE HERE TO USE ??
  Path ='/path/to/somefile.pdf',
  Filename ='Document.pdf',
  Disposition = 'attachment'
  );
 /snip
 
 is the specific what to code MIME Lite to send a TEXT/HTML message with
 a PDF file attached ??
 
 TIA

I'm assuming you want the MIME/Type,  application/pdf.

Not sure what this has to do with CGI though.

http://danconia.org

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response

Re: Mime Lite attachments

2004-09-22 Thread DBSMITH 
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 [EMAIL PROTECTED]
09/21/2004 01:10 PM

 
To: Wiggins d Anconia [EMAIL PROTECTED], [EMAIL PROTECTED], 
[EMAIL PROTECTED]
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 = 'htmlbody
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 [EMAIL PROTECTED]
To: [EMAIL PROTECTED]; [EMAIL PROTECTED]
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 PROTECTED]

 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 [EMAIL PROTECTED]',
 To  = 'Derek Smith 
[EMAIL PROTECTED]',
 Subject = Return EDM Tapes,
 Type= 'TEXT',
 Data = $scratchtps,

'Data' is for the body, you need to either use the separate Cattach
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-Lite-3.01/lib/MIME/Lite.pm#Create_a_simple_message_containing_just_an_image


 Disposition = 'attachment');
 $msg-send;
 }


http://danconia.org

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response

Re: Mime Lite attachments

2004-09-21 Thread Wiggins d Anconia 
 
 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 PROTECTED]
 
 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 [EMAIL PROTECTED]',
 To  = 'Derek Smith [EMAIL PROTECTED]',
 Subject = Return EDM Tapes,
 Type= 'TEXT',
 Data = $scratchtps,

'Data' is for the body, you need to either use the separate Cattach
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-Lite-3.01/lib/MIME/Lite.pm#Create_a_simple_message_containing_just_an_image


 Disposition = 'attachment');
 $msg-send;
 }
 

http://danconia.org

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response

Re: Mime Lite attachments

2004-09-21 Thread Josimar Nunes de Oliveira 
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 = 'htmlbody
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 [EMAIL PROTECTED]
To: [EMAIL PROTECTED]; [EMAIL PROTECTED]
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 PROTECTED]

 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 [EMAIL PROTECTED]',
 To  = 'Derek Smith [EMAIL PROTECTED]',
 Subject = Return EDM Tapes,
 Type= 'TEXT',
 Data = $scratchtps,

'Data' is for the body, you need to either use the separate Cattach
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-Lite-3.01/lib/MIME/Lite.pm#Create_a_simple_message_containing_just_an_image


 Disposition = 'attachment');
 $msg-send;
 }


http://danconia.org

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response






-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response