メール送信 - 版の履歴

MSY-07: 変数にvarの宣言を追加

2025-11-25T01:52:57Z

変数にvarの宣言を追加

← 古い版		2025年11月25日 (火) 10:52時点における版
14行目:		14行目:
	#title="メール作成"		#title="メール作成"

	doc = Document;		var doc = Document;
	if (doc.Path != '' \|\| doc.Text != '') {		if (doc.Path != '' \|\| doc.Text != '') {
	Editor.NewFile();		Editor.NewFile();

MSY-07: SyntaxHighlightにcopyの追加

2025-06-29T15:43:12Z

SyntaxHighlightにcopyの追加

← 古い版		2025年6月30日 (月) 00:43時点における版
11行目:		11行目:
	== ソースコード ==		== ソースコード ==
	=== メール作成 ===		=== メール作成 ===
	<syntaxhighlight lang="javascript">		<syntaxhighlight lang="javascript" copy>
	#title="メール作成"		#title="メール作成"

24行目:		24行目:

	=== メール送信 ===		=== メール送信 ===
	<syntaxhighlight lang="javascript">		<syntaxhighlight lang="javascript" copy>
	#title="メール送信"		#title="メール送信"

MSY-07: 見出しの修正

2023-07-22T09:04:11Z

見出しの修正

← 古い版		2023年7月22日 (土) 18:04時点における版
9行目:		9行目:
	* メール送信マクロを実行。		* メール送信マクロを実行。

	== ~~コード~~ ==		== ソースコード ==
	=== メール作成 ===		=== メール作成 ===
	<syntaxhighlight lang="javascript">		<syntaxhighlight lang="javascript">

MSY-07: 句読点の修正

2023-05-17T09:38:29Z

句読点の修正

← 古い版		2023年5月17日 (水) 18:38時点における版
1行目:		1行目:
	== 概要 ==		== 概要 ==
	~~メールを送信します．~~		メールを送信します。
	現状では gmail ~~での動作を確認しています．~~		現状では gmail での動作を確認しています。

	== 利用方法 ==		== 利用方法 ==
	* ~~メール送信マクロのコード中，「MY_ADDRESS」「PASSWORD」を設定する．~~		* メール送信マクロのコード中、「MY_ADDRESS」「PASSWORD」を設定する。
	* ~~メール作成マクロを実行．~~		* メール作成マクロを実行。
	* To, Subject ~~および横線以降の本文を記述．~~		* To, Subject および横線以降の本文を記述。
	* ~~メール送信マクロを実行．~~		* メール送信マクロを実行。

	== コード ==		== コード ==
64行目:		64行目:

	if (setFlag != 7) {		if (setFlag != 7) {
	Alert('メール送信には To, Subject, ~~本文が必要です．~~');		Alert('メール送信には To, Subject, 本文が必要です。');
	Quit();		Quit();
	}		}

MSY-07: セクションの修正

2023-05-16T15:57:58Z

セクションの修正

← 古い版		2023年5月17日 (水) 00:57時点における版
1行目:		1行目:
	= 概要 =		== 概要 ==
	メールを送信します．		メールを送信します．
	現状では gmail での動作を確認しています．		現状では gmail での動作を確認しています．

	= 利用方法 =		== 利用方法 ==
	* メール送信マクロのコード中，「MY_ADDRESS」「PASSWORD」を設定する．		* メール送信マクロのコード中，「MY_ADDRESS」「PASSWORD」を設定する．
	* メール作成マクロを実行．		* メール作成マクロを実行．
9行目:		9行目:
	* メール送信マクロを実行．		* メール送信マクロを実行．

	= コード =		== コード ==
	== メール作成 ==		=== メール作成 ===
	<syntaxhighlight lang="javascript">		<syntaxhighlight lang="javascript">
	#title="メール作成"		#title="メール作成"
23行目:		23行目:
	</syntaxhighlight>		</syntaxhighlight>

	== メール送信 ==		=== メール送信 ===
	<syntaxhighlight lang="javascript">		<syntaxhighlight lang="javascript">
	#title="メール送信"		#title="メール送信"

MSY-07: タグをタグに置き換える

2023-05-16T14:26:23Z

<source>タグを<syntaxhighlight>タグに置き換える

← 古い版		2023年5月16日 (火) 23:26時点における版
11行目:		11行目:
	= コード =		= コード =
	== メール作成 ==		== メール作成 ==
	<~~source~~ lang="javascript">		<syntaxhighlight lang="javascript">
	#title="メール作成"		#title="メール作成"

21行目:		21行目:
	doc.Text = 'To:\nCc:\nBcc:\nSubject:\n------------------------------------------------------------------------\n';		doc.Text = 'To:\nCc:\nBcc:\nSubject:\n------------------------------------------------------------------------\n';
	doc.Selection.EndOfLine();		doc.Selection.EndOfLine();
	</~~source~~>		</syntaxhighlight>

	== メール送信 ==		== メール送信 ==
	<~~source~~ lang="javascript">		<syntaxhighlight lang="javascript">
	#title="メール送信"		#title="メール送信"

88行目:		88行目:

	Mailer.Send();		Mailer.Send();
	</~~source~~>		</syntaxhighlight>

Ks: ページの作成：「= 概要 = メールを送信します．現状では gmail での動作を確認しています． = 利用方法 = * メール送信マクロのコード中，「MY...」

2014-01-06T13:32:31Z

ページの作成：「= 概要 = メールを送信します．現状では gmail での動作を確認しています． = 利用方法 = * メール送信マクロのコード中，「MY...」

新規ページ

= 概要 =
メールを送信します．
現状では gmail での動作を確認しています．

= 利用方法 =
* メール送信マクロのコード中，「MY_ADDRESS」「PASSWORD」を設定する．
* メール作成マクロを実行．
* To, Subject および横線以降の本文を記述．
* メール送信マクロを実行．

= コード =
== メール作成 ==
<source lang="javascript">
#title="メール作成"

doc = Document;
if (doc.Path != '' || doc.Text != '') {
Editor.NewFile();
doc = Editor.Documents.Item(Editor.Documents.Count-1);
}
doc.Text = 'To:\nCc:\nBcc:\nSubject:\n------------------------------------------------------------------------\n';
doc.Selection.EndOfLine();
</source>

== メール送信 ==
<source lang="javascript">
#title="メール送信"

var MY_ADDRESS = '***@gmail.com'; // メールアドレス
var PASSWORD = '***'; // パスワード

var Mailer = new ActiveXObject('CDO.Message');
Mailer.From = MY_ADDRESS;
Mailer.BodyPart.Charset = 'utf-8';

// ドキュメントを解析してメール作成
var lines = Document.Text.split('\n');
var setFlag = 0;
for (var i=0; i<lines.length; i++) {
var head = lines[i].split(':')[0].toLowerCase();
switch (head) {
case 'to':
Mailer.To = lines[i].substring(head.length+1);
setFlag |= 1;
break;
case 'cc':
Mailer.CC = lines[i].substring(head.length+1);
break;
case 'bcc':
Mailer.BCC = lines[i].substring(head.length+1);
break;
case 'subject':
Mailer.Subject = lines[i].substring(head.length+1);
setFlag |= 2;
break;
}
if (/^--+$/.test(head)) {
lines.splice(0, i+1);
Mailer.TextBody = lines.join('\n');
setFlag |= 4;
break;
}
}

if (setFlag != 7) {
Alert('メール送信には To, Subject, 本文が必要です．');
Quit();
}

var cdoSendUsingPickup = 1; // Send message using the local SMTP service pickup directory.
var cdoSendUsingPort = 2; // Send the message using the network (SMTP over the network).

var cdoAnonymous = 0; // Do not authenticate.
var cdoBasic = 1; // Use basic (clear-text) authentication.
var cdoNTLM = 2; // Use NTLM authentication.

// メール送信設定
var schemas = 'http://schemas.microsoft.com/cdo/configuration/';
Mailer.Configuration.Fields.Item(schemas + 'sendusing') = cdoSendUsingPort;
Mailer.Configuration.Fields.Item(schemas + 'smtpserver') = 'smtp.gmail.com';
Mailer.Configuration.Fields.Item(schemas + 'smtpserverport') = 465;
Mailer.Configuration.Fields.Item(schemas + 'smtpusessl') = true;
Mailer.Configuration.Fields.Item(schemas + 'smtpauthenticate') = cdoBasic;
Mailer.Configuration.Fields.Item(schemas + 'sendusername') = MY_ADDRESS;
Mailer.Configuration.Fields.Item(schemas + 'sendpassword') = PASSWORD;
Mailer.Configuration.Fields.Item(schemas + 'smtpconnectiontimeout') = 60;
Mailer.Configuration.Fields.Update();

Mailer.Send();
</source>