包括模块安装Perl->使用Net::SMTP_auth发邮件

使用Net::SMTP_auth发邮件，首先要先安装Net::SMTP_auth模块。
1. Windows Operating System：如果是在windows操作系统使用的ActivePerl的话，则进入ActivePerl的安装目录的可执行程序目录，也就是bin目录。（例如：C:/Perl/bin）执行命令ppm-shell ，(PPM：Perl Package Manager
Perl包管理器），然后执行命令：
C:/Perl/bin>ppm-shell
ppm 4.01
Copyright (C) 2007 ActiveState Software Inc.  All rights reserved.
ppm> install Net::SMTP_auth

2. Linux Operating System：如果是在linux操作系统使用Perl的话，则使用命令cpan后面跟要安装的模块就可以了。（如果是第一次使用cpan的话，会要求先配置cpan的一些信息，一直按默认的设置就可以了）。
[ [e-mail] ~]# cpan Net::SMTP_auth
（Net::SMTP_auth使用说明： http://search.cpan.org/~apleiner/Net-SMTP_auth-0.08/SMTP_auth.pm ）

接下来就是要编写Perl程序，测试发信。
程序名称：SMTP.pl

 

 

#!c:/perl/bin/perl.exe -w   #如果你的是Linux环境下的话，则使用（#!/usr/bin/perl -w） use Net::SMTP_auth; $smtp = Net::SMTP_auth->new('smtp.qq.com', Hello => 'qq.com', Debug => 1); $smtp->auth('LOGIN','您的QQ号码',‘您的QQ密码'); $smtp->mail('您的QQ号码@qq.com'); $smtp->to('您的QQ号码@qq.com'); $smtp->data(); $smtp->datasend("From:您的QQ号码/@qq.com /n"); $smtp->datasend("To: 您的QQ号码/@qq.com /n"); $smtp->datasend("Subject: Test Mail /n"); $smtp->datasend("/n"); $smtp->datasend("这是一封测试邮件 /n"); $smtp->dataend(); $smtp->quit;

测试结果：

C:/test>perl smtp.plNet::SMTP_auth>>> Net::SMTP_auth(0.08)Net::SMTP_auth>>>   Net::SMTP(2.31)Net::SMTP_auth>>>     Net::Cmd(2.29)Net::SMTP_auth>>>       Exporter(5.60)Net::SMTP_auth>>>     IO::Socket::INET(1.31)Net::SMTP_auth>>>       IO::Socket(1.30)Net::SMTP_auth>>>         IO::Handle(1.27)Net::SMTP_auth=GLOB(0x1a196c4)<<< 220 smtp.qq.com ESMTP QQMail Ver 2.2Net::SMTP_auth=GLOB(0x1a196c4)>>> EHLO qq.comNet::SMTP_auth=GLOB(0x1a196c4)<<< 250-smtp.qq.comNet::SMTP_auth=GLOB(0x1a196c4)<<< 250-PIPELININGNet::SMTP_auth=GLOB(0x1a196c4)<<< 250-SIZE 52428800Net::SMTP_auth=GLOB(0x1a196c4)<<< 250-AUTH LOGINNet::SMTP_auth=GLOB(0x1a196c4)<<< 250-AUTH=LOGINNet::SMTP_auth=GLOB(0x1a196c4)<<< 250 8BITMIMENet::SMTP_auth=GLOB(0x1a196c4)>>> AUTH LOGINNet::SMTP_auth=GLOB(0x1a196c4)<<< 334 VXNlcm5hbWU6Net::SMTP_auth=GLOB(0x1a196c4)>>> NDcyNTU0OTc3Net::SMTP_auth=GLOB(0x1a196c4)<<< 334 UGFzc3dvcmQ6Net::SMTP_auth=GLOB(0x1a196c4)>>> W3dhbnl4eTc4OTIwNTldNet::SMTP_auth=GLOB(0x1a196c4)<<< 235 Authentication successfulNet::SMTP_auth=GLOB(0x1a196c4)>>> MAIL FROM:<您的QQ号码@qq.com>Net::SMTP_auth=GLOB(0x1a196c4)<<< 250 OkNet::SMTP_auth=GLOB(0x1a196c4)>>> RCPT TO:<您的QQ号码@qq.com>Net::SMTP_auth=GLOB(0x1a196c4)<<< 250 OkNet::SMTP_auth=GLOB(0x1a196c4)>>> DATANet::SMTP_auth=GLOB(0x1a196c4)<<< 354 End data with <CR><LF>.<CR><LF>Net::SMTP_auth=GLOB(0x1a196c4)>>> From: 您的QQ号码@qq.comNet::SMTP_auth=GLOB(0x1a196c4)>>> To: 您的QQ号码@qq.comNet::SMTP_auth=GLOB(0x1a196c4)>>> Subject: Test MailNet::SMTP_auth=GLOB(0x1a196c4)>>> 这是一封测试邮件Net::SMTP_auth=GLOB(0x1a196c4)>>> .Net::SMTP_auth=GLOB(0x1a196c4)<<< 250 Ok: queued asNet::SMTP_auth=GLOB(0x1a196c4)>>> QUITNet::SMTP_auth=GLOB(0x1a196c4)<<< 221 Bye