Visual Basic

Public Function SendmailUsingSmtpClient(ByVal destinationEmail As List(Of String), ByVal subject As String, ByVal body As String) As Boolean ', ByVal pblnNotify As Boolean) As Boolean
       'Dim Email As New System.Net.Mail.MailMessage
       Dim mailClient As SmtpClient = Nothing
       '    Dim smtp As New System.Net.Mail.SmtpClient(BLLmdlCommon.SmtpServer, BLLmdlCommon.SmtpServerPort)
       Dim cred As NetworkCredential = Nothing
       Dim smtpserver As String = ""
       Dim SendPassword As String = ""
       Dim fromMail As String = ""
       Dim smptServerPort As String = ""
       Dim SendUserName As String = ""
       Try
           SendPassword = System.Configuration.ConfigurationManager.AppSettings("fromemailpassword").ToString()
           fromMail = System.Configuration.ConfigurationManager.AppSettings("FromEmail").ToString()
           smtpserver = System.Configuration.ConfigurationManager.AppSettings("smtpserver").ToString()
           smptServerPort = System.Configuration.ConfigurationManager.AppSettings("SmtpServerPort").ToString()

           mailClient = New SmtpClient(smtpserver, smptServerPort)
           '  mailClient.EnableSsl = True
           mailClient.DeliveryMethod = SmtpDeliveryMethod.PickupDirectoryFromIis
           mailClient.UseDefaultCredentials = False
           cred = New NetworkCredential(fromMail, SendPassword)
           mailClient.Credentials = cred
           For i As Integer = 0 To destinationEmail.Count - 1
               mailClient.Send(fromMail, destinationEmail(i), subject, body)
           Next
           Return True
       Catch ex As Exception
           Throw ex
           Return False
       End Try
   End Function