[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