473,287 Members | 3,295 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,287 software developers and data experts.

Customizing the message body in Net::SMTP

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($POSTvalues) 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:

Expand|Select|Wrap|Line Numbers
  1. $smtp->mail( $from_email );
  2.         $smtp->to( $EmailRecipient, { SkipBad => 1 } );
  3.  
  4.         #~ $smtp->reset();
  5.  
  6.         $smtp->data();
  7.         $smtp->datasend('To: ');
  8.         $smtp->datasend( $EmailRecipient );
  9.         $smtp->datasend("\n");
  10.         $smtp->datasend("Subject: GTS Web Inquiry in MTI Format\n");
  11.         $smtp->datasend("MIME-Version: 1.0\n");
  12.         $smtp->datasend('Content-Type: multipart/mixed; boundary="--
  13.  
  14. =_NextPart_000_0018_01C0EA94.CF948390"' . "\n");
  15.         $smtp->datasend("\n");
  16.         $smtp->datasend("\n");
  17.         $smtp->datasend("This is a multi-part message in MIME format.\n");
  18.         $smtp->datasend("\n");
  19.         $smtp->datasend("----=_NextPart_000_0018_01C0EA94.CF948390\n");
  20.         $smtp->datasend("Content-Type: text/plain\n");
  21.         $smtp->datasend("Content-Transfer-Encoding: 7bit\n");
  22.         $smtp->datasend("\n");
  23.         $smtp->datasend("Import the attachment into Maximizer.\n");
  24.         $smtp->datasend("\n");
  25.         $smtp->datasend("----=_NextPart_000_0018_01C0EA94.CF948390\n");
  26.         $smtp->datasend('Content-Type: application/octet-stream; name="'. $attachfilename .'"' . 
  27.  
  28. "\n");
  29.         $smtp->datasend("Content-Transfer-Encoding: base64\n");
  30.         $smtp->datasend("Content-Disposition: attachment; filename=" . $attachfilename . "\n");
  31.         $smtp->datasend("\n");
  32.         $smtp->datasend( $mtifile );
  33.         $smtp->datasend("\n");
  34.         $smtp->datasend("\n");
  35.         $smtp->datasend("----=_NextPart_000_0018_01C0EA94.CF948390--\n");
  36.         $smtp->dataend();
  37.  
Here is what a selected portion of the html code looks like that is posted:

Expand|Select|Wrap|Line Numbers
  1. <INPUT TYPE="hidden" name="field_label_U_Gender_List" value="Seminary\Gender_List">
  2.                     <INPUT TYPE="hidden" name="field_name_U_Gender_List" value="Seminary\Gender_List">
  3.                     <INPUT TYPE="hidden" name="field_required_U_Gender_List" value="1">
  4.                     <INPUT TYPE="hidden" name="field_maxlength_U_Gender_List" value="1">
  5.                     <INPUT TYPE="hidden" name="field_type_U_Gender_List" value="0">
  6. <SELECT name="field_data_U_Gender_List" size="1" >
  7. <OPTION>Female</OPTION>
  8. <OPTION>Male</OPTION>
  9. </SELECT>
  10.  
Thanks!

Jim
Feb 18 '08 #1
5 5269
numberwhun
3,509 Expert Mod 2GB
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
Feb 18 '08 #2
eWish
971 Expert 512MB
If you are using the CGI.pm you can use the param('field_name') method to retrieve them. Then simply place them in your message where you want them to appear.

--Kevin
Feb 18 '08 #3
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:
Expand|Select|Wrap|Line Numbers
  1. $mtifile = encode_base64( $mtifile );
  2.  
  3.     my $smtp = Net::SMTP->new( $smtpserver, Timeout => 30 );
  4.  
  5.  
  6.  
  7.     foreach my $EmailRecipient ( @Emails )
  8.     {
  9.         $smtp->mail( $from_email );
  10.         $smtp->to( $EmailRecipient, { SkipBad => 1 } );
  11.  
  12.         #~ $smtp->reset();
  13.         # JMH Take the word Test out of the subject field when finished
  14.         $smtp->data();
  15.         $smtp->datasend('To: ');
  16.         $smtp->datasend( $EmailRecipient );
  17.         $smtp->datasend("\n");
  18.         $smtp->datasend("Subject: Test - GTS Web Inquiry in MTI Format\n");
  19.         $smtp->datasend("MIME-Version: 1.0\n");
  20.         $smtp->datasend('Content-Type: multipart/mixed; boundary="--=_NextPart_000_0018_01C0EA94.CF948390"' . "\n");
  21.         $smtp->datasend("\n");
  22.         $smtp->datasend("\n");
  23.         $smtp->datasend("This is a multi-part message in MIME format.\n");
  24.         $smtp->datasend("\n");
  25.         $smtp->datasend("----=_NextPart_000_0018_01C0EA94.CF948390\n");
  26.         $smtp->datasend("Content-Type: text/plain\n");
  27.         $smtp->datasend("Content-Transfer-Encoding: 7bit\n");
  28.         $smtp->datasend("\n");
  29.         $smtp->datasend("Import the attachment into Maximizer.\n");
  30.         $smtp->datasend("\n");
  31.         $smtp->datasend("----=_NextPart_000_0018_01C0EA94.CF948390\n");
  32.         $smtp->datasend('Content-Type: application/octet-stream; name="'. $attachfilename .'"' . "\n");
  33.         $smtp->datasend("Content-Transfer-Encoding: base64\n");
  34.         $smtp->datasend("Content-Disposition: attachment; filename=" . $attachfilename . "\n");
  35.         $smtp->datasend("\n");
  36.         $smtp->datasend( $mtifile );
  37.         $smtp->datasend("\n");
  38.         $smtp->datasend("\n");
  39.         $smtp->datasend("----=_NextPart_000_0018_01C0EA94.CF948390--\n");
  40.         $smtp->dataend();
  41.  
  42.         $smtp->quit;
  43.         $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):

Expand|Select|Wrap|Line Numbers
  1. <INPUT TYPE="hidden" name="field_label_U_Gender_List" value="Seminary\Gender_List">
  2.                     <INPUT TYPE="hidden" name="field_name_U_Gender_List" value="Seminary\Gender_List">
  3.                     <INPUT TYPE="hidden" name="field_required_U_Gender_List" value="1">
  4.                     <INPUT TYPE="hidden" name="field_maxlength_U_Gender_List" value="1">
  5.                     <INPUT TYPE="hidden" name="field_type_U_Gender_List" value="0">
  6. <SELECT name="field_data_U_Gender_List" size="1" >
  7. <OPTION>Female</OPTION>
  8. <OPTION>Male</OPTION>
  9. </SELECT>
Thanks in advance.
Feb 19 '08 #4
eWish
971 Expert 512MB
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
Feb 19 '08 #5
eWish
971 Expert 512MB
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
Feb 19 '08 #6

Sign in to post your reply or Sign up for a free account.

Similar topics

0
by: Almir | last post by:
I hate this Net::SMTP stuff, everything works fine but for the suject field. I see no way of having it show in an email when sent. Has anyone had this problem, can anyone explain why there are no...
2
by: RandRace | last post by:
I'm having some problems with a little script i wrote using net::smtp. I originally wrote it in linux where it works perfectly. I tried to use it from windows the other day and it doesn't work. It...
0
by: peterson | last post by:
I was trying to send asp.net-smtp mail of UTF-8 unicode international character contents. When I opened the mailbox contents was broken. I am using html format too. Am I missing something?
1
by: neog | last post by:
I'm having a problem with Net::Smtp. Does the datasend() method have problems sending strings containing single quotes? Like I stored the string "Germany's biggest bank, hired" in a hash and it...
11
by: ibiza | last post by:
Hi all, I am trying to use the System.Net.Mail class for the first time, with ASP.NET 2.0. I setup everything according to http://www.codeproject.com/aspnet/EasySMTP_package.asp, which gives...
4
by: patrickinminneapolis | last post by:
Hi guys, I'm trying to write an emailer, but I can't manage to construct the object properly. Here's what I've got: #!/usr/local/bin/perl -w use Net::SMTP; $smtp =...
13
by: jcor | last post by:
Hi, I'm trying some code to send a mail with my script. This is it: #!/usr/bin/perl use Net::SMTP; my $smtp_server='62.193.245.15'; my $smtp = Net::SMTP->new($smtp_server) or die "Can't Open...
1
by: wootmaster | last post by:
I'm writing a script that will run a few tests on a given mail server, it's meant to test to see if VRFY and EXPN is enabled or not. However, when I use "verify" to test to see if VRFY is enabled on...
5
by: veralee | last post by:
I'm in dire need to use Net::SMTP. The server no longer uses "sendmail". I found an example of using Net::SMTP but I have to also include a user name and password for the server. The host provided...
2
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 7 Feb 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:30 (7.30PM). In this month's session, the creator of the excellent VBE...
0
by: MeoLessi9 | last post by:
I have VirtualBox installed on Windows 11 and now I would like to install Kali on a virtual machine. However, on the official website, I see two options: "Installer images" and "Virtual machines"....
0
by: DolphinDB | last post by:
The formulas of 101 quantitative trading alphas used by WorldQuant were presented in the paper 101 Formulaic Alphas. However, some formulas are complex, leading to challenges in calculation. Take...
0
by: Aftab Ahmad | last post by:
Hello Experts! I have written a code in MS Access for a cmd called "WhatsApp Message" to open WhatsApp using that very code but the problem is that it gives a popup message everytime I clicked on...
0
by: Aftab Ahmad | last post by:
So, I have written a code for a cmd called "Send WhatsApp Message" to open and send WhatsApp messaage. The code is given below. Dim IE As Object Set IE =...
0
by: marcoviolo | last post by:
Dear all, I would like to implement on my worksheet an vlookup dynamic , that consider a change of pivot excel via win32com, from an external excel (without open it) and save the new file into a...
0
by: Vimpel783 | last post by:
Hello! Guys, I found this code on the Internet, but I need to modify it a little. It works well, the problem is this: Data is sent from only one cell, in this case B5, but it is necessary that data...
0
by: jfyes | last post by:
As a hardware engineer, after seeing that CEIWEI recently released a new tool for Modbus RTU Over TCP/UDP filtering and monitoring, I actively went to its official website to take a look. It turned...
1
by: PapaRatzi | last post by:
Hello, I am teaching myself MS Access forms design and Visual Basic. I've created a table to capture a list of Top 30 singles and forms to capture new entries. The final step is a form (unbound)...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.