Manager Client Enviar E-mail CT-eOS

Para realizar o envio de um CT-eOS por e-mail basta utilizar o método EnviarEmailCTeOS informando a chave do conhecimento e demais parâmetros que veremos a seguir. Segue abaixo os detalhes o método e de seu retorno.

Detalhes EnviarEmailCTeOS

Função:  Realiza o envio por e-mail de um CT-eOS.
Classe:  TspdCTeOSClientX
Método:  EnviarEmailCTeOS
Tipo Retorno: spdRetEmailX

Parâmetros aceitos:

Delphi

procedure TfrmEnviarEmailCTeOS.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.CTeOS.EnviarEmailCTeOS(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 EnviarEmailCTeOS_Click(object sender, EventArgs e)
{
   string s = EmailCTeOSForm("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 CTeOS por email pelo Componente Manager Client
     Retorno = CTeOS.EnviarEmailCTeOS(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 CTeOS por email pelo Componente Manager Client
  Set Retorno = frmExemplo.CTeOS.EnviarEmailCTeOS(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:

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.