Envio de email, URGENTE!!!
Olá pessoal,
Estou com um problema de envio de email, consegui fazer uma rotina para enviar o email com acesso discado, mas quando ponho o sistema em uma adsl ele não envia o email.
Alguém tem alguma solução!!!
Grato desde já!!
Rafael Carneiro
Estou com um problema de envio de email, consegui fazer uma rotina para enviar o email com acesso discado, mas quando ponho o sistema em uma adsl ele não envia o email.
Alguém tem alguma solução!!!
Grato desde já!!
Rafael Carneiro
Rafaelfcarneiro
Curtidas 0
Respostas
Denis
05/01/2004
Dê mais detalhes da sua rotina. Qual os componentes está usando ? etc...
GOSTEI 0
Rafaelfcarneiro
05/01/2004
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!!
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!!
GOSTEI 0
Nigro
05/01/2004
//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!
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!
GOSTEI 0
Rafaelfcarneiro
05/01/2004
eu ja fiz isso e acontece o que eu estou te falando no acesso discado ele envia o email, na adsl num envia
GOSTEI 0