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/
> _______________________________________________
> ActivePerl mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
>
______________________________________________________________
> This message has been scanned for all viruses by
> BTnet VirusScreen. The
> service is delivered in partnership with
> MessageLabs.
>
> This service does not scan any password protected or encrypted
> attachments.
>
> If you are interested in finding out more about the
> service, please
> visit our website at
>
http://www.btignite.com/internetservices/btnet/products_virusscreen.htm
>
==============================================================
>
> _______________________________________________
> 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/
______________________________________________________________
This message has been scanned for all viruses by BTnet VirusScreen. The
service is delivered in partnership with MessageLabs.
This service does not scan any password protected or encrypted
attachments.
If you are interested in finding out more about the service, please
visit our website at
http://www.btignite.com/internetservices/btnet/products_virusscreen.htm
==============================================================
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
