【VBScript】メール送信プログラムを作成しよう(CDO.Message)

Pocket

こやま

VBScript でメール送信する方法を紹介するよ！

VBScript でメール送信プログラムを作成しました！

CDO.Message を使用してメール送信処理を行っています。

早速ですが、Gmail へメール送信するサンプルを紹介します。

メール送信プログラム

<!DOCTYPE html>
<head>
<meta http-equiv="X-UA-Compatible" content="IE=10">
<title>メール送信</title>
<script language="VBScript">
<!--
''
''メール送信関連設定（※環境に合わせて修正してください）
''
Const C_MailFrom = "HOGE<hoge@gmail.com>"					'送信元メールアドレス
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>

<!DOCTYPE html>

<head>

<title>メール送信</title>

<!--

''メール送信関連設定（※環境に合わせて修正してください）

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>

<h1 class="login01">メール送信画面</h1>

<div class="login04">メールアドレスを入力してください。</div>

</form>

</div>

</section>

</footer>

</body>

</html>

「メール送信関連設定」はご自身の環境に合わせて変更してください。

送信元・返信先メールアドレス
C_MailFrom は From のメールアドレス、C_MailReplyTo はメールの返信先に設定されます。

Const C_MailFrom = "HOGE<hoge@gmail.com>" '送信元メールアドレス Const C_MailReplyTo = "hogehoge@gmail.com" '返信先メールアドレス

1
2

Const C_MailFrom = "HOGE" '送信元メールアドレス
Const C_MailReplyTo = "hogehoge@gmail.com" '返信先メールアドレス

送信方法
送信方法は 2 を設定します。
これはネットワーク上のSMTPを利用するという意味で、SMTPサーバーとSMTPポートの値を参照するようになります。

Const C_CONF_SEND_USING = 2 '送信方法　1:ローカルSMTPサービスのピックアップ・ディレクトリにメールを配置する 2:SMTPポートに接続して送信 3:OLE DBを利用してローカルのExchangeに接続する

1	Const C_CONF_SEND_USING = 2 '送信方法　1:ローカルSMTPサービスのピックアップ・ディレクトリにメールを配置する 2:SMTPポートに接続して送信 3:OLE DBを利用してローカルのExchangeに接続する

SMTPサーバ・ポート
SMTPサーバーは、メール送信に使用するサーバーのホスト名、もしくはIPアドレスを指定し、
ポートはデフォルトの25番ポートか、指定したSMTPサーバーで使用できるポートを指定します。

Const C_CONF_SMTP_SERVER = "smtp.gmail.com" 'SMTPサーバを指定(ホスト名orIP) Const C_CONF_SMTP_SERVER_PORT = 465 'SMTPサーバポートを指定

1
2

Const C_CONF_SMTP_SERVER = "smtp.gmail.com" 'SMTPサーバを指定(ホスト名orIP)
Const C_CONF_SMTP_SERVER_PORT = 465 'SMTPサーバポートを指定
SSL通信／SMTP認証
Gmail の場合、SSL 通信と SMTP 認証が必要なので以下設定にしてください。

Const C_CONF_SMTP_USER_SSL = True 'SSL通信をする/しない Const C_CONF_SMTP_AUTH_ENTICATE = 1 'SMTP認証 1(Basic認証)/2(NTLM認証）

1
2

Const C_CONF_SMTP_USER_SSL = True 'SSL通信をする/しない
Const C_CONF_SMTP_AUTH_ENTICATE = 1 'SMTP認証 1(Basic認証)/2(NTLM認証）
SMTP送信ユーザ名・パスワード
Google のログイン情報に置き換えてください。

Const C_CONF_SEND_USERNAME = "username" 'SMTP送信ユーザ名 Const C_CONF_SEND_PASSWORD = "password" 'SMTP送信ユーザパスワード

1
2

Const C_CONF_SEND_USERNAME = "username" 'SMTP送信ユーザ名
Const C_CONF_SEND_PASSWORD = "password" 'SMTP送信ユーザパスワード