Ajuda :D

[SeaCrusher 0]

Pessoal fiz um programa para enviar emails para as pessoas

 

codigo: [DOWN]IdSMTP1.AuthenticationType := atLogin;

idSMTP1.Host := 'smtp.mail.yahoo.com.br' ;

idSMTP1.Port := 25;

idSMTP1.Username := edit1.Text;

idSMTP1.Password := edit2.Text;

idSMTP1.Connect(30000);

IdMessage1.From.address := edit1.Text;

IdMessage1.Sender.Name := edit1.Text;

IdMessage1.Sender.address := edit1.Text;

IdMessage1.Recipients.EMailaddresses := edit4.Text;

IdMessage1.Subject := edit3.Text;

idmessage1.Body := memo1.Lines;

IdSMTP1.Send(IdMessage1);

IdSMTP1.Disconnect;[/DOWN]

 

então se vcs verem tem a parte que eu coloco o email das pessoas q vao receber o email, só que eu nao quero ficar digitando ali, queria fazer uma lista ai eu ligo, e ele fica pegando na lista e mandando direto, sem precisar ai ficar digitando no campo e clicando em enviar

 

DELPHI 7

[C£rberus 1]

Utiliza uma combobox e nela adiciona os endereços pré-listados.

[SeaCrusher 0]

nao queria q fosse pré listado, queria um memo...

 

q codigo eu coloco pra iso?

[Kyle 7]

Faça um Array com todos os e-mails e depois use um Loop para enviar de acordo com o "i" (valor atual do Loop), por exemplo:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[AceStryker 32]

Faça um loop com todas as linhas do memo, cada um enviando para cada linha.

[SeaCrusher 0]

pow mano, sou meio q iniciante, nao sei o que é array nem loop se puder explicar eu agradeceria, e tbm me dizer o que eu faço la no delphi pra fazer

[DarkShade 52]

Se você não sabe, por quê não procusa aprender o básico de programação antes de tentar isso? --'

[SeaCrusher 0]

as vezes eu aprendo fazendo, como foi até agora tudo q aprendi foi fazendo, se estou fazendo isso porque quero aprender, eu sei algumas coisas de programação então decidi fazer isso, só falta isso para eu terminar

 

decidi fazer esse programa porque estou com vontade de criar um programa desse modo se puder ajudar ficarei grato, se nao puder nao adianta falar pra eu voltar e estudar tudo

[AceStryker 32]

SeaCrusher, ele esta completamente certo, nem tudo se aprende fazendo meu amigo.Você tem que ir construindo seus conhecimentos de baixo para cima e esta sua atitude que querer começar do meio é bem infantil.

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[SeaCrusher 0]

fecha o topico porque tou vendo q uma coisa basica ngm quer ajudar... e estou meio sem tempo para ter que estudar muito para fazer 1 coisa basica e que muitos sabem e ngm diz.

 

close;

[Kyle 7]

Já lhe foi dito como se faz. Você é que não quer saber.

 

Fechado.