رسالةالاخطاء MailSnd1

[نمارق]

السلام عليكم
احتاج لمساعدكمConnect to the mail server رسالةالاخطاء بالمرفق من لديه فكرة يجيبني وشكرا مسبقا بارك الله فيكم

[لؤي]

في الكود المرفق يمكن أنه قد نسيت المتغيرات .عموما هذا كود يشتغل معي:

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;