EmailDanfe(aNumLote, aLoteNotas, aArquivoModelo)

Para enviar uma DANFE por e-mail, deve-se utilizar o método EmailDanfe.

Método

Parâmetros

Retorno

O método EmailDanfe não possui retorno.

Exemplos

Delphi

C#

Visual Basic 6

Para realizar o envio de e-mail com o componente Tecnospeed:

Antes de tudo, precisamos seguir os passos deste documento. 

*Caso não esteja usando o Gmail, deve-se solicitar ao provedor de e-mail para fazer tal liberação.

Após isso, podemos seguir os passsos abaixo:

Configurando Opções de Internet do Windows:

Realize os seguintes passos.

Apagando as configurações:

1º - Vá até o Painel de Controle do Microsoft Windows (Menu Iniciar -> Painel de Controle)

2º - Escolha a Opção: Opções da Internet;

3º - Vá até a aba “Avançadas”, Clique em Redefinir, Marque Excluir configurações pessoais, clique em redefinir. Obs.: Este passo é muito importante para que funcione.

Configurando:

1º - Vá até o Painel de Controle do Microsoft Windows (Menu Iniciar -> Painel de Controle)

2º - Escolha a Opção: Opções da Internet;

3º - Vá até a aba “Avançadas” e, na caixa “Configurações”, vá até as últimas opções (role a barra de rolagem até o final) e:
      a)   Desmarque a opção: "Usar SSL 2.0";
      b)   Marque a opção: "Usar SSL 3.0";
      c)   Marque a opção: “Usar TLS 1.0”;
      d)   Desmarque as opções: "Usar TLS 1.1 e 1.2";
      e)   Aplique as configurações e reinicie a máquina se possível;
      f)   Abra sua aplicação e faça o teste.

Obs.: O componente já foi testado em várias linguagens para usar esta função, e se o cenário permitir os e-mails são sempre enviados com êxito.

Configurações:

Obs.: Para usar a OCX, com linguagens diferentes de Delphi, a sintaxe dos métodos deve ser conforme o exemplo: 

Exemplo para C#:

_spdNFeX.EmailServidor = "smtp.gmail.com";
_spdNFeX.EmailPorta = 587;
_spdNFeX.EmailRemetente = "";
_spdNFeX.EmailDestinatario = "";
_spdNFeX.EmailAssunto = "Exemplo de envio de DANFE por email.";
_spdNFeX.EmailMensagem = "O arquivo está anexo.";
_spdNFeX.EmailUsuario = "";
_spdNFeX.EmailSenha = "";
_spdNFeX.EmailTimeOut = 600000
_spdNFeX.EnviarNotaDestinatario(_ChaveNota, "", ""); 

Autenticação:

spdNFe.EmailSettings.ServidorSmtp := ‘smtp.teste.com’;
spdNFe.EmailSettings.Porta := ‘587’;
spdNFe.EmailSettings.Autenticacao :=True; ou False;
spdNFe.EmailSettings.TimeOut := 60000;
spdNFe.EmailSettings.QtdeTentativas := 2;
spdNFe.EmailSettings.UseTLS := 2;

Obs.: Até então, apenas o Gmail requer esta autenticação, os demais provedores não.

Dados emissor:

spdNFe.EmailSettings.EmailRemetente := ‘remetente  @teste.com.br’;
spdNFe.EmailSettings.Usuario := ‘usuario  @teste.com.br’;
spdNFe.EmailSettings.Senha := ‘senhateste’;

Dados destinatário:

spdNFe.EmailSettings.EmailDestinatario := ‘destinatario  @teste.com.br’;
spdNFe.EmailSettings.CC := ‘emailCC  @teste.com.br’;
spdNFe.EmailSettings.Cco := ‘emailCCo  @teste.com.br’;

Conteúdo E-mail:

spdNFe.EmailSettings.Assunto := ‘Assunto teste.’;
spdNFe.EmailSettings.Mensagem := ‘Mensagem teste para envio de email’;

Configuração via arquivo .ini:

Deve-se incluir um bloco [MAIL] com o seguinte conteúdo:

[MAIL]
Servidor=smtp.gmail.com
EmailRemetente=
EmailDestinatario=
Assunto=Danfe NF-e
Mensagem=Este é o danfe emitido pelo componente da TeconSpeed.
Usuario=
Senha=
Autenticacao=1
Porta=587
TimeOut=30000
CCo=
CC=
ConteudoHtml=0

Métodos de envio:

1 - Envia e-mail para o destinatário a partir do XML autorizado no diretório XMLDestinatário:
spdNFeX.EnviarNotaDestinatario(chaveNFe, _LogEnvio, _LogRet);

2 - Envia e-mail para o destinatário a partir da chave da nota a qual existe um XML no diretório XMLDestinatario
spdNFeX.EnviarNotaDestinatario(chaveNFe, "", "");

3 - Envia e-mail para o destinatário com mais arquivos em anexo.
spdNFe.EnviarNotaDestinatarioAnexos('_NFe.PDF','_NFe.XML','Nota1.PDF,Nota2.PDF,Nota3.PDF');

4 - Envia e-mail para o destinatário com o PDF e o XML da NF-e cancelada.
spdNFe.EnviarNotaCanceladaDestinatario(chaveNFe,'','','email@email.com.br');