☰

uuencode とミュートを使用せずに電子メールを送信するにはどうすればよいですか?

tag-icon • tag-icon email perl
uuencode とミュートを使用せずに電子メールを送信するにはどうすればよいですか?

uuencode と MUTE コマンドを使用せずに、unix/AiX から添付ファイルを送信することは可能ですか?

添付ファイルなしで電子メールを適切に送信する Perl スクリプトを作成できます。PDF 添付ファイルを送信する Perl コードを入手できますか?

#!/usr/bin/perl
$to = '[email protected]';
$from = '[email protected]';
$subject = 'Email from QA server';
$message = 'This is test email sent by Perl Script1';

open(MAIL, "|/usr/sbin/sendmail -t");

# Email Header
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n\n";
# Email Body
print MAIL $message;

close(MAIL);
print "Email Sent Successfully\n";

答え1

添付ファイル付きのメールを送信する bash 関数を次に示します。これは Linux システム用に作成したため、base64プログラムが利用可能であることが想定されています。

########################################################################
# usage: echo "$body" | email_attachment -f from -t to -c cc -s subject -a attachment_filename
# the -a option can be specified multiple times
email_attachment() {
    local from to cc subject attachments=()
    local OPTIND OPTARG
    local body=$( cat )
    local boundary="_====-boundary-${$}-$(date +%Y%m%d%H%M%S)-====_"

    while getopts f:t:c:s:a: opt; do
        case $opt in
            f) from=$OPTARG ;;
            t) to=$OPTARG ;;
            c) cc=$OPTARG ;;
            s) subject=$OPTARG ;;
            a) attachments+=( "$OPTARG" ) ;;
        esac
    done

    {
        echo "From: $from"
        echo "To: $to"
        echo "Cc: $cc"
        echo "Subject: $subject"
        echo "Content-Type: multipart/mixed; boundary=\"$boundary\""
        echo "Mime-Version: 1.0"
        echo
        echo "This is a multi-part message in MIME format."
        echo
        printf -- "--%s\n" "$boundary"
        echo "Content-Type: text/plain; charset=ISO-8859-1"
        echo
        echo "$body"
        echo
        for filename in "${attachments[@]}"; do
            # attach it if it's readable and non-zero size
            if [[ -r "$filename" ]] && [[ -s "$filename" ]]; then
                printf -- "--%s\n" "$boundary"
                echo "Content-Transfer-Encoding: base64"
                echo "Content-Type: application/octet-stream; name=$(basename "$filename")"
                echo "Content-Disposition: attachment; filename=$(basename "$filename")"
                echo
                base64 "$filename"
                echo
            fi
        done
        printf -- "--%s--\n" "$boundary"
    } | /usr/lib/sendmail -oi -t
}

関連情報