Perl 发送邮件

最新推荐文章于 2022-11-27 16:51:08 发布

scan724

最新推荐文章于 2022-11-27 16:51:08 发布

阅读量578

点赞数

分类专栏： Perl 大骆驼

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/45575659

版权

Perl 大骆驼专栏收录该内容

72 篇文章 31 订阅 ¥39.90 ¥99.00

订阅专栏

这篇博客介绍了如何用Perl编程语言结合Net::SMTP模块发送邮件。邮件发送涉及SMTP服务器配置，包括邮件用户、密码和服务器地址。此外，还提到了需要安装Authen::SASL模块来完成身份验证。

摘要由CSDN通过智能技术生成

v-lhb-mgr01:/root/mon# cat m5.pl 
use Net::SMTP;

# mail_user should be your_mail@163.com
sub send_mail{
    my $to_address  = shift;
    my $mail_user   = 'zhao.yangjian@163.com';
    my $mail_pwd    = 'xxxxxxxxxxxxxx';
    my $mail_server = 'smtp.163.com';

    my $from    = "From: $mail_user\n";
    my $subject = "Subject: here comes the subject\n";

    my $message = <<CONTENT; 
    **********************
    here comes the content
    **********************
CONTENT

    my $smtp = Net::SMTP->new($mail_server);

    $smtp->auth($mail_user, $mail_pwd) || die "Auth Error! $!";
    $smtp->mail($mail_user);
    $smtp->to($to_address);

    $smtp->data

了解本专栏