Send email out with SMTP : Mail « Network « Perl

Home
Perl
1.Array
2.CGI
3.Class
4.Data Type
5.Database
6.File
7.GUI
8.Hash
9.Language Basics
10.Network
11.Regular Expression
12.Report
13.Statement
14.String
15.Subroutine
16.System Functions
17.Win32
18.XML
Perl » Network » Mail 
Send email out with SMTP
    

#!c:\perl\bin

use Net::SMTP;

print "Content-type: text/html \n\n";

$server = 'mail.mydomain.com';
$fromaddress = 'me@mydomain.com';
$toaddress = 'you@yourdomain.com';

$subject = "Test Example \n\n";

$message = "This is a test \n\n";

$smtp = Net::SMTP->new($server);

$smtp->mail($fromaddress);
$smtp->to($toaddress);
$smtp->data();
$smtp->datasend("Subject: $subject");
$smtp->datasend($message);
$smtp->dataend();

$smtp->quit();

   
    
    
    
  
Related examples in the same category
1.use Mail::POP3Client to send an email out
2.Send email out
3.Send mail
4.Sending mail with Net::SMTP on Windows
5.Get emails from server and save the emails to local drive
6.Open SENDMAIL
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.