シェル スクリプトの場合

　bash を使った例です。multipart/mixed 形式のデータを sendmail を利用して送信します。メール本文や添付ファイルのセクション(?)を MAIL_BOUNDARY で区切って、添付ファイルは base64 を利用して binary⇒ascii 変換して挿入します。複数ファイルを添付する場合にも、MAIL_BOUNDARY で区切ってどんどん追加すれば OK。

#!/bin/bash

ATTACH_FILETYPE=image/jpeg
ATTACH_FILENAME=58bf1448.jpg
ATTACH_FILEPATH=/tmp/${ATTACH_FILENAME}

SENDMAIL=/usr/sbin/sendmail
BASE64=/usr/bin/base64

MAIL_BOUNDARY=MAIL_BOUNDARY.$RANDOM$RANDOM$RANDOM

$SENDMAIL -t << SENDMAILHEREDOC
From: This is a pen <root@lab.magicvox.net>
To: User1 <user1@example.com>,
    User2 <user2@example.com>
Subject: 日本語の題名
MIME-Version: 1.0
Content-type: multipart/mixed; boundary=${MAIL_BOUNDARY}
Content-Transfer-Encoding: 7bit

--${MAIL_BOUNDARY}
Content-type: text/plain; charset=utf8
Content-Transfer-Encoding: 7bit

ここにメール本文

--${MAIL_BOUNDARY}
Content-type: ${ATTACH_FILETYPE}; name=${ATTACH_FILENAME}
Content-Disposition : attachment; filename=${ATTACH_FILENAME}
Content-Transfer-Encoding: base64

`${BASE64} ${ATTACH_FILEPATH}`

--${MAIL_BOUNDARY}--
SENDMAILHEREDOC

• Subject、本文ともに日本語文字(UTF8)を直接書き込んで送受信できた
• ただし、Subject 部分はエンコードされずに送られるので、MTA や MUA によってはダメかもしれない
• Mozilla Thundebird、Gmail で受信確認

Perl スクリプトの場合

　sendmail へのパイプを open してメールを送信するサンプル コードをよく見かけますが、これを土台に、先のシェル スクリプトと同様に multipart/mixed 形式データを自前で用意して流しこむ方法があります。ただ、ソースコードが煩雑になるので、MIME::Lite などのモジュールを利用した方が判りやすくて良いと思います。

use MIME::Lite;
use Encode;
 
# コンテナを作成
my $msg = MIME::Lite->new(
    From =>     'This is a pen <staff@daiei-g.com>',
    To =>       'user1@example.com, User2 <user2@example.com>',
    Subject =>  Encode::encode( 'MIME-Header-ISO_2022_JP', "日本語の件名" ),
    Type =>     'multipart/mixed',
);

# メッセージ部分
$msg->attach(
    Type => 'text/plain; charset="utf-8"',
    Data => <<PERLHEREDOC,
ここにメッセージ本文
PERLHEREDOC
);

# 添付ファイル
$msg->attach(
    Type => 'application/octet-stream',
    Disposition => 'attachment',
    Path => "/path/to/your/file.jpg",
    Filename => 'alternative-filename.jpg',
);

# 送信
$msg->send();

6～7 行目

　送受信者の名前を指定することもできます。複数宛てにメールを送る場合にはコンマ区切りでアドレスを続けます。

8 行目

　Subject には日本語文字列(UTF8)を直接書いても送信できましたが、エンコードしておく方が行儀が良さそうです。

参考リンク

• ファイルの添付の研究 'PERL-LABO' … multipart/mixed 形式のデータを sendmail にパイプして送信する方法
• 添付ファイル付きのメールを送信する - Perl表技集 … MIME::Lite を利用して添付ファイル付きメールを送信する例
• MIME::Lite - 添付付きメールの送信

MS-DOS バッチ ファイルの場合

　メール送信用の小さなクライアント プログラムを利用します。SMAIL あたりが使いやすそうです。

smail.exe ^
    -h"smtp.example.com" ^
    -f"from@example.com" ^
    -s"Test Mail from SMAIL" ^
    -Fbody.txt ^
    user1@example.com,user2@example.com