+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ارسال التقارير (/showthread.php?tid=31646)
ارسال التقارير - احمد خطاب - 04-10-19
السلام عليكم اصدقائى الاعزاء
ماهى طريقة ارسال تقارير الكريستال بالاميل
RE: ارسال التقارير - asemshahen5 - 05-10-19
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
RE: ارسال التقارير - احمد خطاب - 06-10-19
اشكرك جدااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااا جزاك الله كل الخير
RE: ارسال التقارير - alshandodi - 06-12-19
ما سبب وجود هذا الخطا في الفيجوال بيسك
وفي البريد الاكتروني ظهرت لي هذي المشكله
RE: ارسال التقارير - asemshahen5 - 07-12-19
ندخل على ادارة حساب غوغل كالصورة التالية :
و نختار الامان ثم :
و نختار وصول التطبيقات الأقل أمانًا ثم تفعيل الوصول :
و بعدها سيعمل باذن الله .