vimsendmail.pl
#!/usr/bin/perl-w
useMIME::Lite;
subperl_sendmail{
my$mail_to=shift;
#my$mail_to="$_[0]";
my$from=shift;
#my$from="$_[1]";
my$subject=shift;
#my$subject="$_[2]";
my$data=shift;
#my$data="$_[3]";
$sendmail=MIME::Lite->new(
From=>$from,..
分类：
其他好文 时间：
2014-06-10 18:50:19
阅读次数：
310
vimsendmail.pl#!/usr/bin/perl-wuseMIME::Lite;subperl_sendmail{my$mail_to="$_[0]";收件人邮箱my$from="$_[1]";发件人邮箱my$subject="$_[2]";邮件标题my$data="$_[3]";邮件内容$sendmail=MIME::Lite->new(From=>$from,To=>$mail_to,Subject=>$subject,Data=>..
分类：
其他好文 时间：
2014-05-02 03:00:15
阅读次数：
283
