Fórum Mandar um email para mais de uma pessoa #222517
26/03/2004
0
Eu gostaria de saber como eu faço para mandar um email para mais de uma pessoa no meu programa estilo o outlook que é só colocar ´;´ que ele manda. Usando o idSmtp da paleta indy desde já grato
Leonardobhbr
Curtir tópico
+ 0
Responder
Posts
26/03/2004
Odlave
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´);
// eu fiz assim
NMSMTP1.PostMessage.ToAddress.Add(´destino1@DestinoProvedor.com.br´);
NMSMTP1.PostMessage.ToAddress.Add(´destino2@DestinoProvedor.com.br´);
NMSMTP1.PostMessage.ToAddress.Add(´destino3@DestinoProvedor.com.br´);
NMSMTP1.PostMessage.ToAddress.Add(´destino4@DestinoProvedor.com.br´);
NMSMTP1.PostMessage.ToAddress.Add(´destino5@DestinoProvedor.com.br´);
NMSMTP1.SendMail
[b:720bfb296f]espero ter ajudado[/b:720bfb296f]
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´);
// eu fiz assim
NMSMTP1.PostMessage.ToAddress.Add(´destino1@DestinoProvedor.com.br´);
NMSMTP1.PostMessage.ToAddress.Add(´destino2@DestinoProvedor.com.br´);
NMSMTP1.PostMessage.ToAddress.Add(´destino3@DestinoProvedor.com.br´);
NMSMTP1.PostMessage.ToAddress.Add(´destino4@DestinoProvedor.com.br´);
NMSMTP1.PostMessage.ToAddress.Add(´destino5@DestinoProvedor.com.br´);
NMSMTP1.SendMail
[b:720bfb296f]espero ter ajudado[/b:720bfb296f]
Responder
Gostei + 0
27/03/2004
Fabio.hc
Tente assim:
// Destinatario IdMessage1.Recipients.EMailAddresses := ´teste@teste.com.br´; // Copias IdMessage1.CCList.EMailAddresses := ´teste1@teste.com.br, teste2@teste.com.br´; // Copias Ocultas IdMessage1.BccList.EMailAddresses := ´teste3@teste.com.br; teste4@teste.com.br´;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)