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

الردود الموصى بها

قام بنشر

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

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

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

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

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

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

 

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

 

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information