Siema
Mam sobie kodzik do wysyłania poczty. Jednak działa on na 1 adres tzn musze wysyłac pojedynczo emaile do ludzi, a chcę, aby wysyłał do kilku osób na raz.
Czy da się jakoś przerobić ten fragment kodu tak, aby może było wysyłać do kilku osób na raz?
i
dMessage1.Recipients.EMailAddresses :='xxx';
Próbowałem wpisywac po przecinku adresy ale to nic nie dało.
A oto cały kod do wysyłania poczty.
procedure TForm1.Button1Click(Sender: TObject);
begin
try
idMessage1.CharSet:='charset="iso-8859-2"'; //ustawiamy kodowanie
idMessage1.ContentTransferEncoding:='8bit'; // przesyłanie 8bitowe
idMessage1.ContentType:='text/html'; // przesyłamy tekst
idMessage1.Body:=Richedit1.Lines; // treść maila
// ustawienia wiadomości
//idMessage1.From.Address := 'xxxx@interia.pl; // od kogo
idMessage1.From.name := 'xxx';
idMessage1.Subject := Edit1.Text;
idMessage1.Recipients.EMailAddresses :='xxx';
// weryfikacja
idSMTP1.UserName := 'xxx';
idSMTP1.Password := 'xxx';
idSMTP1.Host := 'xxx.interia.pl';
//wpisz gdy serwer nie wymaga uwierzytelnienia
idSMTP1.AuthenticationType:=atNone;
//wpisz gdy serwer wymaga uwierzytelnienia (zalecane)
idSMTP1.AuthenticationType:=atLogin;
idSMTP1.Connect;
idSMTP1.Send(idMessage1);
idSMTP1.Disconnect;
except
ShowMessage('Błąd. Mail nie został wysłany');
end;
end;
Ewentualnie jakoś z Listboxa z adresami wysyłać w pętli?
Piszę program do pracy, który będzie wysyłał pocztę do pracowników na koniec dnia.