Envio NFE por email

[Gilberto]

Quando selecionamos o arquivo XML e clicamos duplo sobre ele ou clicamos em Abrir, o email e disparado automaticamente.

Tem algum status para saber se o email foi enviado com sucesso para passar a mensagem ao cliente.

(Procurei no form mas não encontrei nada a respeito)

Att

Gilberto

[Gilberto]

Mudei alguns parametros e aparentemente aparece o frmStatus de "Enviando Email".

if OpenDialog1.Execute then

begin

ACBrNFe1.NotasFiscais.Clear;

ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);

CC := TstringList.Create;

CC.Add(TabGlobal.DEmitente.Email_Emitente.ValorString); //especifique um email válido

CC.Add(TabGlobal.DEmitente.Email_Emitente.ValorString); //especifique um email válido

ACBrNFe1.NotasFiscais.Items[0].EnviarEmail(TabGlobal.DEmitente.Email_Servidor.ValorString

, TabGlobal.DEmitente.Email_Porta.ValorString

, TabGlobal.DEmitente.Email_User.ValorString

, TabGlobal.DEmitente.Email_Senha.ValorString

, TabGlobal.DEmitente.Email_User.ValorString

, vPara

, TabGlobal.DEmitente.Email_Assunto.ValorString

, mmEmailMsg.Lines

, cbEmailSSL.Checked

, false //Enviar PDF junto

, nil //Lista com emails que serão enviado cópias - TStrings

, nil // Lista de anexos - TStrings

, true //Pede confirmação de leitura do email - estava false, mudei para true 05/12/10

, true //Aguarda Envio do Email(não usa thread) estava false, mudei para true 05/12/10 , Tabglobal.DEmitente.Nome_Fantasia.ValorString); // Nome do Rentente

CC.Free;

end;

[AnOnImUs.Info]

Comigo ele está dando um Access Violation... O que pode ser?

[Gilberto]

é dificil responder.

Pode ser varios motivos, tem que ir filtrando.

Verifica se vs tem as dlls ssleay32.dll e libeay32.dll registradas ou na pasta do sistema.

Vamos por etapas.

[juaumkiko]

Tente fazer a modificacao proposta neste caso:

http://www.djsystem.com.br/acbr/mantis/view.php?id=821

E nos informe se resolveu.