erro acbrmail enable to send mailto

[Antony Moraes]

Boa tarde.Ao enviar a o xml e pdf pelo acbrmail recebo essa mensagem SMTP erro enable to send mailto,funcionava até a uma semana atrás mas agora memso alterando as configurações apresenta o mesmo erro.

 

segue configuração:

var
 Para : String;
 CC: Tstrings;
begin

    CC:=TstringList.Create;
    try
      CC.Add(email.text); //especifique um email válido

      dmdados.ACBrMail1.Host := dmdados.CDSFTPPASTALOCAL.Text;
      dmdados.ACBrMail1.Port := dmdados.CDSFTPPASTALOCALcli.Text;
      dmdados.ACBrMail1.Username := dmdados.CDSFTParqprod.Text;
       dmdados.ACBrMail1.Password := dmdados.CDSFTParqcliente.Text;
      dmdados.ACBrMail1.From := email.Text;
      dmdados.ACBrMail1.SetSSL := cemail.Checked; // SSL - Conexão Segura
       dmdados.ACBrMail1.SetTLS := cemail.Checked; // Auto TLS

      dmdados.ACBrMail1.ReadingConfirmation := False; //Pede confirmação de leitura do email
       dmdados.ACBrMail1.UseThread := False;           //Aguarda Envio do Email(não usa thread)
       dmdados.ACBrMail1.FromName := 'Pdvlopes Sistema de Gerenciamento Comercial';

      dmdados.ACBrNFe1.NotasFiscais.Items[0].EnviarEmail( Para, Assunto.Text,
                                              texto.Lines
                                               , True  // Enviar PDF junto
                                               , CC    // Lista com emails que serão enviado cópias - TStrings
                                               , nil); // Lista de anexos - TStrings
    finally
      CC.Free;
        SHOWMESSAGE('Email Enviado com Sucesso!!');

    end;
 

1 minuto atrás, Antony Moraes disse:

Boa tarde.Ao enviar a o xml e pdf pelo acbrmail recebo essa mensagem SMTP erro enable to send mailto,funcionava até a uma semana atrás mas agora memso alterando as configurações apresenta o mesmo erro.

 

segue configuração:

var
 Para : String;
 CC: Tstrings;
begin

    CC:=TstringList.Create;
    try
      CC.Add(email.text); //especifique um email válido

      dmdados.ACBrMail1.Host := dmdados.CDSFTPPASTALOCAL.Text;
      dmdados.ACBrMail1.Port := dmdados.CDSFTPPASTALOCALcli.Text;
      dmdados.ACBrMail1.Username := dmdados.CDSFTParqprod.Text;
       dmdados.ACBrMail1.Password := dmdados.CDSFTParqcliente.Text;
      dmdados.ACBrMail1.From := email.Text;
      dmdados.ACBrMail1.SetSSL := cemail.Checked; // SSL - Conexão Segura
       dmdados.ACBrMail1.SetTLS := cemail.Checked; // Auto TLS

      dmdados.ACBrMail1.ReadingConfirmation := False; //Pede confirmação de leitura do email
       dmdados.ACBrMail1.UseThread := False;           //Aguarda Envio do Email(não usa thread)
       dmdados.ACBrMail1.FromName := 'Pdvlopes Sistema de Gerenciamento Comercial';

      dmdados.ACBrNFe1.NotasFiscais.Items[0].EnviarEmail( Para, Assunto.Text,
                                              texto.Lines
                                               , True  // Enviar PDF junto
                                               , CC    // Lista com emails que serão enviado cópias - TStrings
                                               , nil); // Lista de anexos - TStrings
    finally
      CC.Free;
        SHOWMESSAGE('Email Enviado com Sucesso!!');

    end;
 

Esta desta maneira a configuração:

smtp: smtp.gmail.comporta: 465 Username: email do gmailPassword: senah do emailsetSSL: TruesetTLS: True

[AndRR]

Bom dia
Eu tive esse problema por esses dias, e no meu caso era o email  que eu estava enviando que era inválido, tenta colocar pra enviar no seu email para ver se da certo