Ir para conteúdo
  • Cadastre-se

dev botao

ACBrNFe1.NotasFiscais.Items[0].EnviarEmail(


  • Este tópico foi criado há 2761 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

ESTA DECLARADO EM OUTRA UNIT: (Global)

  SmtpServerName         : String;
   nSmtpServerPort         : Integer;
   sSmtpServerUserName     : String;
   sSmtpServerPassword     : String;
   nSmtpAuthType           : Integer;

 

Estou Usando

uses SQLServer;

 

procedure TFrmNotaFiscalProcessamento.BtnEnviarEMailNFeClick(Sender: TObject);
var
 CC: Tstrings;
begin
   IF (db_Vendas_NFE.IsEmpty) or (db_Vendas_NFE.RecordCount<1) Then
   begin
     AvisoSistemaErro('Primeiro localize a NF (F8) para depois Cancelar');
     exit;
   end;

   if not FileExists(Trim(BaseDados.db_Vendas.FieldByName('NFE_ARQUIVO').AsString)) then
   begin
     Informar('Arquivo XML não foi gerado para enviar por e-mail.');
     exit;
   end;

   sUserNameEmail := LowerCase(FParametros.Empresa.Email) ;
   BaseDados.ACBrNFe1.NotasFiscais.Clear;
   BaseDados.ACBrNFe1.NotasFiscais.LoadFromFile(Trim(db_Vendas_NFE.FieldByName('NFE_ARQUIVO').AsWideString));

   CC:=TstringList.Create;
   CC.Add('[email protected]'); //especifique um email válido
   //CC.Add('');    //especifique um email válido
   BaseDados.ACBrNFe1.NotasFiscais.Items[0].EnviarEmail(
                                              sSmtpServerName
                                            , IntToStr(nSmtpServerPort)
                                            , sSmtpServerUserName
                                            , sSmtpServerPassword  ---ERRO
                                            , sSmtpServerUserName --ERRO
                                            , LowerCase( fncBuscaClienteEmail(inCliente) ) --ERRO
                                            , 'NOTA FISCAL ELETRONICA ' + IntToStr(inNotaFiscal) --ERRO
                                            , MemoMSG.Lines  // mensagem de texto (corpo do email)
                                            , True // SSL - Conexão Segura
                                            , True //Enviar PDF junto
                                            , CC //Lista com emails que serão enviado cópias - TStrings
                                            , nil // Lista de anexos - TStrings
                                            , False  //Pede confirmação de leitura do email
                                            , True  //Aguarda Envio do Email(não usa thread)
                                            , FParametros.Empresa.NomeFantasia // Nome do Rementente
                                            , True ); // Auto TLS
   CC.Free;

end;

ERRO:

[dcc32 Error] FNotaFiscalProcessamento.pas(266): E2010 Incompatible types: 'TStrings' and 'string'
[dcc32 Error] FNotaFiscalProcessamento.pas(267): E2010 Incompatible types: 'Boolean' and 'string'
[dcc32 Error] FNotaFiscalProcessamento.pas(268): E2010 Incompatible types: 'TStrings' and 'string'
[dcc32 Error] FNotaFiscalProcessamento.pas(269): E2010 Incompatible types: 'TStrings' and 'string'

Link para o comentário
Compartilhar em outros sites

  • 4 semanas depois ...
  • Este tópico foi criado há 2761 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.