Public Function SendAuthenticatedEmail(ByVal addressFrom As String, ByVal addressTo As String, _
ByVal subject As String, ByVal bodyText As String, _
ByVal isAutorizationRequired As Boolean, _
ByVal emailServer As String, ByVal emailServerPort As Integer, _
ByVal emailUser As String, ByVal emailUserPassword As String) As Boolean
Try
Dim emailMsg As New System.Net.Mail.MailMessage(addressFrom, addressTo, subject, bodyText)
Dim smtpClient As New Net.Mail.SmtpClient
If emailServer IsNot Nothing Then
smtpClient = New Net.Mail.SmtpClient(emailServer, emailServerPort)
If isAutorizationRequired Then
If emailUser IsNot Nothing And emailUserPassword IsNot Nothing Then
smtpClient.UseDefaultCredentials = False
smtpClient.Credentials = New System.Net.NetworkCredential(emailUser, emailUserPassword)
End If
Else
smtpClient.Credentials = Net.CredentialCache.DefaultNetworkCredentials()
End If
ElseIf smtpClient.Host Is Nothing Then
smtpClient = New Net.Mail.SmtpClient(Environment.MachineName)
smtpClient.Credentials = Net.CredentialCache.DefaultNetworkCredentials()
End If
smtpClient.Send(emailMsg)
Return True
Catch
Return False
End Try
End Function