mail::sender

（1）发送附件
#!/usr/bin/perl

use Mail::Sender;

$sender = new Mail::Sender{

						smtp =>; 'localhost', 

						from =>; 'xxx@localhost'
						};

$sender->;MailFile({

					to =>; '[e-mail]',

					subject =>; 'hello',

					file =>; 'Attach.txt'

					});

$sender->;Close();


print $Mail::Sender::Error eq "" ? "send ok!\n" : $Mail::Sender::Error;


(2)发送html内容：
#!/usr/bin/perl

use Mail::Sender;

open(IN, "< ./index.html") or die("");



$sender = new Mail::Sender{

						smtp =>; 'localhost', 

						from =>; 'xxx@localhost'

						};


$sender->;Open({

					to =>; '[e-mail]',

					subject =>; 'xxx',

					msg =>; "hello!",

					ctype =>; "text/html",

					encoding =>; "7bit",

					});



while(;)

{

	$sender->;SendEx($_);

}

close IN;

$sender->;Close();



print $Mail::Sender::Error eq "" ? "send ok!\n" : $Mail::Sender::Error;