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!