Fórum Envio de E-Mail // Null Remote Address #182095

Galera,

Eu tenho essa função de envio de e-mail. Quando o delphi tenta estabelecer conexão aparece a seguinte mensagem de erro :
NULL REMOTE ADDRESS

Alguém poderia me ajudar ?

function TfrmAtualizador.fn_enviar_email : boolean;
begin
Result := FALSE;

_rodape(´Enviando E-mail. Aguarde...´, true, grodape);

NMSMTP.ClearParams := TRUE;
NMSMTP.Host := gEmail.Host; // objeto de envio de e-mail
NMSMTP.UserID := gEmail.UserId;

NMSMTP.Connect;

If not NMSMTP.Connected then
begin
_rodape(´´, false, grodape);
_msg(´E´,´Atenção´,´Entre em contato com o suporte do Gen e informe que ´ +#13+ ´não foi possível enviar o e-mail com o Arquivo de Log das atualizações do banco de dados.´,´´);
exit;
end;

with NMSMTP.PostMessage do
begin
ToAddress.Clear;
FromAddress := ´carlos@naconsult.com.br´;
ToAddress.Text := ´carlos@naconsult.com.br´;
ToCarbonCopy.Text := ´flavio@naconsult.com.br´;
Body.Text := ´Segue em anexo o arquivo de log da atualização do banco de dados da ´+gEmpresa.nome_empresa;
Attachments.Text := lLog;
Subject := ´Atualização do Banco de Dados´;
end;

NMSMTP.SendMail;
NMSMTP.Disconnect;
_rodape(´´, false, grodape);

Result := TRUE;
end;