Hello Sajjad,
Do you want to send only the values of the form or the
whole HTML form with values?
If you want to send only values of the HTML form then
use this procedure:
instead of this line
print $query->start_form(-action => 'some_action');
write
print $query->start_form(-action => 'xx.pl');
this xx.pl file will send the mail. The mail routine
will be present in this xx.pl file and also collect
parameters in this file instead of the form itself.
If you want to send the HTML file with data then it is
little hard, because you need to write code for same
HTML code (which is used for generate HTML in the
form) and collect each parameter separetly and put the
value in each field.
This is not a good procedure, but this will work.
Thanks
Pijush
--- SHEIKH Sajjad <[EMAIL PROTECTED]> wrote:
> Hello Koley,
>
> Following script generates the dynamic form. I want
> to send all the
> form fields by email.
>
> Regards,
> Sajjad
>
> #!Z:/bin/perl.exe -w --
>
> use strict; # get in the habit of using this and -w
> above -
> # it will save you grief in the long run. You
> # can also use use warnings; instead of -w
> use CGI;
>
> # To get the errors back to the browser:
>
> use CGI::Carp qw(fatalsToBrowser);
>
> # Output a content header prior to any text
>
> print "Content-Type: text/html\n\n";
>
> my $query = new CGI;
> my @names = $query->param;
>
> #foreach (@names) {
> # print "<BR>$_ = ", $query->param($_), "\n";
> #}
>
> print $query->start_html(-title=>'Request Form');
> print $query->h3(qq{Document Request Form for <font
> color="blue">}
> .$query->param('name'), "</font>");
>
> print $query->start_form(-action => 'some_action');
> print $query->p("<table>");
> print
>
$query->p("<tr><td>ID:</td><td>".$query->textfield(-name=>'id',-size=>10
> , -readonly),"</td></tr>");
> print
>
$query->p("<tr><td>Name:</td><td>".$query->textfield(-name=>'name',-size
> =>10, -readonly), "</td></tr>");
> print $query->p("<tr><td>Last
>
Modified:</td><td>".$query->textfield(-name=>'lastmodified',-size=>10,
> -readonly), "</td></tr>");
> print
>
$query->p("<tr><td>Description:</td><td>".$query->textfield(-name=>'desc
> ription',-size=>10, -readonly), "</td></tr>");
> print
>
$query->p("<tr><td>Title:</td><td>".$query->textfield(-name=>'title',-ty
> pe=>'radio', -size=>10), "</td></tr>");
> print $query->p("</table>");
> print $query->submit(-name=>'submit');
> print $query->end_form();
> print $query->end_html();
>
> -----Original Message-----
> From: pijush koley [mailto:[EMAIL PROTECTED]
> Sent: 04 December 2003 17:27
> To: SHEIKH Sajjad
> Cc: [EMAIL PROTECTED]
> Subject: RE: How do i send HTML Emails ?
>
>
> Hi Sajjad,
> Cau you tell me what type of data you want to send
> along the mail?
>
> In my previous mail I wrote a line
> my $Mail = Net::SMTP->new("$strMailServer");
>
> where $strMailServer must have a domain name or IP
> and before you use the Net::SMTP module make sure
> that
> you can access the server i.e. the machine through
> which you will send the mail.
>
> There is one more point, I also mentioned
> my @Message = <message> #Note that message will
> content a html file##
>
> So if you put only "hi" in @Messsage, you will not
> see
> any HTML magic in the mail. So make sure that
> @Message
> will contain the content of a HTML file.
>
> Thanks
> -Pijush
>
> --- "Chacon-Taylor, Monique"
> <[EMAIL PROTECTED]> wrote:
> > I use sendmail to announce builds.
> > Where
> > @to=('[EMAIL PROTECTED]','[EMAIL PROTECTED]')
> >
> > $torepply= join(';',@to); make the addresses
> appear
> > correctly in outlook (; separated)
> >
> > I use a subroutine my_mail
> >
> > #-------------------------------------
> > #sub my_mail
> > #-------------------------------------
> > sub my_mail{
> > use Net::SMTP;
> > my $string="see $ENV{TODIR}\\$build_name";
> > close(MAIL);
> > open(MAIL,"<$mail") or die "build.pl: my_mail:
> > Cannot open $mail: error: $!\n";;
> > my @log=<MAIL>;
> > @log=("$subject\n",@log,"$string\n");
> > close(MAIL);
> > my $torepply= join(';',@to);
> > $smtp = Net::SMTP->new($SMTPHOST);
> > $smtp->mail($from);
> > $smtp->recipient(@to, { SkipBad => 1 });
> > $smtp->data();
> > $smtp->datasend("To: $torepply\n");
> > $smtp->datasend("Subject: $subject: $string\n");
> > $smtp->datasend("\n");
> > $smtp->datasend("@log\n");
> > $smtp->datasend("\n");
> > $smtp->dataend();
> > $smtp->quit;
> > return 1;
> > }
> >
> > -----Original Message-----
> > From: SHEIKH Sajjad
> > [mailto:[EMAIL PROTECTED]
> > Sent: Thursday, December 04, 2003 6:55 AM
> > To: pijush koley; Story, Lenny
> > Cc: [EMAIL PROTECTED]
> > Subject: RE: How do i send HTML Emails ?
> >
> >
> > How can we send mail with data?
> >
> > -----Original Message-----
> > From: pijush koley [mailto:[EMAIL PROTECTED]
> > Sent: 04 December 2003 14:53
> > To: Story, Lenny
> > Cc: [EMAIL PROTECTED]
> > Subject: Re: How do i send HTML Emails ?
> >
> >
> > Hi Lenny,
> > Please try following code.
> >
> > use Net::SMTP;
> >
> > my @MailID =<mail id>;
> > my @Message = <message> #Note that message will
> > content a html file##
> > my $Mail = Net::SMTP->new("$strMailServer");
> > $Mail -> mail($ENV{USER});
> > $Mail -> to (@MailID);
> > $Mail -> data();
> > $Mail -> datasend ("Subject:xxxxxx\n");
> > $Mail -> datasend ("To: @MailID\n");
> > $Mail -> datasend ("From:xxxxx\n");
> > $Mail -> datasend ("Mime-Version: 1.0\;\n");
> > $Mail -> datasend ("Content-Type: text/html\;
> > charset=\"ISO-8859-1\"\;");
> > $Mail -> datasend ("Content-Transfer-Encoding:
> > 7bit\;");
> > $Mail -> datasend ("\n\n");
> > $Mail -> datasend ("@Message\n");
> > $Mail -> dataend();
> > $Mail -> quit;
> >
> > I have tested this code and this is working fine.
> > Thanks
> > Pijush
> > --- "Story, Lenny" <[EMAIL PROTECTED]>
> wrote:
> > > Greetings,
> > >
> > > Can anyone tell me the best way to send html
> > emails
> > > ?
> > >
> > > Thanks,
> > > Lenny
> > > _______________________________________________
> > > ActivePerl mailing list
> > > [EMAIL PROTECTED]
> > > To unsubscribe:
> > http://listserv.ActiveState.com/mailman/mysubs
> >
> >
> > __________________________________
> > Do you Yahoo!?
> > Free Pop-Up Blocker - Get it now
> > http://companion.yahoo.com/
> > _______________________________________________
>
=== message truncated ===
__________________________________
Do you Yahoo!?
Free Pop-Up Blocker - Get it now
http://companion.yahoo.com/
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
