'My Code For Send Email .................
-----------------------------------------------------------------------------------------------------------------
Public Sub send_email(ByVal mTo As String, ByVal mFrom As String, ByVal mCc As String, ByVal mBody As String)
mMailServer = "localhost"
' ConfigurationManager.AppSettings.Get("MyMailServer")
mPort = 25
'mPort = ConfigurationManager.AppSettings.Get("MyMailServerPort")
Try
Dim message As New MailMessage(mFrom, mTo, mSub, mBody)
If upload_file.HasFile Then
Dim attached As New Attachment(Trim(upload_file.PostedFile.FileName.ToString))
message.Attachments.Add(attached)
End If
'If mCc <> "" Or mCc <> String.Empty Then
' Dim strCc() As String = Split(mCc, ";")
' Dim this_string As String
' For Each this_string In strCc
' message.CC.Add(Trim(this_string))
' Next
'End If
'message.DeliveryNotificationOptions = 2
'
Dim my_wholeMessage As New SmtpClient("127.0.0.1", mPort)
my_wholeMessage.UseDefaultCredentials = True
my_wholeMessage.Send(message)
Catch ex As FormatException
lbl_error.Text = "Please fill required parameters for send Email : " & ex.Message
Catch ex As SmtpException
lbl_error.Text = "Error during SMTP mail transfer : " & ex.Message
Catch ex As Exception
lbl_error.Text = "Email not sent successfully server not found : " & ex.Message
End Try
End Sub
----------------------------------------------------------------------------------------
'-------------------------------------
Web.config file ...........
----------------------------------------
<system.net>
<mailSettings>
<smtp deliveryMethod="Network">
<network port="25" defaultCredentials="true" host="localhost"/>
</smtp>
</mailSettings>
</system.net>
-------------------------------------------------------
From above code i am not able to send message .....
Tell me the wats wrong with above code
