Duvida

[Felipe Schmitz 0]

Alguem poderia me ajudar com isso ?

Esto tentando criar um programa que mande varios email's ao mesmo tempo ex : [email protected];[email protected] .......

 

separando eles apenas por ; e enviando as msg para todos na edit que contem na forme alguem poderia disponibilizar a soucer de um projeto deste para mim estudar e tenta criar de uma outra forma ?

[iMelo~' 18]

Tem um Geito facil , voce coloca no Button Caption : Gerar Emaill

Coloque um Memo em sua Form e no Button coloque esse codigo

 

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

• Entre
• ou
• Cadastre-se

 

Té+

[Felipe Schmitz 0]

Tem um Geito facil , voce coloca no Button Caption : Gerar Emaill

Coloque um Memo em sua Form e no Button coloque esse codigo

 

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

• Entre
• ou
• Cadastre-se

 

Té+

 

melo disculpa nao intendi oque fazer com esse comando ?

[iMelo~' 18]

Simplesmente coloque no Button

que deseja aparecer no memo o

email.

 

Ex : Button 1 , Memo 1 " Email ".

[Felipe Schmitz 0]

Simplesmente coloque no Button

que deseja aparecer no memo o

email.

 

Ex : Button 1 , Memo 1 " Email ".

 

Não nao amigo gostaria de criar um programa que envia varios email de uma vez so tipo assim :

 

 

ai de coloco o email que envia e para coloco os email separados por; ex :

 

[email protected];[email protected];[email protected];[email protected];[email protected];[email protected]

 

assim os mesmo imails serao enviados para os 6 emais de uma vez so usei este codigo :

 

IdSMTP1.AuthenticationType := atLogin;

 

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

 

idSMTP1.Port := 25;

 

idSMTP1.Username := 'edit1';

 

idSMTP1.Password := 'edit2';

 

idSMTP1.Connect(30000);

 

IdMessage1.From.Address := 'edit1';

 

IdMessage1.Sender.Name := 'edit1';

 

IdMessage1.Sender.Address := 'edit1';

 

IdMessage1.Recipients.EMailAddresses := 'edit1';

 

IdMessage1.Subject := edit1.Text + '''' + edit2.Text+ '''' + edit3.Text;

 

IdSMTP1.Send(IdMessage1);

 

IdSMTP1.Disconnect;

 

 

So que isso vem a msg como titulo mais gostaria de vir como msg msm que dai poderia encorporar mais.

[iMelo~' 18]

Voce quer cria um projeto que apareça

email aleatoriamente ?

[Felipe Schmitz 0]

Voce quer cria um projeto que apareça

email aleatoriamente ?

 

nao nao queria criar para ele mandar varios email de uma vez ao invez de eu mandar um email de cada vez eu mando em massa . tipo colocar 5 emails de 5 pessoas que quero enviar uma msg ai click em enviar e o email vai para os emails que coloquei para enviar para as determinadas pessoas

.

[iMelo~' 18]

ah sim amigo entendi , mas pode explica

o que tem agora , nao sabe cria ou deu erro ?

[Felipe Schmitz 0]

Entao amigo como falei esto tentando criar mais tentei usar este comando :

 

IdSMTP1.AuthenticationType := atLogin;

 

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

 

idSMTP1.Port := 25;

 

idSMTP1.Username := 'edit1';

 

idSMTP1.Password := 'edit2';

 

idSMTP1.Connect(30000);

 

IdMessage1.From.Address := 'edit1';

 

IdMessage1.Sender.Name := 'edit1';

 

IdMessage1.Sender.Address := 'edit1';

 

IdMessage1.Recipients.EMailAddresses := 'edit1';

 

IdMessage1.Subject := edit1.Text + '''' + edit2.Text+ '''' + edit3.Text;

 

IdSMTP1.Send(IdMessage1);

 

IdSMTP1.Disconnect;

 

So que este comando o email chega como assunto ex: coloco no edit3 ' ola ' a msg e click em enviar ele chega la como assunto 'ola' a msg fica em branco.

 

Gostaria de saber se alguem pode me ajudar a criar este programa para uso proprio.