用PHP来自动发带附件的Email
我在做CS1010（Programming Methodology）的Tutor，其中一个任务是给学生作业判分，然后把判分的结果发给学生。学生作业在我电脑里面folder的结构是：题号->学生学号->题目;其中题目为C code，有时候有其它的Tutor用Word判分之后会把结果发给我。
为了保护学生隐私，我需要分别给每个学生发送他的成绩，附上他的批改过的作业作为附件。于是，我可以用电脑来做这个重复而且麻烦的事情。
这里用的是PHP，以及它的Pear组件中的Pear_mail (用来发送email)，和pear_mime（用来给email加入附件）。学生的email就是学生学号@学校网址。
code见下（这里居然不能用PHP后缀作为附件！应该是因为怕上传上去自动执行PHP吧~）。我觉得这是一次很好的Programming Practice——把一些编程技巧拿来解决实际问题。
<?php
// basic email settings
require_once "Mail.php";
require_once "Mail/mime.php";
$params = array(
'host' => "ssl://smtp.gmail.com",
'port' => "465",
'auth' => true,
'username' => "something@gmail.com", // CONFIG your username comes here
'password' => "Your Password", // CONFIG and your password
);
$from = "something@gmail.com"; // CONFIG your email address
$cc = "something@gmail.com"; // CONFIG the cc address -- put your address so that you can confirm that the email has been sent successfully
$subject = " PE Mark";
$body = // CONFIG: the message you want to pass to your student, it's in the HTML format
"<p>Please Check the attachment(the word file) for your PE1 Mark. I didn't mark your PE but the graders are following the same scheme. If you have any problem with it, please email me.</p></br><p>Regards, </p> <p>Your Name</p>";
// Generate the location array
$markLoc = "../PE_DG4"; // CONFIG: the file location of the folder storing ex1, ex2, ...
$regEx = "/^ex\\d$/";
$regMatrix = "/^\\d+$/";
$regWord = "/\\.docx$/";
$regCProg = "/\\.c$/";
// location str:
$loc = array();
$fileNameArr = array($markLoc);
foreach(scandir($markLoc) as $exName){
if(!preg_match($regEx,$exName)) continue;
array_push($fileNameArr,$exName);
foreach(scandir(implode("/",$fileNameArr)) as $matrixNum){
if(!preg_match($regMatrix,$matrixNum))continue;
if(!array_key_exists($matrixNum,$loc))$loc[$matrixNum] = array();
array_push($fileNameArr,$matrixNum);
foreach(scandir(implode("/",$fileNameArr)) as $file){
if(preg_match($regWord,$file)){
array_push($fileNameArr,$file);
$loc[$matrixNum][] = implode("/",$fileNameArr);
array_pop($fileNameArr);
} else if(preg_match($regCProg,$file)){
array_push($fileNameArr,$file);
$loc[$matrixNum][] = implode("/",$fileNameArr);
array_pop($fileNameArr);
}
}
array_pop($fileNameArr);
}
array_pop($fileNameArr);
}
// then send out emails to each specific student
foreach($loc as $matrix => $files){
$message = new Mail_mime();
$message->setHTMLBody($body);
// add in attachment here
foreach($files as $file){
$message->addAttachment($file);
}
$to = $matrix."@nus.edu.sg";
$headers = array(
'From'=> $from,
'Reply-to' => $from,
'To' => $to,
'Cc' => $cc,
'Subject' => $subject,
);
$msgContent = $message->get();
$msgHeader = $message->headers($headers);
$smtp = Mail::factory('smtp',$params);
$mail = $smtp->send($to.",".$cc,$msgHeader,$msgContent);
if(PEAR::isError($mail)){
echo "Error: ".$mail->getMessage()."\n";
} else{
echo "Message Sent Successfully to: $to\n";
}
}
?>
页:
[1]