الرجاء المساعدة أريد كود فيجوال بيسك لإرسال رسالة إلى الإيميل وكود ....

[فارس سوفت]

الرجاء المساعدة أريد كود فيجوال بيسك لإرسال رسالة إلى الإيميل وكود لمعرفة الكلمات السرية التي أكتبها في المتصفح

[شوق العلي]

أخي هذا الكود .. جربه
لكن كلمة السر .. لعلي أجربها ثم اخبرك ...


<?
$to =// الايميل المرسل اليه
$subject = // عنوان الايميل
$body = //محتوى الايميل
$fromm = // الايميل المرسل منه
$headers = "From:".$fromm."\r\n" .
"X-Mailer: php";
if (mail($to, $subject, $body, $headers)) {
echo'<p>تم ارسال الايميل بنجاح!</p>';

} else {
echo("<p>حصل خطا ولم يتم ارسال الايميل</p>");
}
?>

[فارس سوفت]

أخي أنا أريد كود للغة الفيجوال بيسك 6

[sagia]

لو ترجع لهذا الموقع بيعطيك تفاصيل عن كيفية ارسال إميل من فيجول بيسك 6 واذا كنت تبي الطريقة ب فيجول بيسك دوت نت بلغني رابط الموقع:
http://www.devarticles .com/c/a/Visual-Basic/Fun-with-Email-VB6-CDO-MAPI/1/

[مول نواره1]

انصحك بشراء الكتاب فجول بيسك 2005
هو نفسة فجول 6 في المكتبات وخاصة جرير
يوجد بية

[ARWA13]

[quote=sagia;114 981]لو ترجع لهذا الموقع بيعطيك تفاصيل عن كيفية ارسال إميل من فيجول بيسك 6 واذا كنت تبي الطريقة ب فيجول بيسك دوت نت بلغني رابط الموقع:
ياليت تكتب رابط لفيجوال 2005

[sagia]

السلام عليكم
هذا رابط يبين لك كيفية ارسال اميل عن طريق فيجول 2005
http://www.codeproject .com/KB/vb/epsendmail.aspx

وهذا كود استخدمته لارسال اميل من الجهاز
Try
Dim msg As New System.Net.Mail .MailMessage
msg.To.Add("mail@yahoo.com") '
msg.From = New Net.Mail.MailAd dress("mail@yahoo.com", "test", System.Text.Enc oding.UTF8)
msg.Subject = "test"
msg.SubjectEnco ding = System.Text.Enc oding.UTF8
msg.Body = "test"
msg.BodyEncodin g = System.Text.Enc oding.UTF8
msg.IsBodyHtml = False
Dim client As New Net.Mail.SmtpCl ient()
'client.Credent ials = New System.Net.Netw orkCredential("mail@gmail.com", "password")
'client.Port = 587 'or use 587
client.Host = "localhost"
'client.EnableS sl = True
client.Send(msg )
Catch ex As Exception
MessageBox.Show (ex.Message)
End Try

[waad]

السلام عليكم
هذه الوصله ممكن تفيدك ايضا
http://www.freevbcode. com/ShowCode.asp?ID =6401