September 7, 2008 04:37am pdt

1. Adam314 570,642
2. ozo 384,497
3. FishMonger 118,005
4. Tintin 95,412
5. hielo 66,970
6. mjcoyne 60,153
7. nedfine 45,340
8. clockwatc... 26,260
9. ravenpl 24,800
10. ahoffmann 24,599
11. teraplane 23,780
12. kawas 19,050
13. oleber 18,450
14. omarfarid 17,068
15. suhasbha... 16,570
16. marchent 13,540
17. nixfreak 12,200
18. nognew 10,600
19. hernst42 10,080
20. agriesser 10,000
21. SmartIntel 9,760
22. sentner 9,648
23. ddrudik 9,100
24. shanikawm 7,996
25. evilrix 7,500

1. ozo 3,656,262
2. Adam314 1,493,061
3. Tintin 743,706
4. kandura 579,965
5. jmcg 517,810
6. mjcoyne 512,291
7. FishMonger 470,639
8. maneshr 385,976
9. teraplane 367,988
10. manav_m... 338,348
11. clockwatc... 242,548
12. rj2 211,481
13. ahoffmann 210,162
14. davorg 153,165
15. Tim_Utsc... 113,107
16. shlomoy 109,110
17. gripe 98,559
18. suhasbha... 91,970
19. Perl_Diver 82,106
20. sstouk 74,470
21. hielo 72,920
22. nedfine 72,907
23. jhurst 72,319
24. rugdog 70,951
25. ZiaTioN 66,995

06.17.2008 at 02:15PM PDT, ID: 23493311

	[x] Attachment Details

perl, firefox, ie, send email with html format

Asked by itortu in Perl Programming Language

Tags: perl, firefox, ie, send email with html format

hello,

i have a perl script that send an email after a from submission.

the email is received with plain text.

i would like to apply html tags to the body of the email and i would like to see if someone can help me implement the mime::lite module to my current script if not much to ask for.

i am pasting the code below, it is really small.Start Free Trial

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

           
           
             #!/usr/bin/perl -w
 
use Net::SMTP;
use CGI;
 
my $cgi = new CGI;
 
sub send_mail 
 
{
	my $to = $_[0];
	my $subject = $_[1];
	my $body = $_[2];
 	my $from = $_[3];
 
	my $smtp;
 
if (not $smtp = Net::SMTP->new('mail.server.com', Port => 25, Debug => 1)) 
{
	die "Could not connect to server\n";
}
 
$smtp->mail($from . "\n");
 
my @recepients = split(/,/, $to);
 
foreach my $recp (@recepients) 
{
	$smtp->to($recp . "\n");
}
 
$smtp->data();
$smtp->datasend("From: " . $from . "\n");
$smtp->datasend("To: " . $to . "\n");
$smtp->datasend("Subject: " . $subject . "\n");
$smtp->datasend("\n");
 
$smtp->datasend($body . "\n");
$smtp->dataend();
$smtp->quit;
}
# Send away!
&send_mail($cgi->param('to'), $cgi->param('subject'), $cgi->param('body'), $cgi->param('from'));
 
print $cgi->header;
print '<html><body>Your e-mail has been sent</body></html>';

           
         

Keywords: perl, firefox, ie, send email with ht…

	Title
1	Perl Script Interface to Exchange Mail S…
2	Perl MIME::Lite - Sending via gmail s…
3	Help with MIME Lite
4	Perl New Line Regular Expression
5	View source of perl, anyway? Via b…
6	MIME-Lite substitue

Loading Advertisement...

20080716-EE-VQP-32 / EE_QW_2_20070628

perl, firefox, ie, send email with html format

Asked by itortu in Perl Programming Language

Tags: perl, firefox, ie, send email with html format

About this solution