|
' ****************************************************
' メール送信
' ****************************************************
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
| |