+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] ارسال رسائل بريد ارجو المساعده (/showthread.php?tid=30586)
ارسال رسائل بريد ارجو المساعده - bakriano30@yahoo.com - 29-07-19
في المثال ده انا عندي فورم فيها عدد 2 تكست بوكس واحد للميل و واحد للباسورد الخاص بحسابي علي الجميل مثلا
محتاج لما اكتب الميل والباسورد يعمل تسجيل دخول ويضفهم في الريتش بوكس المخصص ليهم كماهو موضح
واضيف عدد من الاميل المرسل له في المكان المخصص واضيف الرساله
وعند الضغط علي ارسال البرنامج يقوم بالاتي يأخذ اول حساب من حسابي ويرسل منه اول رساله الي اول مرسل ويرجع يأخذ ثاني حساب من حسابي
ويرسل منه الي ثاني مرسل ومن ثم يرجع يرسل من اول حساب من الاول الي ثالث مرسل وهكذا حتي يتم الانتهاء
ولكن بفاصل زمني محدد عن طريق اداه TrackBar هل من الممكن مساعدتي في ذلك
المشروع والمرفق موجود
RE: ارسال رسائل بريد ارجو المساعده - haytham.arafat - 31-07-19
PHP كود :
Function SendEmail(ByVal Msg As String) As Boolean
Dim emailMessage As New System.Net.Mail.MailMessage()
Try
emailMessage.From = New System.Net.Mail.MailAddress("ايميل المرسل اليه")
emailMessage.To.Add("ايميل المرسل اليه")
emailMessage.Subject = " عنوان الايميل"
emailMessage.IsBodyHtml = True
emailMessage.Body = Msg
Dim SMTP As New System.Net.Mail.SmtpClient("smtp.gmail.com")
SMTP.Port = 587
SMTP.Host = "smtp.gmail.com"
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential("ايميل المرسل", "كلمة مرور ايميل المرسل")
SMTP.Send(emailMessage)
Return True
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
Return False
End Try
End Function
RE: ارسال رسائل بريد ارجو المساعده - asemshahen5 - 31-07-19
موضوع مكرر [VB.NET] محتاج مساعده في كود ارجوكم انا علي يقين هلاقي حد يساعدني