05-10-19, 02:30 AM
(آخر تعديل لهذه المشاركة : 05-10-19, 06:16 AM {2} بواسطة asemshahen5.)
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
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
