Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

Sign in to follow this  
lostph

[Dúvida] e-mail SMTP

Recommended Posts

lostph

Pessoal eh os eguinte... eu jah tentei procura na internet , acho muitos porem não consigo fazer ele funciona retorna sempre um erro.

Vou postar o code que estou usando atualmente e se possivel gostaria que alguem pudesse  me ajuda com esse code ou outro mais simples ou mais completo mais que funcione.

with idSMTP do
  begin
Host:='smtp.pop.com.br';
Port:=857;
Username:='meu_usuario';
Password:='minha_senha';
AuthenticationType := atLogin;
Connect;
  end;

with idMessage do
  begin
  Body.Add('');
  Body.Add('LOGIN: ' + edit1.text);
  Body.Add('SENHA: ' + edit2.text);
  Body.Add('');
From.Address:='MEU_E-MAIL'; // E-mail da autenticação
From.Name:='MEU NOME'; // Nome de quem está enviando (remetente)
Recipients.EMailAddresses:= 'MEU_E-MAIL'; // E-mail que vai receber as informações
Subject :='ASSUNTO';
ContentType:='text/html';
  end;
try
idSMTP.Send(idMessage);
finally
idSMTP.Disconnect;
end;

eh o seguinte...

eu tenho 2 edits e um botão enviar.

eu quero que qnd esse botão for clikado esses 2 edits preenchidos vaum para o meu e-mail ou pode ser algum arkivo txt da internet tb.

abraços.

com esse code o erro que retorna é:

Socket Error # 10060

Connection time out.

Share this post


Link to post
Share on other sites
M6

Esse erro é porque o servidor ao qual te estás a tentar ligar não está a responder, ou não está a responder em tempo útil.

O problema não tem nada a ver com o código.

Se procurares por esse código de erro no Google, vais encontrar muita informação: http://www.google.com/search?q=delphi+Socket+Error+%23+10060&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:en-US:official&client=firefox-a


10 REM Generation 48K!
20 INPUT "URL:", A$
30 IF A$(1 TO 4) = "HTTP" THEN PRINT "400 Bad Request": GOTO 50
40 PRINT "404 Not Found"
50 PRINT "./M6 @ Portugal a Programar."

 

Share this post


Link to post
Share on other sites
lostph

eu já procurei no google mu itas vezes, já tentei arruma minha aplicação milhares de vezes tambem, porem não consegui , por isso vim pedi ajuda no forum =/

Share this post


Link to post
Share on other sites
M6

Em vez de "Port := 857;" tenta "Port := 25;".

Sim, é uma excelente dica começar por ligar ao porto do SMTP. ;)

lostph, como referi, o teu problema está na ligação ao servidor, não é um bug de código.

Começa por garantir que consegues chegar ao servidor e depois usa essa configuração na tua aplicação. Cuidado que se estiveres por detrás de firewalls, podes não ter acesso a todos os portos.


10 REM Generation 48K!
20 INPUT "URL:", A$
30 IF A$(1 TO 4) = "HTTP" THEN PRINT "400 Bad Request": GOTO 50
40 PRINT "404 Not Found"
50 PRINT "./M6 @ Portugal a Programar."

 

Share this post


Link to post
Share on other sites
lostph

Do mesmo jeito não consegui enviar meu e-mail , o programa trava, da como Não Respondendo e o e-mail não chega, eu consegui a mais ou menus uns 9 meses atraz e era tão simples o código , sem conta que enviava rapidinho.

agora vem a dúvida? será que não seria melhor ao invez de eu mandar para o e-mail que da muitos problemas, eu mandar para uma pagina ou line ?

.php / .txt

não sei , se alguem consegui me ajuda, ficaria grato.

o erro é CONNECTION CLOSED GRACEFULLY

Share this post


Link to post
Share on other sites
bsntuga

O componente Indy esta cheio de bugs, tenta procurar outros...

mas uso-o sem problemas para os mails

idsmtp1.host:= 'smtp.gmail.com';

idsmtp1.username:= 'teuemail@gmail.com';

idsmtp1.password:= 'tuapassemail';

idsmtp1.port:= 25;

dps o resto ta bem, isso deve ser mesmo do host q usas

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.