Fórum Envio de email, URGENTE!!! #204169

Dê mais detalhes da sua rotina. Qual os componentes está usando ? etc...

Estou usando NMsmtp e o nmpop3 da paleta fastnet
em uma conexão discada eu consigo enviar o email, mas quando estou usando uma adsl não consigo mais, sendo que consigo enviar email do outlook perfeitamente, pois pensei que fosse algum bloqueio de servidor!!

//Processo de reconhecimento no POP3 do UOL
NMPOP31.AttachFilePath := ´.´;
NMPOP31.DeleteOnRead := FALSE;
NMPOP31.ReportLevel := Status_Basic;
NMPOP31.TimeOut := 20000;
NMPOP31.Host := ´pop3.uol.com.br´;
NMPOP31.Port := 110;
NMPOP31.UserID := ´MeuLogin´;
NMPOP31.Password := ´Minha Senha´;
NMPOP31.Connect;
//Conexão não feita ele sai
//Conexão feita ele desconecta e prossegue
if not NMPOP31.Connected then exit else NMPOP31.Disconnect;
//Prosseguindo ele agora tenta se conectar ao SMTP do UOL
NMSMTP1.ClearParams := TRUE;
NMSMTP1.Host := ´smtp.uol.com.br´
NMSMTP1.Port := 25;
NMSMTP1.UserID := ´MeuLogin´
NMSMTP1.Connect;
//Conexão não feita ele sai
//Conexão feita ele prossegue
If not NMSMTP1.Connected then exit;
//Processo de envio
NMSMTP1.PostMessage.Body.Clear;
NMSMTP1.PostMessage.ToAddress.Clear;
NMSMTP1.PostMessage.FromAddress := ´MeuLogin@MeuProvedor.com.br´
NMSMTP1.PostMessage.FromName := ´Meu Nome Completo´
NMSMTP1.PostMessage.Body.Add(´Teste de envio de email´);
NMSMTP1.PostMessage.Subject := (´Teste de Envio´);
NMSMTP1.PostMessage.ToAddress.Add(´destino@DestinoProvedor.com.br´);
NMSMTP1.SendMail;
Depois de estabelecer a conexão com o POP3 do UOL o envio pelo SMTP do UOL ficou liberado não importando em que provedor eu estivesse conectado.

No meu caso eu pude usar POP3 e SMTP do UOL pois sou assinante do UOL, porém vc pode simplesmente criar um e-mail no IG, IEG ou outro serviço de e-mail grátis e pronto é só utilizar a dica!!

Obs.: Nem todos os e-mail´s grátis tem serviço POP3!

eu ja fiz isso e acontece o que eu estou te falando no acesso discado ele envia o email, na adsl num envia