AI时代，找源码已成为过去式，纪念我过去的十年0(回)
75天前
还有人吗2(回)
92天前会python真的可以为所欲为0(回)
572天前
这里还有人吗2(回)
757天前这里还有人吗0(回)
757天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
982天前#!/usr/bin/perl
use strict;
use Net::SMTP;
my $smtp = Net::SMTP->new ( 'smtp.sohu.com', Timeout => 10, Debug => 0 )
or die "new error\n";
#$smtp->auth("user", "passwd") or die "auth error\n";
$smtp->mail ( 'some' );
$smtp->to ( 'some@some.com' );
$smtp->data ( "chinaunix,哈楼你好啊!\n:)" );
$smtp->quit;
exit 0;
有的SMPT Server需要Authentication，那么就使用auth() 方法进行验证。
Debug模式打开，可以看到详细的SMTP命令代码。也有助于我们排错。
by: 发表于：2017-09-12 14:55:12 顶(0) | 踩(0) 回复
？？
回复评论