Vb.net写的发信类

          最近因为项目写了个发Mail的类。给大家借鉴一下。
代码：

 1  Imports  System.Web.Mail
 2 
 3  Public   Class  TexSendMail
 4 
 5    
 6       Public   Shared   Sub  SendMail( ByVal  strkey  As   String ,  ByVal  htConfig  As  Hashtable)
 7          
 8           Dim  strMailTo  As   String
 9           Dim  strMailFrom  As   String
10           Dim  strMailSubject  As   String
11           Dim  strMailText  As   String
12           Dim  strLogPath  As   String
13           Dim  strLogName  As   String
14           Dim  strLogKey  As   String
15           Dim  strBatchName  As   String
16           Dim  mailObj  As   New  MailMessage
17           Dim  getKey  As   String
18           Try
19             
20               ' 送信先E-mailアドレス
21               If  htConfig.ContainsKey( " Mail_To " )  Then
22                  strMailTo  =  htConfig( " Mail_To " )
23               End   If
24               ' 送信用E-mailアドレス
25               If  htConfig.ContainsKey( " Mail_From " )  Then
26                  strMailFrom  =  htConfig( " Mail_From " )
27               End   If
28               ' E-mail件名
29               If  htConfig.ContainsKey( " Mail_Subject " )  Then
30                  strMailSubject  =  htConfig( " Mail_Subject " )
31               End   If
32               ' E-mail本文
33               If  htConfig.ContainsKey( " Mail_Text " )  Then
34                  strMailText  =  htConfig( " Mail_Text " )
35               End   If
36               ' 処理内容②:取得したE-mail情報を利用して、送信を行う。
37               ' 送信用E-mailアドレス
38              mailObj.From  =  strMailFrom       ' htConfigより取得した「送信用E-mailアドレス」
39               ' 送信先E-mailアドレス
40              mailObj.To  =  strMailTo           ' htConfigより取得した「送信先E-mailアドレス」
41               ' E-mail件名
42               ' htConfigより取得した「バッチの日本語名」+ 半角スペース+ HashTableより取得した「E-mail件名」
43              mailObj.Subject  =  strBatchName  &   "   "   &  strMailSubject
44               ' E-mail本文
45               ' htConfigより取得した「E-mail本文」+ VB改行+ 
46               ' htConfigより取得した「ログファイルを格納するフォルダ名」+ 
47               ' htConfigより取得した「ログファイル名」
48              mailObj.Body  =  strMailText  &  vbCrLf  &  htConfig( " Log_Path " )  &  strLogName
49               ' メールを送付する
50              SmtpMail.SmtpServer  =  htConfig( " Mail_Server " )
51              SmtpMail.Send(mailObj)
52           Catch  ex  As  Exception
53               ' エラーがあった場合、エラーを呼び出し元にThrow
54               Throw  ex
55           End   Try
56       End Sub
57  End Class