04-09-2011, 10:29 AM
04-09-2011, 04:14 PM
في الكود المرفق يمكن أنه قد نسيت المتغيرات .عموما هذا كود يشتغل معي:
PHP كود :
var smtp : TidSMTP;msg : TidMessage;myAttachment,myAttachment1: TIdAttachment;
i:integer;
begin
try
smtp := TidSMTP.Create(nil);
msg := TidMessage.Create(nil);
smtp.AuthenticationType := atNone;
smtp.Host := form3.Edit2.Text;
smtp.Port := StrToInt(form3.Edit3.Text);
msg.From.Address :='Analyzer.Voice ' ;
msg.ReplyTo.EMailAddresses := 'المرسل'; // Adresse email de retour.
//msg.Recipients.EMailAddresses := Form3.ListBox1.Items.Text; // Adresse du destinataire.
for i:=0 to Form3.ListBox1.Items.Count-1 do
msg.Recipients.Add.Address:= Form3.ListBox1.Items.Strings[i];
// msg.Recipients.Add.Address:= '';
// msg.Recipients.Add.Address:= '';
msg.Subject := form3.edt1.Text ;
msg.Body.Text :=form3.edt1.Text;);
SMTP.Connect; // Connexion au serveur pour l'envoi du mail.
SMTP.Send(msg); // Envoi du mail.
SMTP.Disconnect; //(true); // Deconnexion du serveur
end;
finally
end;
msg.free;
smtp.free;
end;