+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] برنامج اذاعة القران الكريم (/showthread.php?tid=16649)
برنامج اذاعة القران الكريم - Ana Muslim - 31-07-16
السلام عليكم
اخواني الاعزاء انا كنت قد نشرت للمتابعين بأني سأصدر الاصدار الجديد
من برنامج اذاعة القران الكريم في 8\1 و انا حاب اضيف
فورم ليتمكن المتابع من ارسال الرسائل لي من خلال الادوات اللازمة
انا عملت الكود هذا بس ما اشتغل و هو خالي من الاخطاء
رجاءاً الافادة ان امكن بكود يعمل
مع خالص الشكر و التقدير
العضو الجديد
ابن بغداد
كود :
Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim AhMaD As New MailMessage
Try
AhMaD.From = New MailAddress(mail.Text)
AhMaD.To.Add("مسحت الايميل عذراً")
AhMaD.Subject = "My Program"
AhMaD.Body = "Subject : " + TextBox1.Text + " Massage : " + TextBox2.Text
smtp.Credentials = New System.Net.NetworkCredential(mail.Text, pass.Text)
smtp.Send(AhMaD)
MsgBox("تم الارسال بنجاح")
Catch ex As Exception
End Try
End Sub
Private Function smtp() As Object
Throw New NotImplementedException
End Function
End ClassRE: محتاج مساعدة اذا سمحت لكم الفرصة رجاءا - ahmedabdelaliem - 31-07-16
وعليكم بالسلام ورحمة الله وبركاته
اخي توجه الى قسم الدوت نت
هذا قسم فيجوال بيسك 6
RE: محتاج مساعدة اذا سمحت لكم الفرصة رجاءا - Ana Muslim - 31-07-16
(31-07-16, 01:47 PM)ahmedabdelaliem كتب : وعليكم بالسلام ورحمة الله وبركاته
اخي توجه الى قسم الدوت نت
هذا قسم فيجوال بيسك 6
شكراً اخي للتنبيه , لاني عضو جديد لا اعرف تقسيم الموقع
و لا اعلم اصلا كيف انقل الموضوع
على اي حال الله يحفظك
RE: محتاج مساعدة اذا سمحت لكم الفرصة رجاءا - abulayth - 31-07-16
(31-07-16, 01:47 PM)ahmedabdelaliem كتب : وعليكم بالسلام ورحمة الله وبركاته
اخي توجه الى قسم الدوت نت
هذا قسم فيجوال بيسك 6
تم نقل الموضوع الى القسم المناسب شكرا لك