31-07-16, 02:09 AM
السلام عليكم
اخواني الاعزاء انا كنت قد نشرت للمتابعين بأني سأصدر الاصدار الجديد
من برنامج اذاعة القران الكريم في 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 Class