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'