VB.Newメールの自動送信方法

Asp.Net自動送信メールの方法
今日はメールを自動送信する機能が必要なモジュールがあり、勝手に1つ書いて、蓄積として記録しました.
一、まずwebを構成する必要がある.configファイル:
port="25"defaultCredentials="false"/>
二、メールを送信する関数を作成します.
'''/
'''メールの送信方法(添付ファイル付き)
'''
'''受信者アドレス.次のようになります[email protected]
'''メールタイトル
'''メール本文
'''メール送信者アドレス.次のようになります[email protected]
'''添付ファイルパス
'''
Public Function MySendMail(ByVal mailto As String, ByVal mailsubject As String, ByVal mailbody As String, ByVal mailFrom As String, ByVal list As ArrayList) As Boolean
Try
'メール送信者アドレス
Dim from As New System.Net.Mail.MailAddress(mailFrom)
のように[email protected]、初歩的なテスト[email protected]いいえ、163のメールサーバーを使うには、163メールボックスのユーザー名を使わなければなりません.
'受信者アドレス
Dim [to] As New System.Net.Mail.MailAddress(mailto)
のように[email protected]
Dim mail As New System.Net.Mail.MailMessage(from, [to])
mail.Subject = mailsubject
mail.Body = mailbody
'次のサーバの設定
Dim mySmth As New System.Net.Mail.SmtpClient()
'添付ファイルを添付します
Dim count As Integer = list.Count
For i As Integer = 0 To count - 1
Dim data As New System.Net.Mail.Attachment(list(i).ToString())
mail.Attachments.Add(data)
Next
mySmth.Send(mail)
mail.Dispose()
Return True
Catch
Return False
End Try
End Function
三、最後に関数の呼び出しです.

Dim mailSubject As String = "       "
Dim mailBody As String = "    。"
Dim mailFrom As String = ConfigurationManager.AppSettings("SendMail")
Dim List As New ArrayList()
List.Add(Server.MapPath(ConfigurationManager.AppSettings("SendMailText")))

		'    ，      
If MySendMail(Me.txtEmail.Text, mailSubject, mailBody, mailFrom, List) Then
Else

	'    ，      
	Return
End If