منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : اريد كود لارسال رسالة الى بريد الجميل من برنامج الفيجول بيسك
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
اريد كود لارسال رسالة الى بريد الجميل من برنامج الفيجول بيسك


Big Grin
كنت اريد أن اطرح نفس السؤال ولكن نريد كود بدون ادخال كلمة البريد في الكود لانها ربما نقوم بتغييرها لاحقا .. ؟
تفضلو اخواني 


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