<!DOCTYPE html>
<head>
<meta http-equiv="X-UA-Compatible" content="IE=10">
<title>メール送信</title>
<script language="VBScript">
<!--
''
''メール送信関連設定(※環境に合わせて修正してください)
''
Const C_MailFrom = "HOGE" '送信元メールアドレス
Const C_MailReplyTo = "hogehoge@gmail.com" '返信先メールアドレス
Const C_CONF_SEND_USING = 2 '送信方法 1:ローカルSMTPサービスのピックアップ・ディレクトリにメールを配置する 2:SMTPポートに接続して送信 3:OLE DBを利用してローカルのExchangeに接続する
Const C_CONF_SMTP_SERVER = "smtp.gmail.com" 'SMTPサーバを指定(ホスト名orIP)
Const C_CONF_SMTP_SERVER_PORT = 465 'SMTPサーバポートを指定
Const C_CONF_SMTP_USER_SSL = True 'SSL通信をする/しない
Const C_CONF_SMTP_AUTH_ENTICATE = 1 'SMTP認証 1(Basic認証)/2(NTLM認証)
Const C_CONF_SEND_USERNAME = "username@gmail.com" 'SMTP送信ユーザ名
Const C_CONF_SEND_PASSWORD = "password" 'SMTP送信ユーザパスワード
Const C_CONF_SMTP_TIMEOUT = 60 'タイムアウト(秒)
''
''ボタン押下時
''
Sub ButtonClick()
Dim mailSubject
Dim mailText
Dim mailAddress
Dim strArray
mailAddress = document.sendMail_Form.mailaddress.value
strArray = Split(mailaddress, "@")
mailSubject = "【テスト】メール件名"
mailText = strArray(0) & " 様" & vbCrLF
mailText = mailText & vbCrLF
mailText = mailText & "株式会社テストです。" & vbCrLF
mailText = mailText & vbCrLF
mailText = mailText & "以上、よろしくお願いいたします。" & vbCrLF
''メール送信
Call SendMail(mailAddress, mailSubject, mailText)
End Sub
''
''メール送信
''
Function SendMail( oMailTo, oMailSubject, oMailText )
Set objMail = CreateObject("CDO.Message")
objMail.From = C_MailFrom
objMail.To = oMailTo
objMail.ReplyTo = C_MailReplyTo
objMail.Subject = oMailSubject
objMail.TextBody = oMailText
strConfigurationField ="http://schemas.microsoft.com/cdo/configuration/"
With objMail.Configuration.Fields
.Item(strConfigurationField & "sendusing") = C_CONF_SEND_USING
.Item(strConfigurationField & "smtpserver") = C_CONF_SMTP_SERVER
.Item(strConfigurationField & "smtpserverport") = C_CONF_SMTP_SERVER_PORT
.Item(strConfigurationField & "smtpusessl") = C_CONF_SMTP_USER_SSL ''SMTP認証を行わない場合はこの行をコメントしてください
.Item(strConfigurationField & "smtpauthenticate") = C_CONF_SMTP_AUTH_ENTICATE ''SMTP認証を行わない場合はこの行をコメントしてください
.Item(strConfigurationField & "sendusername") = C_CONF_SEND_USERNAME ''SMTP認証を行わない場合はこの行をコメントしてください
.Item(strConfigurationField & "sendpassword") = C_CONF_SEND_PASSWORD ''SMTP認証を行わない場合はこの行をコメントしてください
.Item(strConfigurationField & "smtpconnectiontimeout") = C_CONF_SMTP_TIMEOUT
.Update
end With
''メール送信
objMail.Send
Set objMail = Nothing
End Function
-->
</script>
</head>
<body>
<header>
</header>
<section>
<div class="login00">
<h1 class="login01">メール送信画面</h1>
<div class="login04">メールアドレスを入力してください。</div>
<form action="" method="post" name="sendMail_Form" class="form-signin">
<input type="text" class="login02" name="mailaddress" placeholder="MailAddress" autofocus="" required><br />
<button class="login03" name="" value="" type="Submit" onClick="ButtonClick()"><span>送信</span></button>
</form>
</div>
</section>
<footer>
</footer>
<div id="page_top"><a href="#top"></a></div>
</body>
</html>