I would like to send an e-mail by SMTP to multiple people at once. There is my code:
SMTPenvMsg.Host := '10.10.1.20';
SMTPenvMsg.Port := 25;
SMTPenvMsg.TimeOut := 30;
if SMTPenvMsg.Connected=false then
SMTPenvMsg.Connect;
SMTPenvMsg.PostMessage.FromAddress := msgFrom;
SMTPENVmSG.PostMessage.ToAddress.Add(msgTo);
SMTPenvMsg.PostMessage.Subject := sj;
SMTPenvMsg.PostMessage.Body.Assign(sl);
SMTPenvMsg.SendMail;
sl.Free;
SMTPenvMsg.Disconnect;
Somtimes it works, sometimes a received this message:
«Socket readln aborted»??? What means this message?
Can someone helps me?
Thanks for any help!
SMTPenvMsg.Host := '10.10.1.20';
SMTPenvMsg.Port := 25;
SMTPenvMsg.TimeOut := 30;
if SMTPenvMsg.Connected=false then
SMTPenvMsg.Connect;
SMTPenvMsg.PostMessage.FromAddress := msgFrom;
SMTPENVmSG.PostMessage.ToAddress.Add(msgTo);
SMTPenvMsg.PostMessage.Subject := sj;
SMTPenvMsg.PostMessage.Body.Assign(sl);
SMTPenvMsg.SendMail;
sl.Free;
SMTPenvMsg.Disconnect;
Somtimes it works, sometimes a received this message:
«Socket readln aborted»??? What means this message?
Can someone helps me?
Thanks for any help!