各位大大，小弟想請問一下要如何把db裡的email address全部找出來後在使用
idsmtp元件發送郵件，謝謝

正在努力學習中

你好:
參考看看
procedure SendMail( Addresses, Subject, Content, SMTPServerName, SMTPUsername, SMTPPassword:string);
var IdMsgSend: TIdMessage;
SMTP: TIdSMTP;
begin
IdMsgSend:= TIdMessage.Create;
SMTP := TIdSMTP.Create;
try
SMTP.AuthType := atNone;
IdMsgSend.Body.Text := Content;
IdMsgSend.Recipients.EMailAddresses := Addresses; { To: header }
IdMsgSend.Subject := Subject; { Subject: header }
SMTP.Username := SMTPUsername;
SMTP.Password := SMTPPassword;
SMTP.Host := SMTPServerName;
SMTP.Connect;
SMTP.Send(IdMsgSend);
finally
if SMTP<>nil then begin
SMTP.Disconnect;
FreeAndNil(SMTP);
end;
if IdMsgSend<>nil then FreeAndNil(IdMsgSend);
end;
end;