Password Addition

[nusratfatima]

Hi ,

In my Perl Application, a mail is send to the administrator.
This mail contains an attachment which is a csv sheet.
Now, i need to add a Password to the same.

The coding that i follow is:

if($attachfile ne ""){
                $msg->attach( 
                        binmode => 1,   
                        Type     =>'BINARY',
                        Path     =>"$DataPath$attachfile",
                        Encoding =>'base64',
                        Filename =>$attachfile);
        }
 

[KevinADC]

What is the password for? I don't understand your question.

[nusratfatima]

In the application a mail is sent to the user with an attached csv sheet.
This attachment when opened should ask for a password.

Like in excel sheet you go to
tools-> options->secuirty and add a password.
This has to be built in the application code.

I found somewhere as protect->'Paasword' but this is not working.

[KevinADC]

I don't know if that is possible. Which perl module are you using?

[nusratfatima]

Hi,


I'm using #!/usr/local/bin/perl5

I guess it's possible as I'va found out but not able to integrate it with the code:

Check this out "http://www.perlmonks.org/?node_id=522233".
$worksheet->protect('mysillypassword');

I can convert the csv into an excel sheet though.

[KevinADC]

I meant which module are you using for this:

$msg->attach(

there must be a :

use NET::SMTP

or

use MIME::Lite

in the script somewhere. What you posted is the path to perl: #!/usr/local/bin/perl5

I think you need to add the password when you create the excel file, not when sending it as an email attachment.

[nusratfatima]

I'm using :

use MIME::Base64;
use CGI;

[KevinADC]

I'm using :

use MIME::Base64;
use CGI;

neither of those modules has an attach() method that I am aware of. I assume you are using MIME::Lite. There is no password field you can add to an email message that I am aware of.

[eWish]

Password protecting an email... I don't know of any module that does that. Can you password protect the file with the application that you are creating it in? Can you email the person a link to download the file. Then when authenticated they can download the file.

Like Kevin said look at MIME:Lite or even Mail::Sender. Both of these modules will allow to you send attachments.

[nusratfatima]

Hi,

I send the mail as an attachment using the following piece of code:

sub Mail {
 
#-----ER2   RISBANSA  01 APRIL 2004  START-------#
 
        local($from,$to1,$to2,$cc,$bcc,$attachfile,$subject_org,$body)=@_;
        $subject = 'xxx encode_base64($subject_org, '') . '?=';
        $body=~s/\r/\r\n/gi;
 
        $msg = new MIME::Lite 
                From   =>$from,
                To       =>$to1,
                To       =>$to2,
                Cc      =>$from,
    Cc      =>$cc,
                Bcc    =>$bcc,
                Subject =>$subject,
                Type    =>'multipart/mixed';
 
       $msg->attach(
                Type     =>'TEXT',
                Encoding =>'7bit',
                Data     =>$body);
 
       if($attachfile ne ""){
                $msg->attach( 
                        binmode => 1,   
                        Type     =>'BINARY',
                        Path     =>"$DataPath$attachfile",
                        Encoding =>'base64',
                        Filename =>$attachfile);
        }
 
      $msg->send;
 

So please tell me where can I add a password to this attachment ?

[KevinADC]

You can include a password in the body ($body) of the email message but thats all you can do. You can not attach a password or add it to the attachment. At least not that I know of.

[nusratfatima]

Could you tell me where exactly do I add the password in the body as I've been trying all possible things.

[KevinADC]

The body is already composed before the function you posted:

sub Mail {
 
#-----ER2 RISBANSA 01 APRIL 2004 START-------#
 
local($from,$to1,$to2,$cc,$bcc,$attachfile,$subjec t_org,$body)=@_;
 

So it seems it should be added earlier. You could append it to the end of the $body variable:

local($from,$to1,$to2,$cc,$bcc,$attachfile,$subjec t_org,$body)=@_;
$subject = 'xxx encode_base64($subject_org, '') . '?=';
$body .= "\nhere is the password: rosebud\n"; 
$body=~s/\r/\r\n/gi;
 

but that seems like the wrong place to be adding it and without knowing what is already in $body it might not even be appropriate.