• sendmail.msn

    65 66  
    1 1 <%args>
    2 2
    3 3 $email => undef
    4 $etype => 'mixed'
    4 5
    5 6 </%args>
    6 7 <%init>
    … …  
    59 60 From => $emailfrom,
    60 61 $ccmail ? ( Cc => $ccmail ) : (),
    61 62 Subject => $subject,
    62 Encoding=> 'binary',
    63 # Encoding=> 'binary',
    63 64 Date => $pdate,
    64 Type => 'multipart/related;type="multipart/alternative";charset="koi8-r"',
    65 Type => ($etype eq 'mixed' ? 'multipart/mixed' : $etype eq 'related' ? 'multipart/related;type="multipart/alternative";charset="koi8-r"' : $etype),
    65 66 );
    66 67 $msg->attach(
    67 68 'Type' => 'text/html;charset="koi8-r"',