Erro após enviar e-mail

[tuliomac01]

Boa tarde, estou utilizando a seguinte função para envio do e-mail NFSe:
procedure EnviaEmail(const sSmtpHost,
                               sSmtpPort,
                               sSmtpUser,
                               sSmtpPasswd,
                               sFrom,
                               sTo,
                               sAssunto: String;
                               sMensagem : TStrings;
                               SSL : Boolean;
                               sCC: TStrings = nil;
                               Anexos:TStrings=nil;
                               PedeConfirma: Boolean = False;
                               AguardarEnvio: Boolean = False;
                               NomeRemetente: String = '';
                               TLS : Boolean = True;
                               StreamNFSe : TStringStream = nil;
                               NomeArq : String = '';
                               UsarThread: Boolean = True;
                               HTML: Boolean = False);

O e-mail é enviado porém o mesmo da o erro em seguida:

SMTP ERROR: MailFrom:Permanent Failure-

530 5.7.57 SMTP; Client was not authenticated to send anonymous mail during MAIL FROM

Estou utilizando o seguinte smtp: smtp.office365.com na porta 587 autenticação TSL.

Estou enviando:
EnviarEmail(smtp.office365.com,
        587,
        [email protected],
        minhasenha,
        [email protected],
        [email protected], // E-mail do destinatário
        assuntoEmail, // Assunto
        stlMensagem, // Mensagem
        emailSSL = False, // SSL
        False, // Enviar em PDF
        stlCC, // sCC
        stlAnexos, // Anexos
        True, // Pede Confirmação de Recebimento
        True, // Aguarda o Envio
        [email protected],
        emailTSL = True); // Nome do remetente

OBS: O e-mail é enviado com os anexos corretamente, porém aparece a mensagem acima de "SMTP ERROR".

Alguém tem alguma ideia do que seja?

 

[tuliomac01]

Boa tarde, estou utilizando a seguinte função para envio do e-mail NFSe:
procedure EnviaEmail(const sSmtpHost,
                               sSmtpPort,
                               sSmtpUser,
                               sSmtpPasswd,
                               sFrom,
                               sTo,
                               sAssunto: String;
                               sMensagem : TStrings;
                               SSL : Boolean;
                               sCC: TStrings = nil;
                               Anexos:TStrings=nil;
                               PedeConfirma: Boolean = False;
                               AguardarEnvio: Boolean = False;
                               NomeRemetente: String = '';
                               TLS : Boolean = True;
                               StreamNFSe : TStringStream = nil;
                               NomeArq : String = '';
                               UsarThread: Boolean = True;
                               HTML: Boolean = False);

O e-mail é enviado porém o mesmo da o erro em seguida:

SMTP ERROR: MailFrom:Permanent Failure-

530 5.7.57 SMTP; Client was not authenticated to send anonymous mail during MAIL FROM

Estou utilizando o seguinte smtp: smtp.office365.com na porta 587 autenticação TSL.

Estou enviando:
EnviarEmail(smtp.office365.com,
        587,
        [email protected],
        minhasenha,
        [email protected],
        [email protected], // E-mail do destinatário
        assuntoEmail, // Assunto
        stlMensagem, // Mensagem
        emailSSL = False, // SSL
        False, // Enviar em PDF
        stlCC, // sCC
        stlAnexos, // Anexos
        True, // Pede Confirmação de Recebimento
        True, // Aguarda o Envio
        [email protected],
        emailTSL = True); // Nome do remetente

OBS: O e-mail é enviado com os anexos corretamente, porém aparece a mensagem acima de "SMTP ERROR".

Alguém tem alguma ideia do que seja?

 

Desculpa pessoal, corrigindo NÃO ENVIA O E-MAIL...