+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=12165)
اريد كود لارسال رسالة الى بريد الجميل من برنامج الفيجول بيسك - mohamedalmorshdy - 25-04-15
اريد كود لارسال رسالة الى بريد الجميل من برنامج الفيجول بيسك
RE: اريد كود لارسال رسالة الى بريد الجميل من برنامج الفيجول بيسك - ims.ataya - 26-04-15
كنت اريد أن اطرح نفس السؤال ولكن نريد كود بدون ادخال كلمة البريد في الكود لانها ربما نقوم بتغييرها لاحقا .. ؟
RE: اريد كود لارسال رسالة الى بريد الجميل من برنامج الفيجول بيسك - hassan - 26-04-15
تفضلو اخواني
هاذا الكود
PHP كود :
Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim SmtpServer As New SmtpClient()
Dim mail As New MailMessage()
SmtpServer.Credentials = New _
Net.NetworkCredential("username@gmail.com", "password")
SmtpServer.Port = 587
SmtpServer.Host = "smtp.gmail.com"
mail = New MailMessage()
mail.From = New MailAddress("YOURusername@gmail.com")
mail.To.Add("TOADDRESS")
mail.Subject = "Test Mail"
mail.Body = "This is for testing SMTP mail from GMAIL"
SmtpServer.Send(mail)
MsgBox("mail send")
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
End Class