VB.NET 发送邮件（基于）

 ''' <summary>  

         ''' 通过SmtpClient类发送电子邮件  
         ''' </summary>  
         ''' <param name="ReceiveAddressList">收件人地址列表</param>  
         ''' <param name="Subject">邮件主题</param>  
         ''' <param name="Content">邮件内容</param>  
         ''' <param name="AttachFile">附件列表Hastable。KEY=文件名,Value文件路径</param>  
         Private Function SendMail(ByVal ReceiveAddressList As List(Of String), ByVal Subject As String, ByVal Content As String, _  
                                   Optional ByVal AttachFile As Hashtable = Nothing) As Boolean  
             Dim i As Integer