سؤال عن ارسال ميل من خلال vb.net

[عماد البشبيشي]

السلام عليكم ورحمة الله

اعمل على برنامج يقوم باستخدامه العديد من المستخدمين

وعند اضافة او تعديل مستخدم  احتاج لارسال ميل بـ معلومة باضافة مستخدم الى مديره

ثم احتاج لارسال ميل اخر للشخص نفسة باسم المستخدم وكلمة المرور

احتاج المساعدة فى تنفيذ كود يقوم بارسال ميل من اوت لوك من الجهاز المحلى

توصلت لنتيجة التالية وتعطى رسالة بتأكيد الارسال دون ارسال الميل

 

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

 

 

[أ / محمد صالح]

الكود الموجود في الموضوع يخص إرسال البريد باستخدام خادم smtp محلي اسمه localhost

ولا يتم الإرسال تقريبا لأنه لا يوجد سيرفر على الجهاز المستخدم

لذا ربما يفيد هذا الموضوع

الكود في vba و vb.net قريب جدا

 

[adelmb]

السلام عليك و رحمة الله و بكاته

هذا مثال بسيط

لبرنامج يقوم بارسال بريد الكتروني

اذا كان هو المطلوب

 ارفق لك الكود

بالتوفيق

تم تعديل فبراير 19, 2018 بواسطه adelmb

[د.كاف يار]

انا حاليا اقوم باستخدام هذا الكود

حيث ان المستخدم يستطيع ارسال كلمة المرور الخاصة به من خلال اداخل اسم المستخدم فقط

con.Open()
        Try


            Using mm As New MailMessage("xxxxxxx@gmail.com", "xxxxxxxxxx@gmail.com")
                mm.CC.Add(New MailAddress("xxxxxxx@gmail.com", "xxxxxxx@gmail.com"))
                mm.Subject = "استعادة كلمة المرور"
                mm.Body = "رسالة للمستخدم تحتوي على كلمة المرور و اسم المستخدم"
               
                mm.IsBodyHtml = True
                Dim smtp As New SmtpClient()
                smtp.Host = "smtp.gmail.com"
                smtp.EnableSsl = True
                Dim NetworkCred As New NetworkCredential("xxxxxx@gmail.com", "xxxxxpasswordxxxxx")
                smtp.UseDefaultCredentials = True
                smtp.Credentials = NetworkCred
                smtp.Port = 587
                smtp.Send(mm)
                Label1.Text = "تم ارسال كلمة المرور بنجاح"

            End Using


        Catch ex As Exception


        End Try
        con.Close()