ACBrNFe1.NotasFiscais.Items[0].EnviarEmail(

[CARLOS ADRIANO P MORAES]

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'

[Juliomar Marchetti]

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

a mensagem é clara qual tipo deveria ser!

[CARLOS ADRIANO P MORAES]

Alguém poderia me ajuda. Não consegui resolver esse problema....

[Juliomar Marchetti]

Cara eu já lhe falei acima!

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