Envio de e-mail NF-e

[robneto.stz]

Boa tarde a todos!

Me desculpe perguntar sobre isso, pois vi vários posts falando sobre este problema, mais nenhum resolveu o meu problema.

Não consigo enviar e-mail de nenhuma conta de e-mail que ja testei, LocalWeb, Terra, UOL, ig, gmail todas dão o mesmo problema de:

'SMTP ERROR: Login ???-Other undefined status'

Não consigo nem com o programa de exemplo ACBrNFe2.

obrigado!

[moisesaugusto]

Ola, tudo bem ?

Olha, pra falar a verdade eu ainda não desenvolvi essa parte da rotina em meu ERP .

Mas na minha opiniao, está faltando voce logar-se antes de tentar o envio (a maioria dos servidores de email requer autenticação segura, mesmo para o envio )

Se vc postar o codigo que esta usando no momento eu poderia fazer alguns testes e analisarmos juntos.

Boa sorte !

[Dercide Alvarez]

Eu utilizo a rotina de envio de email sem problema nenhum.

1) Acho que primeiro vc deve verificar se as DLL estão na pasta da sua aplicação ou na system32.

libeay32.dll e libeay32.dll

2) Verifique a porta que esta sendo utilizada, a padrão é a 25, mas tem casos que não irá funcionar com 25, sendo obrigado a mudar para 587 por exemplo. No meu caso isso é configurado pelo usuario.

Dercide.

[centuryinf]

Ola

va ao outlook e crie uma conta

portas SMTP 465

POP3 995

se funcionar utilize a mesma porta no componente

ate

[robneto.stz]

Bom dia a todos.

Obrigado pelas respostas.

segue código em que estou tentando enviar a nf-e por e-mail:

MemTexto.Lines.Text := QConfigNFE.FieldByName('EmailTexto').AsString;

MemCC.Lines.Text := QMostraDados.FieldByName('EmailDest').AsString;

ACBrNFe1.NotasFiscais.LoadFromFile(ACBrNFe1.NotasFiscais.Items[0].NomeArq);

ACBrNFe1.NotasFiscais.Items[0].EnviarEmail( QConfigNFE.FieldByName('SmtpServidor').AsString //'smpt.empresa.com.br'

, QConfigNFE.FieldByName('SmtpPorta').AsString //'587'

, QConfigNFE.FieldByName('SmtpUsuario').AsString //'nfe'

, QConfigNFE.FieldByName('SmtpSenha').AsString //'********'

, QConfigNFE.FieldByName('SmtpUsuario').AsString //'nfe'

, QMostraDados.FieldByName('EmailDest').AsString //'[email protected]'

, QConfigNFE.FieldByName('EmailAssunto').AsString //'Segue em anexo sua nf-e'

, MemTexto.Lines //'NF-e referente sua compra: 999'

, iif(QConfigNFE.FieldByName('ConexaoSSL').AsInteger=0,False,True)

, iif(QConfigNFE.FieldByName('EnviaPDF').AsInteger=0,False,True)

, MemCC.Lines //'[email protected]'

, nil //'sem anexo'

, False // confirmação de leitura {True, False} //'sem confirmacao de leitura'

, True // aguardar envio {True, False} //'aguardar envio'

, 'NF-e' //'Remetente'

, iif(QConfigNFE.FieldByName('ConexaoSSL').AsInteger=0,False,True) );

Debugando estão todos os dados preenchidos corretamente!

A conta de e-mail usada nos testes é da locaweb e está funcionando corretamente no outlook.

As dlls libeay32.dll e ssleay32.dll estão na pasta do sistema e tb na pasta System32 do windows.

Mais uma vez obrigado a todos!

[robneto.stz]

centuryinf, bom dia!

As contas de e-mail que estou utilizando para teste aqui, uma é da locaweb e a outra é do terra e nehuma delas funcionaram com as portas que vc solicitou que fosse testado.

{ Ola

va ao outlook e crie uma conta

portas SMTP 465

POP3 995

se funcionar utilize a mesma porta no componente

ate}

[Kiko Fernandes]

... ).AsString //'smpt.empresa.com.br'

Dê uma conferida também no endereço smtp

Pode ter sido apenas um erro de digitação no exemplo q vc citou, mas pode tambem vc ter se confundido e ter informado como no teu exemplo ai estaria errado.

correto: 'smtp' e não 'smpt'

[robneto.stz]

Obrigado Kiko Fernandes!

Mais apenas na mensagem que escrevi errado!

Na aplicação está certinho: smtp.empresa.com.br

[Kiko Fernandes]

Verifique também se não tem algum antivírus bloqueando a porta 587, eu tive uma situação em que foi necessário adicionar a porta do 587 no módulo de email na conexão SSL, acho que foi no avast, mas não me recordo. Para testar experimente desabilitar o antivírus e veja se muda alguma coisa.

[vencetex]

Boa Noite,

Passei por esse problema tb e nada disso funcionou, encontrei outra solução, caso, ainda não tenha encontrado uma solução me envia um email [email protected].

At.

José Carlos

[Italo Giurizzato Junior]

Boa noite José Carlos,

Como você pode ver no fórum temos pessoas com problemas.

Outras prontamente postam a solução.

Se você tem uma outra solução melhor para o problema do colega acima, não pessa para ele lhe enviar um e-mail, para que você retorne a solução.

Poste ela, pois desta forma você vai ajudar não só um, e sim todos os que acessarem o fórum em busca de uma solução para o seu problema.

[moisesaugusto]

Olá, eu tambem tive esse problema.

Reclamei junto a empresa que hospeda nosso site, imaginei que o problema poderia ser la.

O rapaz do suporte técnico me sugeriu que utilizasse a porta 587 e desligasse a "autenticação segura" (na configuração ) . A partir da mudança (eu estava utilizando a porta 25) , funcionou corretamente.

Tambem testei com o smtp do Hotmail (smtp.live.com ) e funcionou sem problemas.

Nota : Utilizei o exemplo fornecido com o componente, com as devidas modificações.

(acbrnfe_DEMO.exe) (( créditos))...

procedure TFrmPrincipal.EnviaemailClick(Sender: TObject);

var

Para : String;

CC: Tstrings;

begin

if not(InputQuery('Enviar Email', 'Email de destino', Para)) then

exit;

OpenDialog1.Title := 'Selecione a NFE';

OpenDialog1.DefaultExt := '*-nfe.XML';

OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';

OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Geral.PathSalvar;

if OpenDialog1.Execute then

begin

ACBrNFe1.NotasFiscais.Clear;

ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);

CC:=TstringList.Create;

CC.Add('[email protected]'); //especifique um email válido

CC.Add('[email protected]'); //especifique um email válido

ACBrNFe1.NotasFiscais.Items[0].EnviarEmail('servidor de smtp.com.br'

, '587'

, '[email protected]'

, 'senha123senha'

, '[email protected]'

, Para

, 'Nota fiscal eletrônica'

, mmEmailMsg.Lines

, cbEmailSSL.Checked

, False

, nil

, nil

, False

, False

, 'Nomedousuariosemarroba' );

CC.Free;

end;

end;

[Andrews R Bejatto]

verifique tbm se a sua autenticação no servidor de smtp é só o usuário ou é o email todo EX.:

[email protected]

em vez de nfe apenas

[darlananogueira]

Prezados,

 

estou com um problema para enviar emails quando requer autenticação.

Estou usando recurso do delphi e indy10.

Estou anexando os fonte de um programa exemplo, exatamente igual ao que estou utilizando.

Alguém pode por gentileza ver o que esta errado, e me ajudar...

 

Mais uma vez,

grata.

Darlana

EmailIndy10.rar

Editado 13 Março, 2015 por darlananogueira