perl Email::Sender 發郵件

在運維工作中，有很多地方需要發送郵件的方式進行監控。

#!/usr/bin/perl   #perl的安裝目錄
use strict;
use warnings;

use Email::Simple;
use Email::Sender::Simple qw(sendmail);
use Email::Sender::Transport::SMTP::TLS;

my $transport = Email::Sender::Transport::SMTP::TLS->new(
    host     => 'smtp.163.com',
    port     => 25,                        -- 對應的amtp的端口號
    username => '[email protected]',  -- 郵箱地址
    password => 'XXXX' ;                     -- 這是授權碼，不是郵箱真正的密碼，具體請去百度
);


my $message = Email::Simple->create(
    header => [
        From           => '[email protected]',
        To             => '[email protected]',
        Subject        => 'Sent from perl Test!',
    ],
    body => 'Sent from perl Test!',
);


sendmail( $message, {transport => $transport} );