منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اريد كود لارسال رسالة الى بريد الجميل من برنامج الفيجول بيسك - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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

اريد كود لارسال رسالة الى بريد الجميل من برنامج الفيجول بيسك


Big Grin



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.EventArgsHandles 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 
اما بخصوص الاميل المرسل فيه ايميل خاص بالجميل تحطه ثابت لاكن ما اعرفه والله