发现一个发送mime邮件的类2

发现一个发送mime邮件的类2

- 中国WEB开发者网络 (http://www.webasp.net)
-- 技术教程 (http://www.webasp.net/article/)
--- 发现一个发送mime邮件的类2 (http://www.webasp.net/article/7/6056.htm)

-- 作者：未知
-- 发布日期： 2003-07-26

<?php

/*
    include "mime_mail.inc";

    $filename     = "testfile.jpg";
    $content_type = "image/jpeg";

    # 讀取磁碟裡的 JPEG 圖形
    $fd = fopen($filename, "r");
    $data = fread($fd, filesize($filename));
    fclose($fd);

    # 建立物件實體
    $mail = new mime_mail;

    # 設定所有項目
    $mail->from    = "your@address.com";
    $mail->to      = "recipient@remote.net";
    $mail->subject = "歡迎！";
    $mail->body    = "這是真正的電子郵件訊息，
                      當然....你可以寫成一行以上。";
    # 加上附檔
    $mail->add_attachment($data, $filename, $content_type);

    # 送出電子郵件
    $mail->send();
*/
?>

<HTML>
<BODY>
<?
    // by Hsu
    if (!preg_match("!^(http://)?" . getenv("SERVER_NAME") . "!", getenv("HTTP_REFERER")) ||
        !preg_match("/^.+@.+\..+/", $myemail)) {

        echo "<FORM ACTION=\"$PHP_SELF\" METHOD=\"post\">\n";
        echo "Your E-Mail addr: <INPUT TYPE=\"text\" NAME=\"myemail\" SIZE=\"30\">\n";
        echo "<INPUT TYPE=\"submit\" VALUE=\"寄件測試（含附件）\">\n";
        echo "</FORM>\n";

    } else {

        include "mime_mail.inc";

        $filename     = "php_logo.gif";
        $content_type = "image/gif";

        # 讀取磁碟裡的 JPEG 圖形
        $fd = fopen($filename, "r");
        $data = fread($fd, filesize($filename));
        fclose($fd);

        # 建立物件實體
        $mail = new mime_mail;

        # 設定所有項目
        $mail->from    = $myemail;
        $mail->to    = $myemail;
        $mail->subject    = "歡迎！";
        $mail->body    = "這是真正的電子郵件訊息，\n" .
                  "當然....你可以寫成一行以上。";
        # 加上附檔
        $mail->add_attachment($data, $filename, $content_type);

        # 送出電子郵件
        $mail->send();
        echo "郵件已送出，請檢查您的信箱。";
    }
?>
</BODY>
</HTML>

webasp.net