如何使用带附件的PEAR Mail包发送带有PHP的电子邮件

pear install Mail

<?php
require_once "Mail.php";

// 邮件发送者和接收者的电子邮件地址
$from = "sender@example.com";
$to = "recipient@example.com";

// 邮件主题和正文
$subject = "带附件的电子邮件";
$body = "这是一封带附件的电子邮件。";

// 附件的文件路径
$attachment_path = "/path/to/attachment.pdf";

// 创建邮件头部信息
$headers = array(
    'From' => $from,
    'To' => $to,
    'Subject' => $subject
);

// 创建邮件正文
$mime_boundary = "----=_NextPart_000_0001_01C89B7A.8E8F6010";
$headers['Content-Type'] = "multipart/mixed; boundary=\"$mime_boundary\"";
$message = "--$mime_boundary\r\n";
$message .= "Content-Type: text/plain; charset=ISO-8859-1\r\n";
$message .= "Content-Transfer-Encoding: 7bit\r\n";
$message .= "\r\n";
$message .= $body . "\r\n";
$message .= "--$mime_boundary\r\n";
$message .= "Content-Type: application/octet-stream; name=\"" . basename($attachment_path) . "\"\r\n";
$message .= "Content-Transfer-Encoding: base64\r\n";
$message .= "Content-Disposition: attachment; filename=\"" . basename($attachment_path) . "\"\r\n";
$message .= "\r\n";
$message .= chunk_split(base64_encode(file_get_contents($attachment_path))) . "\r\n";
$message .= "--$mime_boundary--\r\n";

// 发送邮件
$smtp = Mail::factory('smtp', array(
    'host' => 'smtp.example.com',
    'port' => '587',
    'auth' => true,
    'username' => 'username',
    'password' => 'password'
));

$mail = $smtp->send($to, $headers, $message);

if (PEAR::isError($mail)) {
    echo '邮件发送失败：' . $mail->getMessage();
} else {
    echo '邮件发送成功！';
}