Serendip

Web Studio

Mac OSX で利用できる MUA の OME を使って差し込みメール送信をしてみる。

OME は1メール1テキストファイルで送受信メールを扱えるので差し込みメールファイルを作って送ることもできる。
差し込みメール作成のための OME_MailMerger が見つからなかったので Perl で差し込みメール作成のためのスクリプトを作った。

#!/usr/bin/env perl -nlaF'\t'
use strict;
use warnings;
use Encode;

my $name;
my $mail;
my $type;
my $result = "";

($name, $mail, $type)=@F;

$result .=  "To: $mail\n";
$result .=  "Subject: ココに件名を書く\n\n";
$result .=  "$name さま\n";
$result .=  "貴方の番号は $type です。\n\n";
$result .=  "--\n";
$result .=  "Serendip\n";
$result .=  "https://www.serendip.ws/";

Encode::from_to($result, "utf8", "shiftjis");

open(OUT, ">upload-$..wmail");
print OUT $result;
close(OUT);

このスクリプトで.csvファイルからメールファイルを生成し、生成されたメールファイルを OutBox フォルダに移動して送信する。

-a オプションでフィールド処理を行い、 -F オプションでフィールド処理のカスタムセパレータを指定する。

ミニマルPerl Unix/LinuxユーザのためのPerl習得法

posted with amazlet at 08.07.16

Tim Maher
オライリージャパン
売り上げランキング: 4736

Amazon.co.jp で詳細を見る