اذهب الي المحتوي
أوفيسنا

سؤال عن ارسال ميل من خلال 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

 

 

رابط هذا التعليق
شارك

  • 2 weeks later...

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

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

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

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

 

رابط هذا التعليق
شارك

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

هذا مثال بسيط

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

Email.jpg

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

 ارفق لك الكود

بالتوفيق

تم تعديل بواسطه adelmb
رابط هذا التعليق
شارك

  • 1 year later...

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

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

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()

 

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information