Para realizar o envio de uma NFC-e por e-mail basta utilizar o método EnviarEmailNFCe informando a chave da nota e demais parâmetros que veremos a seguir. Segue abaixo os detalhes do método e de seu retorno.
Detalhes EnviarEmailNFCe
Função: Realiza o envio por e-mail de uma NFC-e.
Classe: TspdNFCeClientX
Método: EnviarEmailNFCe
Tipo Retorno: spdRetEmailX
Parâmetros aceitos:
Nome | Tipo | Obrigatório | Valor |
aChaveNFCe | Texto | Sim | Chave de acesso da NFC-e a ser enviada. |
aEmailDestinatario | Texto | Sim | E-mail do destinatário. |
aEmailCCo | Texto | Não | E-mail da cópia oculta. |
aEmailCC | Texto | Não | E-mail da cópia. |
aTexto | Texto | Não | Descrição do corpo da mensagem. |
aAssunto | Texto | Não | Assunto do E-mail. |
aOutrosAnexos | Texto | Não |
Caminho dos arquivos enviados em anexo, separados pelo caractere vírgula ",".
Exemplo: "C:\teste\anexo1.txt,C:\teste\anexo2.txt" |
aAnexarPDF | Boolean | Não |
Anexa o PDF do DANFCE ao e-mail.
True ou False |
Delphi
procedure TfrmEnviarEmailNFCe.btnOKClick(Sender: TObject);
var
_Retorno: spdRetEmailX;
begin
//Esse método enviar o email para o destinatário através do Componente Manager Client
_Retorno := frmExemplo.NFCe.EnviarEmailNFCe(edtChave.Text, edtEmail.Text, edtCCo.Text, edtCC.Text, edtMensagem.Text, edtAssunto.Text, '', chkAnexarPDF.Checked);
//Exibe o retorno no memo
frmExemplo.memoRetorno.Clear;
if _Retorno.Status = Sucesso then
frmExemplo.memoRetorno.Lines.Add('Mensagem: ' + _Retorno.Mensagem)
else
frmExemplo.memoRetorno.Lines.Add('Erro: ' + _Retorno.NomeExcecao + ', ' + _Retorno.Mensagem);
end;
C#
private void EnviarEmailNFCe_Click(object sender, EventArgs e)
{
string s = EmailNFCeForm("Email", "Exemplo Manager Client:", "");
if ((s != "fechar") && (s != ""))
{
string[] lines = Regex.Split(s, "\r\n");
bool cbAnexarPDF;
string edtchave = lines[0];
string edtCC = lines[1];
string edtAssunto = lines[2];
string edtEmail = lines[3];
string edtCCo = lines[4];
string edtMensagem = lines[5];
if (lines[6] == "True")
{
cbAnexarPDF = Convert.ToBoolean(1);
}
else
{
cbAnexarPDF = Convert.ToBoolean(0);
}
spdRetEmailX Retorno = null;
//Esse método faz o envio da NFCe por email pelo Componente Manager Client
Retorno = NFCe.EnviarEmailNFCe(edtchave, edtEmail, edtCCo, edtCC, edtMensagem, edtAssunto, "", cbAnexarPDF);
//O retorno do método é exibido no mem
if (Retorno.Status == spdManagerClientX.TStatus.Sucesso)
memoRetorno.Text = "Mensagem: " + Retorno.Mensagem + "\n";
else
memoRetorno.Text = "Erro: " + Retorno.NomeExcecao + ", " + Retorno.Mensagem;
}
}
Visual Basic 6
Private Sub btnEnviarEmail_Click()
Dim Retorno As spdRetEmailX
'Esse método faz o envio da NFCe por email pelo Componente Manager Client
Set Retorno = frmExemplo.NFCe.EnviarEmailNFCe(edtChave.Text, edtEmail.Text, edtCCo.Text, edtCC.Text, edtMensagem.Text, edtAssunto.Text, "", cbAnexarPDF.Value)
'O retorno do método é exibido no memo
If Retorno.Status = Sucesso Then
frmExemplo.memoRetorno.Text = "Mensagem: " + Retorno.Mensagem + vbCrLf
Else
frmExemplo.memoRetorno.Text = "Erro: " + Retorno.NomeExcecao + ", " + Retorno.Mensagem
End If
Me.Hide
End Sub
Retorno
O tipo spdRetEmailX possui os seguintes campos:
Campo | Tipo | Descrição |
Status | Constante | Retorna o status da operação: Sucesso ou Erro. |
NomeExcecao | Texto | Em caso de erro retorna a classe da Exception. |
Mensagem | Texto | Retorna a descrição da resposta do servidor. |
Comentários
0 comentário
Por favor, entre para comentar.