Manager Client Enviar E-mail CF-e SAT – Central de Atendimento

Para realizar o envio de um CF-e SAT por e-mail basta utilizar o método EnviarEmailCFeSat informando a chave do cupom eletrônico e demais parâmetros que veremos a seguir. Segue abaixo os detalhes o método e de seu retorno.

Detalhes EnviarEmailCFeSat

Função: Realiza o envio por e-mail de um CF-e SAT.
Classe: TspdCFeSatClientX
Método: EnviarEmailCFeSat
Tipo Retorno: spdRetEmailX

Parâmetros aceitos:

Nome	Tipo	Obrigatório	Valor
aChaveCFeSat	Texto	Sim	Chave de acesso do CF-e SAT a ser enviado.
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 da impressão ao e-mail. True ou False

Delphi

procedure TfrmEnviarEmailCFeSat.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.CFeSat.EnviarEmailCFeSat(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 EnviarEmailCFeSat_Click(object sender, EventArgs e)
{
   string s = EmailCFeSatForm("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 do CFeSat por email pelo Componente Manager Client
     Retorno = CFeSat.EnviarEmailCFeSat(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 do CFeSat por email pelo Componente Manager Client
  Set Retorno = frmExemplo.CFeSat.EnviarEmailCFeSat(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.

A mensagem traz o resultado da comunicação, em caso de sucesso, a mensagem será "OK Operação realizada com sucesso", e no caso de falha, ele terá a mensagem do motivo da falha.

Detalhes EnviarEmailCFeSat

Delphi

C#

Visual Basic 6

Retorno

Artigos relacionados