Jump to content
Notícias do ACBr

click.png click.png click.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


Saiba mais

beneficios.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

ACBrNFe1.NotasFiscais.Items[0].EnviarEmail(


CARLOS ADRIANO P MORAES
  • Este tópico foi criado há 1786 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 to comment
Share on other sites

  • Consultores

Conforme as mensagens suas variáveis estão tipadas de um jeito mas é outro !

a mensagem é clara qual tipo deveria ser!

Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
http://www.juliomarmarchetti.com.br
Embarcadero MVP
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil
Link to comment
Share on other sites

  • 4 weeks later...
  • Consultores

Cara eu já lhe falei acima!

tu tá tentando passar um String onde está pedindo uma TString

Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
http://www.juliomarmarchetti.com.br
Embarcadero MVP
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil
Link to comment
Share on other sites

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

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.