1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
#!/usr/bin/perl

# requires Mail::Sender and IO::Socket::SSL installed using cpan

use strict;
use Mail::Sender;

my $text = "msg texto";
my $html = "<h1>msg html</h1>";

# Abrindo a conexão
my $from = 'Joao Silva <[EMAIL DE REMETENTE]>';
my $subject = 'Titulo';

# Login credentials
my $username = '[USUARIO]';
my $password = "[SENHA]";

my $to = 'conta@dominio.com';

eval {
  (new Mail::Sender)
  ->OpenMultipart({
   smtp            => 'smtplw.com.br',
   port            => 587,
   from            => $from,
   to              => $to,
   subject         => $subject,
   multipart       => 'mixed',
   auth            => 'PLAIN',
   authid          => $username,
   authpwd         => $password,
   TLS_required    => 0,
   on_errors       => 'undef'
   })
  ->Part({ctype => 'multipart/alternative'})
  ->Part({ctype => 'text/plain', disposition => 'NONE', msg => $text})
  ->Part({ctype => 'text/html', disposition => 'NONE', msg => $html})
  ->EndPart("multipart/alternative")
  ->Close();
} or print "Error sending mail: $Mail::Sender::Error\n";