smtpHtml.pl

#!/usr/bin/env perl

use strict;
use warnings;

use Try::Tiny;
use DDP;
use Email::Sender::Simple qw(sendmail);
use Email::Sender::Transport::SMTP;
use Email::MIME::CreateHTML;

my $transport = Email::Sender::Transport::SMTP->new(
    {
        host          => 'mail.saude.ma.gov.br',
        port          => 465,
        sasl_username => 'chaves@saude.ma.gov.br',
        sasl_password => '123456',
        helo          => 'mail.saude.ma.gov.br',
        ssl           => 1,
        ssl_options   => { SSL_verify_mode => 0 },

        #           debug => 1,
    }
);

    my $html = qq{
            <!DOCTYPE html>
            <html>
                <head>
                    <meta charset="utf-8">
                    <meta name="viewport" content="width=device-width">
                    <title>JS Bin</title>
                    <style>
                        body {
                            background-color: #EEEEEE;
                            margin: 0;
                            padding: 0;
                            font-family: Verdana, Arial;
                        }
                        #logo {
                            text-align: center;
                            //border: 1px solid red;
                            width: 100%;
                            margin-top: 20px;
                            margin-bottom: 20px;
                        }
                        img {
                            height: 90px;
                        }
                        table {
                            width: 60%;
                        }
                        table, th, td {
                            border: 1px solid black;
                            background-color: #FFF;
                            margin: auto auto;
                            border-collapse: collapse;
                            padding: 10px;
                            font-size: 14px;
                        }
                        table td {
                            width: 50%;
                            text-align: center;
                        }
                        tfoot td {
                            font-size: 11px;
                            font-style: italic;
                        }
                        .backupname {
                            color: #004094;
                        }
                    </style>
                </head>
                <body>
                    <div id="logo">
                        <img src=3D"./maranhao.png" alt=3D"Secretaria de Estado da Saúde do Maranhão">
                    </div>

                    <table>
                        <tr>
                            <th colspan="2">Sistema Gerenciador de Backup</th>
                        </tr>
                        <tr>
                            <td>Nome da base</td>
                            <td>cnes</td>
                        </tr>
                        <tr>
                            <td>Data de realização</td>
                            <td>23/03/2017</td>
                        </tr>
                        <tr>
                            <td>Nome do arquivo</td>
                            <td class="backupname">cnes.tgz-bkp-25-03-2018_23_00_05</td>
                        </tr>
                        <tr>
                            <td>Duração do backup</td>
                            <td>5 minutos</td>
                        </tr>
                        <tfoot>
                            <tr>
                                <td colspan="2">by tchaves</td>
                            </tr>
                        </tfoot>
                    </table>
                </body>
            </html>
    };

my $email = Email::MIME->create_html(
    header => [
        From    => '"Tacito Chaves" <chaves@saude.ma.gov.br>',
        To      => '<chaves@saude.ma.gov.br>',
        Cc      => '<tacito.ma@hotmail.com>',
        Subject => "Serviço Gerenciador de Backup: Backup do upa_dev OK",
    ],
    body => "$html"
);

try {
        sendmail( $email, { transport => $transport } );
        #return { status => 'success' };
}
catch {
    my $err = $_->message;
    chomp $err;
    warn { status => 'error', error => $err };
};