Customizing the message body in Net::SMTP

[jimhill10]

I have a perl script that creates an email attachment file from POST data on a web page. This works just fine. I want to customize the email body to contain all of the text data from the file itself. I thought this would be just a matter of using the $smtp->datasend($POST values) with the $values coming from the names on the web page posting the data. Can someone show me what the correct code snippet would be? Here is my code:

$smtp->mail( $from_email );
        $smtp->to( $EmailRecipient, { SkipBad => 1 } );
 
        #~ $smtp->reset();
 
        $smtp->data();
        $smtp->datasend('To: ');
        $smtp->datasend( $EmailRecipient );
        $smtp->datasend("\n");
        $smtp->datasend("Subject: GTS Web Inquiry in MTI Format\n");
        $smtp->datasend("MIME-Version: 1.0\n");
        $smtp->datasend('Content-Type: multipart/mixed; boundary="--
 
=_NextPart_000_0018_01C0EA94.CF948390"' . "\n");
        $smtp->datasend("\n");
        $smtp->datasend("\n");
        $smtp->datasend("This is a multi-part message in MIME format.\n");
        $smtp->datasend("\n");
        $smtp->datasend("----=_NextPart_000_0018_01C0EA94.CF948390\n");
        $smtp->datasend("Content-Type: text/plain\n");
        $smtp->datasend("Content-Transfer-Encoding: 7bit\n");
        $smtp->datasend("\n");
        $smtp->datasend("Import the attachment into Maximizer.\n");
        $smtp->datasend("\n");
        $smtp->datasend("----=_NextPart_000_0018_01C0EA94.CF948390\n");
        $smtp->datasend('Content-Type: application/octet-stream; name="'. $attachfilename .'"' . 
 
"\n");
        $smtp->datasend("Content-Transfer-Encoding: base64\n");
        $smtp->datasend("Content-Disposition: attachment; filename=" . $attachfilename . "\n");
        $smtp->datasend("\n");
        $smtp->datasend( $mtifile );
        $smtp->datasend("\n");
        $smtp->datasend("\n");
        $smtp->datasend("----=_NextPart_000_0018_01C0EA94.CF948390--\n");
        $smtp->dataend();
 

Here is what a selected portion of the html code looks like that is posted:

<INPUT TYPE="hidden" name="field_label_U_Gender_List" value="Seminary\Gender_List">
                    <INPUT TYPE="hidden" name="field_name_U_Gender_List" value="Seminary\Gender_List">
                    <INPUT TYPE="hidden" name="field_required_U_Gender_List" value="1">
                    <INPUT TYPE="hidden" name="field_maxlength_U_Gender_List" value="1">
                    <INPUT TYPE="hidden" name="field_type_U_Gender_List" value="0">
<SELECT name="field_data_U_Gender_List" size="1" >
<OPTION>Female</OPTION>
<OPTION>Male</OPTION>
</SELECT>
 

Thanks!

Jim

[numberwhun]

Jim,

Please keep your questions in the Forum and not the Articles area. The Articles area is only for tutorial's and How To's.

Regards,

Moderator

[eWish]

If you are using the CGI.pm you can use the param('field_na me') method to retrieve them. Then simply place them in your message where you want them to appear.

--Kevin

[jimhill10]

I am customizing a pretty basic perl script which receives html POST data from a form, creates an sends an email attachment. This aspects works fine. I want to add the values from the POST data off the form into the message body. Kevin (this site admin) suggested that I use the param method. I can't get this to work, I am new to perl but not to unix programming.

Here is my working .pl script less the customization:

$mtifile = encode_base64( $mtifile );
 
    my $smtp = Net::SMTP->new( $smtpserver, Timeout => 30 );
 
 
 
    foreach my $EmailRecipient ( @Emails )
    {
        $smtp->mail( $from_email );
        $smtp->to( $EmailRecipient, { SkipBad => 1 } );
 
        #~ $smtp->reset();
        # JMH Take the word Test out of the subject field when finished
        $smtp->data();
        $smtp->datasend('To: ');
        $smtp->datasend( $EmailRecipient );
        $smtp->datasend("\n");
        $smtp->datasend("Subject: Test - GTS Web Inquiry in MTI Format\n");
        $smtp->datasend("MIME-Version: 1.0\n");
        $smtp->datasend('Content-Type: multipart/mixed; boundary="--=_NextPart_000_0018_01C0EA94.CF948390"' . "\n");
        $smtp->datasend("\n");
        $smtp->datasend("\n");
        $smtp->datasend("This is a multi-part message in MIME format.\n");
        $smtp->datasend("\n");
        $smtp->datasend("----=_NextPart_000_0018_01C0EA94.CF948390\n");
        $smtp->datasend("Content-Type: text/plain\n");
        $smtp->datasend("Content-Transfer-Encoding: 7bit\n");
        $smtp->datasend("\n");
        $smtp->datasend("Import the attachment into Maximizer.\n");
        $smtp->datasend("\n");
        $smtp->datasend("----=_NextPart_000_0018_01C0EA94.CF948390\n");
        $smtp->datasend('Content-Type: application/octet-stream; name="'. $attachfilename .'"' . "\n");
        $smtp->datasend("Content-Transfer-Encoding: base64\n");
        $smtp->datasend("Content-Disposition: attachment; filename=" . $attachfilename . "\n");
        $smtp->datasend("\n");
        $smtp->datasend( $mtifile );
        $smtp->datasend("\n");
        $smtp->datasend("\n");
        $smtp->datasend("----=_NextPart_000_0018_01C0EA94.CF948390--\n");
        $smtp->dataend();
 
        $smtp->quit;
        $smtp = Net::SMTP->new( $smtpserver, Timeout => 30 );

Here is what a piece of my html form looks like with one sample field (there are a dozen):

<INPUT TYPE="hidden" name="field_label_U_Gender_List" value="Seminary\Gender_List">
                    <INPUT TYPE="hidden" name="field_name_U_Gender_List" value="Seminary\Gender_List">
                    <INPUT TYPE="hidden" name="field_required_U_Gender_List" value="1">
                    <INPUT TYPE="hidden" name="field_maxlength_U_Gender_List" value="1">
                    <INPUT TYPE="hidden" name="field_type_U_Gender_List" value="0">
<SELECT name="field_data_U_Gender_List" size="1" >
<OPTION>Female</OPTION>
<OPTION>Male</OPTION>
</SELECT>

Thanks in advance.

[eWish]

jimhill10,

Please do not start a new thread when you already have a thread going regarding your issue. I have merged the two threads for you. Also, it is expected of you to use the [CODE][/CODE] tag when posting code samples here at TSDN. I have fixed that for you as well. Please read the Posting Guidelines before making any additional posts.

Thank You!

Moderator

[eWish]

This appears to be part of the Maximizer Content Management Software. With that being said, you should consult them for support of their product if that is the case here.

--Kevin