Macでメールを一括送信するプログラムを作りましょう。お金はかかりません。使うのはMacに元から入っているもの、それにほんのちょっとの手間と知識だけです。

この記事は初出が2013年で、2019年7月17日に改訂しました。初出はMac OS X Lionのころ、現在はMojaveですが、まだ使えています。

ワークフロー形式のファイルだけど、アプリ形式に保存し直して使うこともできるよ（Automatorで開いて→ファイル>変換→アプリケーション）。こうすると、使うときにいちいちワークフローの画面が開かれない。ただし初回にいくつかのダイアログが出るので「OK」する必要があります。

作り方

各部の解説

「メール一括送信.workflow」をAutomatorで開くと、アクションが並んでいます。それぞれどんな作業をしているのか。

確認

ダイアログメッセージ。わかりやすくするためのおまけ。

新規メールメッセージ

メールを作る。「オプション > 実行時にこのアクションを表示」で入力ウインドウを出すようにできます。

変数の値を設定

さっき作ったメールを変数に入れます。あとで加工するためです。

選択された連絡先〜取得

連絡先を取得します。グループから個人を取る、の2段階にしています。

変数の値を取得

さっき作ったメール。このあとのAppleScriptに渡すため。

AppleScriptを実行

メールを人数分コピーして宛先をセット、という動作をさせています。わざわざここだけプログラムを書く必要があったのは諸事情により、で後述します。

送信メッセージを送信

待機しているメールを送信します。

ちょっとした改造

メールをいきなり送信でなくするには

最後のアクション「送信メッセージを送信」を削除しておきます。こうするとメールは自動で送られずに残ります。自分の手で一通ずつ送信ボタンをポチポチしていきましょう。

宛名付きのメールにしたい

AppleScript部分を調整すれば可能です！

on run {input, parameters}
	
	set theMail to (item (count of input) of input)
	
	repeat with i from 1 to (count of input) - 1
		set contact to item i of input
		set theAddress to ""
		
		--変更箇所(1)
		set forString to ""
		
		tell application "Contacts"
			set theAddress to value of first email of contact
			
			--変更箇所(2) 宛名をセット
			if last name of contact is not equal to missing value then
				set forString to last name of contact & "様

" --改行を入れました。
			end if
		end tell
		
		tell application "Mail"
			set theContent to content of theMail
			set theSubject to subject of theMail
			
			--変更箇所(3) 本文に宛名をつける
			set theContent to forString & theContent
			
			set newMessage to make new outgoing message with properties ¬
				{subject:theSubject, content:theContent, visible:true}
			tell newMessage to make new to recipient at end of to recipients with properties ¬
				{address:theAddress}
		end tell
	end repeat
	return input
end run

もっとやるなら、宛名をつけるかどうかのダイアログを出してYesならつける、みたいなことも変数を工夫したらできますね。