メール
Public Sub mailsend(ByVal SSERV As String, ByVal FROM As String, ByVal MTO As String, ByVal SUBJECT As String, ByVal BODY As String)
System.Web.Mail.SmtpMail.SmtpServer = SSERV
System.Web.Mail.SmtpMail.Send(FROM, MTO, SUBJECT, BODY)
End Sub
Public Sub mailsend(ByVal SSERV As String, ByVal FROM As String, ByVal MTO As String, ByVal SUBJECT As String, ByVal BODY As String)
System.Web.Mail.SmtpMail.SmtpServer = SSERV
System.Web.Mail.SmtpMail.Send(FROM, MTO, SUBJECT, BODY)
End Sub