Mandar um email para mais de uma pessoa

Delphi

26/03/2004

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

Leonardobhbr

Curtidas 0

Respostas

Odlave

Odlave

26/03/2004

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]


GOSTEI 0
Fabio.hc

Fabio.hc

26/03/2004

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´;



GOSTEI 0
POSTAR