' ****************************************************
' メール送信
' ****************************************************
Private Sub btnSendMail_Click()

	Dim msg As String
	
	If MsgBox("送信してよろしいですか?", vbOKCancel) = vbCancel Then
		Exit Sub
	End If

	msg = Basp21.SendMail(SMTP, _
				txtSendTo.Text, _
				txtSendFrom.Text, _
				txtSubject.Text, _
				txtSendData.Text, _
				"")
							
	If msg <> "" Then
		MsgBox (msg)
		Exit Sub
	End If
	
	Unload Me

End Sub