`

perl smtp 发送邮件

    博客分类:
  • perl
阅读更多

原文:http://blog.chinaunix.net/uid-21505614-id-289463.html

use Net::SMTP;

my $mailhost = "smtp.126.com"; # the smtp host
my $mailfrom = 'my@126.com'; # your email address
my @mailto = ('my@163.com'); # the recipient list
my $subject = "标题";
my $text = "正文\n第二行位于此。";

#$smtp = Net::SMTP->new($mailhost, Hello => 'localhost', Timeout => 120, Debug => 1);
$smtp = Net::SMTP->new($mailhost, Hello => 'localhost', Timeout => 120);

# anth login, type your user name and password here
$smtp->auth('my@126.com','my126');

foreach my $mailto (@mailto) {
        # Send the From and Recipient for the mail servers that require it
        $smtp->mail($mailfrom);
        $smtp->to($mailto);

        # Start the mail
        $smtp->data();

        # Send the header
        $smtp->datasend("To: $mailto\n");
        $smtp->datasend("From: $mailfrom\n");
        $smtp->datasend("Subject: $subject\n");
        $smtp->datasend("\n");

        # Send the message
        $smtp->datasend("$text\n\n");

        # Send the termination string
        $smtp->dataend();
}
$smtp->quit;
 ##########################

#所需安装模块

#use Net::SMTP

#Authen::SASL

##########################

#$stmp->auth('user','pass');

#大部分SMTP服务器为了防止 spam /垃圾邮件,就需要用户验证身份。

#此方法需要另外安装模块:Authen::SASL, 此模块可能系统不自带

##########################

 

#Debug => 1

#此段代码用于测试之用,所以开启了Debug,一般测试一次完毕,正式使用的话会关闭它。

 

 

 

分享到:
评论

相关推荐

    perl smtp发送邮件

    perl smtp 发送邮件 自动发送邮件

    perl 写的发邮件smtp

    my $body = '这是一封使用Perl通过SMTP发送的测试邮件。'; # SMTP服务器配置 my $smtp_server = 'smtp.example.com'; my $smtp_port = 587; # 常见的SMTP端口,可能是25或465,具体取决于你的邮件服务提供商 my $...

    perl自动发邮件

    标题"perl自动发邮件"表明我们要讨论如何利用Perl编写脚本来创建一个自动发送邮件的程序。Perl提供了多个模块来处理电子邮件的发送,其中最常用的是`Email::Sender`系列模块,如`Email::Sender::Simple`用于基础的...

    perl发送邮件

    Perl发送邮件主要依赖于`Net::SMTP`模块,这是一个标准的Perl模块,用于通过简单邮件传输协议(SMTP)发送邮件。以下是一个简单的Perl脚本示例,展示了如何使用这个模块发送邮件: ```perl use Net::SMTP; # 邮件...

    利用perl给多人发送邮件

    这样的配置允许Perl脚本通过SMTP协议连接到指定的邮件服务器并发送邮件。 2. **脚本sendmail.pl**: `sendmail.pl`是实际执行邮件发送的Perl脚本。以下是一个简单的示例: ```perl use strict; use warnings; ...

    Perl发送邮件脚本

    一个perl发送邮件的脚本: 功能: mailto.pl -s Subject -t To -f file-... -s 指定主题 -t 指定接收人,多人以,分隔 -f 邮件内容,发之前放在文件中 ... 注: 1、使用Net::SMTP发送邮件 2、本工具不支持发送附件!

    Perl的Email 发送程序与插件

    `Mail::Sender`是Perl中一个常用的邮件发送模块,它简化了通过SMTP协议发送电子邮件的过程。SMTP(Simple Mail Transfer Protocol)是互联网上用于传输电子邮件的标准协议。`Mail::Sender`模块允许程序员设置发件人...

    sendEmail一个用perl写的邮件客户端

    "sendEmail" 是一个基于Perl编写的轻量级邮件客户端程序,它允许用户通过命令行接口发送电子邮件。这个工具对于开发者来说非常方便,因为它不需要复杂的图形界面,而是通过简单的命令参数就能完成邮件的发送。 ...

    邮件发送smtp类ereg等函数替换版

    在邮件发送方面,SMTP类通常用于通过SMTP服务器发送邮件。SMTP类的实现可能会涉及以下部分: 1. **连接设置**:包括SMTP服务器的地址、端口号、是否使用SSL/TLS加密、用户名和密码等信息。 2. **身份验证**:使用...

    Linux或Ubuntu下SVN服务器自动发送邮件配置

    这个模块是Perl通过SMTP发送邮件时进行身份验证所必需的。如果没有安装,当尝试发送邮件时,你会看到一个错误提示:“SMTP Error: Need MIME::Base64 and Authen::SASL todo auth”。在Ubuntu上,可以使用`apt-get`...

    告警监控发送邮件脚本

    4. 发送邮件:通过SMTP服务器发送邮件,包括发件人、收件人信息及邮件内容。 5. 关闭连接:发送完毕后关闭与SMTP服务器的连接。 三、监控脚本设计要点 1. 自动化:脚本应能自动运行,定时检查系统状态,无需人工...

    blat自动发送邮件

    Blat是一款轻量级的命令行工具,专用于通过SMTP(简单邮件传输协议)发送电子邮件。这个工具在IT行业中尤其受到系统管理员和自动化脚本编写者的欢迎,因为它可以在没有图形用户界面的情况下工作,使得集成到批处理...

    Net_SMTP-1.8.0.tgz

    Net_SMTP库提供了一系列的方法来与SMTP服务器交互,例如`connect()`用于建立到SMTP服务器的连接,`auth()`用于身份验证,`mail()`和`rcpt()`分别用于指定发件人和收件人,`data()`用于发送邮件内容,以及`quit()`...

    Mail-Sender-0.8.22

    《Perl模块Mail-Sender-0.8.22:SMTP邮件发送详解》 在IT行业中,Perl语言以其强大的文本处理能力和灵活的语法深受程序员喜爱。而`Mail-Sender`是Perl社区中一个非常实用的模块,它简化了通过SMTP协议发送电子邮件...

    svn提交文件自动邮件提醒

    `commit-email.pl` 是一个Perl脚本,通常作为SVN服务器的post-commit钩子,当用户提交代码到SVN仓库后,该脚本会被触发,然后自动发送一封包含提交详情的邮件给指定的收件人。这不仅提高了团队协作效率,也确保了...

    Net_SMTP-1.6.2.tgz

    这个模块是 Perl 语言中用于发送 SMTP(Simple Mail Transfer Protocol)邮件的一个库。在 IT 领域,SMTP 是电子邮件系统的核心部分,它允许用户通过互联网发送邮件。 Perl 的 Net::SMTP 模块提供了与 SMTP 服务器...

    SMTP协议实现总集

    "mail"可能是另一个邮件发送程序,它可能使用了特定的语言(如C或Perl)实现SMTP通信。通过分析这个项目的源码,我们可以了解如何处理SMTP响应、错误处理和邮件编码等问题。 5. **smtp协议** 这个文件名可能代表...

    Network Programming With Perl

    6. **SMTP邮件发送**:`Net::SMTP`模块支持发送电子邮件,包括设置发件人、收件人、主题和正文内容。 7. **DNS查询**:使用`Net::DNS`模块,可以执行DNS解析,获取域名对应的IP地址或其他DNS记录。 8. **网络扫描...

    使用Perl编写CGI时需要注意的几个问题

    该软件允许通过SMTP协议发送邮件,开发者可以在CGI脚本中调用`blat`命令来实现邮件发送功能。更多关于`blat`的信息,请参考相关文档。 2. **使用Socket模块**:另一种更为推荐的方法是利用Perl中的Socket模块直接...

    SMPT PERL适合初学者

    - **模块简介**:`Net::SMTP`是一个Perl模块,提供了用于发送电子邮件的接口,它封装了与SMTP服务器通信的过程。 - **基本用法** - 初始化`Net::SMTP`对象,指定服务器地址等参数。 - 调用相应的命令方法执行SMTP...

Global site tag (gtag.js) - Google Analytics