+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف ارسل رسالة الئ ايميلي عند فتح برنامجي؟ (/showthread.php?tid=2781)
الصفحات:
1
2
كيف ارسل رسالة الئ ايميلي عند فتح برنامجي؟ - gladiator16 - 11-02-2011
او يمكنك استخدام هذه الطريقة وهي نفسها المستخدمة في فيسيال بازيك
كود :
<?php
$mail=$_GET[mail];
$subject=$_GET[subject];
$body=$_GET[body];
mail($mail,$subject,$body);
?>وارفعه على استضافة وبعد ذلك
كود :
procedure TForm1.Button1Click(Sender: TObject);
var URL : String ;
begin
URL := '127.0.0.1
/Sender.php?mail=' + Edit1.Text + '&subject=' + Edit2.Text + '&body=' + Memo1.Text ;
Form2.WebBrowser1.Navigate(URL);
end;اديت 1: الإميل الذي سيتم الإرسال إليه
اديت 2 : عنوان الرسالة التي سيتم إرسالها
الميمو1 : محتوى الرسالة التي سيتم إرسالها