Public Sub SendMail(Byval mSmtp As String, _
                    Byval mPort As Integer, _
                    ByVal mFrom As String, _
                    ByVal mFromPassword As String, _
                    ByVal mTo() As String, _
                    ByVal mSubject As String, _
                    ByVal mBody As String, _
                    ByVal mAttachments() As String)
        Dim _
        WC As New System.Net.WebClient, _
        MyMailMessage As New MailMessage, _
        SMTPServer As New SmtpClient(mSmtp)
 
        MyMailMessage.IsBodyHtml = True
 
        MyMailMessage.From = New MailAddress(mFrom)
 
        For Each mSend As String In mTo
            MyMailMessage.To.Add(mSend)
        Next
 
        MyMailMessage.Subject = (mSubject)
        For Each mAtt As String In mAttachments
            If File.Exists(mAtt) Then
                MyMailMessage.Attachments.Add(New Attachment(mAtt))
            End If
        Next
 
        WC.Dispose()
        MyMailMessage.Body = (mBody)
        SMTPServer.Port = mPort
        SMTPServer.Credentials = New System.Net.NetworkCredential(mFrom, mFromPassword)
        SMTPServer.EnableSsl = True
 
        Try
            SMTPServer.Send(MyMailMessage)
        Catch : End Try