مشكلة في ارسال رسالة بريدية من الموقع .. بعد الرفع ..

جرب اكواد اخرى لكن لم تفلح الطريقة

اتمنى المساعدة وفي الاسفل الكود الاخير المستخدم

 

	Public Function SendEmail(ByVal strMessage As String, _
					  ByVal strToAddress As String, _
					  ByVal strFromAddress As String, _
					  ByVal strSubject As String) As Boolean

		Dim bReturn As Boolean = True

		Dim cmd As New SqlCommand("select * from webconfig ", com.GetConnection())
		Dim dr As SqlDataReader = cmd.ExecuteReader
		If dr.Read Then






			Try
				Dim m As Web.Mail.MailMessage = New Web.Mail.MailMessage
				With m
					.From = strFromAddress
					.To = strToAddress
					.Body = strMessage
					.Subject = strSubject
					.BodyFormat = MailFormat.Html
					.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
					.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = dr("config_smtp")
					.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = dr("config_email")
					.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = dr("config_password")
					.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
					.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
					.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = "true"
					.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

				End With
				SmtpMail.SmtpServer = dr("config_smtp")
				SmtpMail.Send(m)

				If dr("config_activ_sms") = True Then
					'  ShowResult(SendMessage(dr("config_sms_id"), dr("config_sms_pas"), ConvertToUnicode(" تم مراسلة الموقع عن طريق اتصل بنا راجع الإيميل وشكراً"), "DTC", dr("config_Master_mobile")), dr("config_email"))
				End If

				MultiView1.ActiveViewIndex = 1
				Label4.Text = "تم ارسال الرسالة بنجاح .. سنقوم بالرد عليك في أقرب فرصة "


			Catch ex As Exception
				MultiView1.ActiveViewIndex = 1
				bReturn = False
				Label4.Text = "تعذر إرسال الرسالة .. ستقوم إدارة الموقع بالتحقق من المشكلة وحلها في أقرب وقت  ..  شاكرين لك تعاونكم معنا<BR/><BR/>" ' + ex.Message

			End Try

			Return bReturn

		End If



	End Function

بحثت ايضاً في مواضيع كثيرة هنا لكن ايضاً لم يفلح اي كود