04-10-19, 11:54 PM
05-10-19, 02:30 AM
PHP كود :
Imports System.Net.Mail
Imports System.Net
'الان في زر الارسال قم بإضافة هذا الكود '
'هذا الكود يجعل مؤشر الفأرة بحالة إنتضار
Me.Cursor = Cursors.WaitCursor
'هذا لاستخدام سرفر gmail
Dim smtp = New SmtpClient("smtp.gmail.com", 587)
''الحماية والتشفير
smtp.EnableSsl = True
smtp.UseDefaultCredentials = False
''الايميل والباسورد المستخدم
smtp.Credentials = New NetworkCredential(from.Text, pass.Text)
Dim mail = New MailMessage(from.Text, ToEmail.Text, Subgect.Text, Body.Text)
' 'إرفاق ملف
Dim attach = New Attachment(file.Text)
Mail.Attachments.Add(attach)
Mail.IsBodyHtml = True
smtp.Send(Mail)
Me.Cursor = Cursors.Default
MessageBox.Show("تم إرسال السالة بنجاح", "تم الارسال", MessageBoxButtons.OK, MessageBoxIcon.Information)
'في زر ارفاق ملف '
'اضف هذا الكود '
Dim OFD = New OpenFileDialog()
If OFD.ShowDialog() = DialogResult.OK Then
file.Text = OFD.FileName
End If
How to Send Mails from your GMAIL Account through VB.NET or C#. Windows Programming
06-10-19, 12:40 AM
اشكرك جدااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااا جزاك الله كل الخير
06-12-19, 04:40 PM
ما سبب وجود هذا الخطا في الفيجوال بيسك
وفي البريد الاكتروني ظهرت لي هذي المشكله
07-12-19, 12:22 AM
ندخل على ادارة حساب غوغل كالصورة التالية :
[attachment=23604]
و نختار الامان ثم :
[attachment=23605]
و نختار وصول التطبيقات الأقل أمانًا ثم تفعيل الوصول :
[attachment=23606]
و بعدها سيعمل باذن الله .
[attachment=23604]
و نختار الامان ثم :
[attachment=23605]
و نختار وصول التطبيقات الأقل أمانًا ثم تفعيل الوصول :
[attachment=23606]
و بعدها سيعمل باذن الله .