+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : رسالةالاخطاء MailSnd1 (/showthread.php?tid=3395)
رسالةالاخطاء MailSnd1 - نمارق - 04-09-2011
السلام عليكم
احتاج لمساعدكمConnect to the mail server رسالةالاخطاء بالمرفق من لديه فكرة يجيبني وشكرا مسبقا بارك الله فيكم
رسالةالاخطاء MailSnd1 - لؤي - 04-09-2011
في الكود المرفق يمكن أنه قد نسيت المتغيرات .عموما هذا كود يشتغل معي:
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;