السلام عليكم ورحمة الله
اعمل على برنامج يقوم باستخدامه العديد من المستخدمين
وعند اضافة او تعديل مستخدم احتاج لارسال ميل بـ معلومة باضافة مستخدم الى مديره
ثم احتاج لارسال ميل اخر للشخص نفسة باسم المستخدم وكلمة المرور
احتاج المساعدة فى تنفيذ كود يقوم بارسال ميل من اوت لوك من الجهاز المحلى
توصلت لنتيجة التالية وتعطى رسالة بتأكيد الارسال دون ارسال الميل
Imports System.Net.Mail.MailMessage
Imports System.Net
Imports System.Net.Mail
Public Class ADMIN
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
Dim mssg As New MailMessage( "email1@te.eg" , "email2@te.eg")
mssg.Subject = " الموضوع - العنوان"
mssg.Body = "ميل تجريبى من اوت لوك !! "
Dim smMcli As New SmtpClient("localhost", 25)
smMcli .EnableSsl = True
smMcli .Credentials = New NetworkCredential("email@te.eg", "password")
Try
smMcli .SendMailAsync(mssg)
MessageBox.Show("تم تأكيد ارسال الميل!!")
Catch ex As Exception
MessageBox.Show("وجد خطاء ولم يتم الارسال!!" & ex.Message)
End Try
End Sub