Dim msg As String = "<center><h2><font color=red>نظام اتصل بنا </h2></font></center><br><b>العنوان:</b> " & TextBox1.Text & "<br><b>المرسل: </b>" & TextBox2.Text & "<br><b>ايميل المرسل: </b>" & TextBox3.Text & "<br><b>نص الرسالة: </b>" & TextBox4.Text
Dim MyMailMessage As New System.Net.Mail.MailMessage("zsas1111@gmail.com", "a-gamal@windowslive.com", "نظام اتصل بنا - موقع المنظفات", msg)
MyMailMessage.IsBodyHtml = True
MyMailMessage.Body = msg
Dim mailAuthentication As New System.Net.NetworkCredential("zsas1111@gmail.com", "myPassword:zsas1234)")
Dim mailClient As New System.Net.Mail.SmtpClient("smtp.gmail.com", 587)
mailClient.EnableSsl = True
mailClient.UseDefaultCredentials = False
mailClient.Credentials = mailAuthentication
mailClient.Send(MyMailMessage)
Response.Write("<script>alert('تم ارسال الرسالة');</script>")
