Foro - Perl en Español

por **audax** » 2014-11-24 08:08 @381

Estimados,

Tengo un problemita con lo siguiente. Resulta que estoy intentando enviar un correo desde una máquina de Windows. Yo ocupo la librería MIME::Lite, y como servidor outlook.office365.com. Este el código.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

        my $msg = MIME::Lite->new(
                From    => $remitente,
                To      => $destinatario,
                Subject => 'Reporte de Error '.$fecha,
                Type    => 'multipart/mixed'
        );
 
    ### Add parts (each "attach" has same arguments as "new"):
        $msg->attach(
                Type     => 'TEXT',
                Data     => 'Reporte de Errores.'
        );
        
        if ($archivoerror == 1)
        {
                $nombreArchivoError = &nombreError();
                
                $msg->attach(
                Path     => 'Temp/'.$nombreArchivoError,
                Type     => 'application/msword',
                Encoding => 'base64',
                );
        }
        
        ### use Net:SMTP to do the sending
        $msg->send('smtp',$host ,AuthUser=>$remitente,AuthPass=>$pass,Debug=>1 );
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

y me da el siguiente resultado.

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

MIME::Lite::SMTP>>> MIME::Lite::SMTP

MIME::Lite::SMTP>>>   Net::SMTP(2.32)

MIME::Lite::SMTP>>>     Net::Cmd(2.30)

MIME::Lite::SMTP>>>       Exporter(5.68)

MIME::Lite::SMTP>>>     IO::Socket::INET(1.33)

MIME::Lite::SMTP>>>       IO::Socket(1.34)

MIME::Lite::SMTP>>>         IO::Handle(1.33)

MIME::Lite::SMTP=GLOB(0x3b48280)<<< 220 BN1PR08CA0031.outlo

osoft ESMTP MAIL Service ready at Mon, 24 Nov 2014 13:04:04

MIME::Lite::SMTP=GLOB(0x3b48280)>>> EHLO localhost.localdom

MIME::Lite::SMTP=GLOB(0x3b48280)<<< 250-BN1PR08CA0031.outlo

o [190.153.236.146]

MIME::Lite::SMTP=GLOB(0x3b48280)<<< 250-SIZE 78643200

MIME::Lite::SMTP=GLOB(0x3b48280)<<< 250-PIPELINING

MIME::Lite::SMTP=GLOB(0x3b48280)<<< 250-DSN

MIME::Lite::SMTP=GLOB(0x3b48280)<<< 250-ENHANCEDSTATUSCODES

MIME::Lite::SMTP=GLOB(0x3b48280)<<< 250-STARTTLS

MIME::Lite::SMTP=GLOB(0x3b48280)<<< 250-8BITMIME

MIME::Lite::SMTP=GLOB(0x3b48280)<<< 250-BINARYMIME

MIME::Lite::SMTP=GLOB(0x3b48280)<<< 250 CHUNKING

SMTP auth() command not supported on outlook.office365.comColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Si alguien caritativo me puede dar algún enlace o decir qué puedo hacer estaré muy agradecido.

MIME::Lite::SMTP>>> MIME::Lite::SMTP

MIME::Lite::SMTP>>>   Net::SMTP(2.34)

MIME::Lite::SMTP>>>     Net::Cmd(2.30)

MIME::Lite::SMTP>>>       Exporter(5.70)

MIME::Lite::SMTP>>>     IO::Socket::INET(1.33)

MIME::Lite::SMTP>>>       IO::Socket(1.36)

MIME::Lite::SMTP>>>         IO::Handle(1.34)

MIME::Lite::SMTP=GLOB(0x530f558)<<< 220 BN3PR15CA0018.outlook.office365.com Microsoft ESMTP MAIL Service ready at Wed, 4 Nov 2015 14:47:25 +0000

MIME::Lite::SMTP=GLOB(0x530f558)>>> EHLO localhost.localdomain

MIME::Lite::SMTP=GLOB(0x530f558)<<< 250-BN3PR15CA0018.outlook.office365.com Hello [200.107.67.34]

MIME::Lite::SMTP=GLOB(0x530f558)<<< 250-SIZE 157286400

MIME::Lite::SMTP=GLOB(0x530f558)<<< 250-PIPELINING

MIME::Lite::SMTP=GLOB(0x530f558)<<< 250-DSN

MIME::Lite::SMTP=GLOB(0x530f558)<<< 250-ENHANCEDSTATUSCODES

MIME::Lite::SMTP=GLOB(0x530f558)<<< 250-STARTTLS

MIME::Lite::SMTP=GLOB(0x530f558)<<< 250-8BITMIME

MIME::Lite::SMTP=GLOB(0x530f558)<<< 250-BINARYMIME

MIME::Lite::SMTP=GLOB(0x530f558)<<< 250 CHUNKING

SMTP auth() command not supported on smtp.office365.com
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2015-11-04 19:04 @836

Micro$oft tiene instrucciones para permitir el envío de correo de forma autenticada. Como verás, hay que cambiar el nombre del servidor y el puerto de entrega del correo.

por **audax** » 2015-11-05 07:16 @345

Gracias por contestar, pero, ¿a qué te refieres con cambiar el servidor? Yo solo tengo los servidores smtp.office365.com y outlook.office365.com. ¿Te refieres a cambiar esto? ¿Algo así como pop3.office365.com o mail.authsmtp.com? ¿Me puedes dar un ejemplo, por favor, que no entendí mucho cómo aplicar lo que dice el sitio https://www.authsmtp.com/outlook-2013/alternate-port.html en Perl? Por el puerto tendría que ocupar el 587.

por **explorer** » 2015-11-06 13:41 @612

En el enlace pone que hay que cambiarlo a mail.authsmtp.com

Y el puerto, el 2525.

Pero... hay otra solución.

1) Hay que tener una cuenta de Office365

2) Instalar en el ordenador el módulo Net::SMTP:TLS

3) Cambiar las partes marcadas con '<=='

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use Net::SMTP::TLS;  
 
#
my $mailer = new Net::SMTP::TLS(  
    'smtp.office365.com',
    Port    =>      587,  
    Hello   =>      '',
    User    =>      'Username-Email-ID',                # <==
    Password=>      'Password',                         # <==
    Debug   => 1) || die "Cannot connect to smtp server";
 
$mailer->mail('[email protected]');             # <==
$mailer->to('[email protected]');                 # <==
$mailer->data;  
$mailer->datasend("\n");  
$mailer->datasend("Sent from perl!");  
$mailer->dataend;  
$mailer->quit;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **audax** » 2015-11-10 10:36 @484

Gracias, explorer, siempre tan amable en responder.

La primera parte no me funciona me da error de autenticación (las credenciales que le ingreso son las correctas).

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

MIME::Lite::SMTP=GLOB(0x5e2d898)<<< 535 5.7.0 authentication failed

SMTP auth() command failed: 

5.7.0 authentication failedColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

La segunda parte tampoco me funcionó: tengo las librerías actualizadas, sobre todo la IO-socket-SSl que indica el error

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

invalid SSL_version specified at c:/Perl64/site/lib/IO/Socket/SSL.pm line 568.Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¿Algún camino de por dónde pueda seguir jugando con esto? Gracias por todo.

por **explorer** » 2015-11-10 16:44 @739

Cuando empiezan a salir esos errores... empiezo a creer que hay un problema en la instalación de las bibliotecas.

Yo desinstalaría las bibliotecas instaladas a mano, y probaría a instalar las que me ofrece el propio sistema (el gestor de paquetes de tu sistema). Así tendré la garantía de que todas las versiones son compatibles entre sí, pues precisamente eso es lo que indica el último error: que estamos intentando usar una versión SSL diferente de la que IO::Socket::SSL es capaz de manejar.

Hay otra opción mucho mejor y más rápida: no usar Microsoft.

por **audax** » 2016-02-18 13:27 @602

Después de un tiempo retomé este proyecto y pude hacer funcionar el envío de correo. Cambié las librerías por este código.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Email::Sender::Simple qw(sendmail);
use Email::Sender::Transport::SMTPS;
use Email::Simple ();
use Email::Simple::Creator ();
 
my $smtpserver = 'smtp.office365.com';
my $smtpport = 587;
my $username = '[email protected]';
my $password = "xxxx";
 
my $transport = Email::Sender::Transport::SMTPS->new({
  host => $smtpserver,
  ssl  => 'starttls',
  port => $smtpport,
  sasl_username => $smtpuser,
  sasl_password => $smtppassword,
  debug => 1,
});
 
my $email = Email::Simple->create(
  header => [
    To      => '[email protected]',
    From    => '[email protected]',
    Subject => 'Hi!',
  ],
  body => "This is my message\n",
);
 
sendmail($email, { transport => $transport });
 
1;
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Espero que a alguien le sirva. Y gracias a todos, en especial a explorer, por el tiempo que le dedica a que esto siga adelante.

Salu2.

Foro - Perl en Español

Error SMTP auth() contra office365

Error SMTP auth() contra office365

Publicidad

Re: Error SMTP auth()

Re: Error SMTP auth()

Re: Error SMTP auth()

Re: Error SMTP auth()

Re: Error SMTP auth()

Re: Error SMTP auth()

Re: Error SMTP auth()

Re: Error SMTP auth()

Re: Error SMTP auth()

¿Quién está conectado?