Perl 通过SMTP发送正文为HTML格式的邮件

Perl虽然有Net::SMTP模块可以发送邮件，但是似乎只能发送纯文本的邮件，这次的需求是将一个HTML网页直接显示在邮件正文中，因此搜索到了MIME::Lite模块来实现这个功能。

use strict;
use MIME::Lite;

my $mailhost="smtp.163.com";
my $username="test\@163.com";
my $password="test";
my $data=‘
<!DOCTYPE html>
<html>
<head>
<meta charset="UTF-8">
<title> title </title>
</head>
<body>
<p>hello world</p>
</body>
</html>
‘;
my $msg=MIME::Lite->new(
	From=>"$username",
	To=>"$username",
	Subject=>"title",
	Type=>"text/html",
	Data=>"$data"
);
$msg->send(‘smtp‘,$mailhost,AuthUser=>$username,AuthPass=>$password);

时间： 2024-08-09 14:10:12

Perl 通过SMTP发送正文为HTML格式的邮件的相关文章

python smtp 通过MIMEText类发送HTML格式的邮件

由于纯文本的邮件内容已经不能满足多样化的需求,主要介绍通过引入mail.mime的MIMEText 类来实现支持HTML格式的邮件,支持所有HTML格式的元素,包括表格,图片,动画,css样式,表单等.(参考刘老师文献) 案例中收集的是最简单的服务器硬件信息,通过smtp将信息发到收件人邮箱,大家可以根据自己的需求收集所需要的信息(比如CPU百分比,硬盘剩余百分比,内存使用百分比,并设定阈值,当硬盘剩余空间不足10%,发送邮件通知管理员及时处理) #!/usr/bin/env python #c

python3.x下 smtp发送html邮件和附件

综合网络上的文章以及自己的实验,在python的IDEL下成功的通过SMTP发送出去了邮件.现将过程记录如下: 一.准备工作: 1.安装好python3.x 2.拥有一个支持smtp服务的邮箱,我是用的126的邮箱网易和腾讯的邮箱的密码现在都变为授权码登录.需要搜集这些信息:SMTP服务器地址,你的邮箱账号,授权码. 二.思路发送HTML和带附件的邮件,我们要用到先把html文件组合到一起,做为一个整体.可以理解为作为一个邮包.然后通过SMTP协议传输出去.这个SMTP是传输协议.那么我们用

利用SMTP发送Mail详解

利用SMTP发送Mail详解分类: VC++程式开发技术杂谈 2010-01-09 11:02 4135人阅读评论(0) 收藏举报服务器headerdatesocket网络2010 在以前接触的项目中,一直都是在做网站时用到了发送mail 的功能,在asp 和.net 中都有相关的发送mail 的类, 实现起来非常简单.最近这段时间因工作需要在C++ 中使用发送mail 的功能,上网搜了一大堆资料,终于得以实现,总结自己开发过程中碰到的一些问题,希望对需的人有所帮助, 由于能力有限,

.Net Mail SMTP 发送网络邮件

刚刚迈入"开发"的行列一直有一个想法我什么时候能给我庞大的用户信息数据库给每一位用户邮箱发送推荐信息呢? 刚迈入"编程两个月的时间" 我采用 SMTP 发送网络邮件 ,先上常用的邮件服务器在上代码 /**********************************这里是邮件服务器名 POP3 协议使用POP地址 SMTP 使用SMTP*****************************************/ gmail(google.com) P

java通过smtp发送电子邮件

package com.sm.modules.oa.web; import javax.mail.Session; import javax.mail.Transport; import javax.mail.internet.InternetAddress; import javax.mail.internet.MimeMessage; import java.util.Date; import java.util.Properties; public class Send { // 发件人的

java通过SMTP发送QQ邮件(参考自龙果学院)

java通过SMTP发送QQ邮件编辑个人邮箱开通SMTP服务(进入个人邮箱,点击设置–>账户): 点击了账户后,往下拉可以看到SMTP服务选项,默认情况下这个选项是不开启的.点击开启腾讯会进行身份验证,身份验证通过以后,会收到一个用于使用SMTP的16位口令,验证身份的过程中把收到的口令保存下来,因为后面要使用SMTP功能必须要用到这个口令. 具体实现代码: public static void main(String args[]) { // 邮件内容

loadrunner 发送gzip压缩json格式（转）

转:http://blog.csdn.net/gzh0222/article/details/7711281 使用java vuser实现,发送gzip压缩json格式. /* * LoadRunner Java script. (Build: _build_number_) * * Script Description: * */ import lrapi.lr; import java.io.*; import java.io.BufferedReader; import java.io.B

在Delphi中使用indy SMTP发送gmail邮件[转]

在Delphi中使用indy SMTP发送gmail邮件[转] 2012-01-01 22:44:30| 分类: Delphi | 标签: |举报 |字号大中小订阅在Delphi中发送email很简单,发送ssl方式的gmail邮件也很简单,只要在使用的idSMTP上附加一个TIdSSLIOHandlerSocket 就可以了. 使用控件 procedure sendMail(sToMail, sSubject, sContent: String); var SMTP: TIdSMTP;

PERL Net::SMTP

#!/usr/bin/perl -w use strict; use Net::SMTP; my $to = 'toMail'; my $from = 'fromMail'; my $site = 'mail.126.com'; my $smtp_host = 'smtp.126.com'; my $pop_host = 'pop3.126.com'; my $username = "userName"; my $password = "password"; &am