最近公司的maillist更新了,我之前用perl sendmail package不好用了,不知道为何会导致退信。
该脚本是用的Net::SMTP和MIME::Base64两模块,挺好用的,文件内容用base64编码过的,可以带附件。
改用MIME::Lite模块后就把问题解决了,舒坦。
要注意的是两者的发送方写法不一样,上面例子中的$smtp->recipient (@receivor); 可以接受数组
而在MIME::Lite中,就用$to就可以了,$to中的邮件名用逗号分开就可以了。
上面的方法发送的是text形式的邮件,发html的时候会有问题,需改成一下方式发送。 将html的内容进行base64加密,不然会出现”! “这样的乱码。