function SendMail(SMTPServer,sender,mailto,subject,msg)'这个是一个函数,在程序中可以直接调用。
dim JMail
'on error resume next
'等待功能扩充
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.LazySend = true '这个属性是将邮件放入缓冲直至发出为止,的不到任何的错误信息
JMail.Charset = "gb2312" '设定邮件的字符集,默认为"US-ASCII" 一般中文用"gb2312"
JMail.ContentType = "text/html" '这个邮件的头设置, 默认为 "text/plain" 能设置成你需要的任何情况。 '你想发送HTML信息,改这个头文件为 "text/html"
JMail.ServerAddress =SMTPServer 'SERVER的地址。可以有很多的SERVER地址,后可跟端口号
JMail.Sender = sender'邮寄的地址
JMail.Subject = subject'邮件的标题。
JMail.AddRecipient mailto'加入一个收件者
JMail.Body = msg 'UBBCode(htmlencode(MSG))E-Mail的主体
JMail.Priority = 1'邮件的优先级,可以范围从1到5。越大的优先级约高,比如,5最高,1最低,一般设置为3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")'addheader加入一个头信息'remote_addr发出请求的机器的IP地址
JMail.Execute'执行邮件发送到SERVER
set jMail=nothing
if err then '检测
SendMail=err.description
err.clear
else
SendMail="OK"
end if
end function
dim JMail
'on error resume next
'等待功能扩充
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.LazySend = true '这个属性是将邮件放入缓冲直至发出为止,的不到任何的错误信息
JMail.Charset = "gb2312" '设定邮件的字符集,默认为"US-ASCII" 一般中文用"gb2312"
JMail.ContentType = "text/html" '这个邮件的头设置, 默认为 "text/plain" 能设置成你需要的任何情况。 '你想发送HTML信息,改这个头文件为 "text/html"
JMail.ServerAddress =SMTPServer 'SERVER的地址。可以有很多的SERVER地址,后可跟端口号
JMail.Sender = sender'邮寄的地址
JMail.Subject = subject'邮件的标题。
JMail.AddRecipient mailto'加入一个收件者
JMail.Body = msg 'UBBCode(htmlencode(MSG))E-Mail的主体
JMail.Priority = 1'邮件的优先级,可以范围从1到5。越大的优先级约高,比如,5最高,1最低,一般设置为3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")'addheader加入一个头信息'remote_addr发出请求的机器的IP地址
JMail.Execute'执行邮件发送到SERVER
set jMail=nothing
if err then '检测
SendMail=err.description
err.clear
else
SendMail="OK"
end if
end function
解决方案 »
- 为什么提示:MsgBox "请正确安装EXCEL或检查打印机状况!",
- 如何调用第二个窗体
- 用ActiveReports做报表打包问题
- 急!给高分!!
- 使用comdlg32.dll的详细资料,谁能共享出来。
- 在使用VB6的报表打印工资条时(就是那种两边有孔的那种)。在打印设置里:设为--横着打与纵着打,打印结果都是纵着打的。是出了什么问
- 怎样才能不让msgbox以独占方式打开?
- 打開其它窗體后原窗體要中斷執行
- installshield2000反安装问题!
- 从客户端上传文件到web服务器端,用vb程序实现,请各位能人义士多帮帮忙呀!!尽快,很急!!
- 是否可以用api中的loadcursorfromfile和setcursor加载动态鼠标
- 如何将dbgrid控件显示的字段名称提取出来放在字符串数组中?着急!
这一句:JMail.ContentType = "text/html"
如果我设置成了这种类型以后,邮件的主题和正文就变成了乱码
我加上jMail.Charset = "gb2312"正文恢复了,但是主题没有改变还是乱码。
Set msg = New Message
With msg
Msg1.Charset = "gb2312"
Msg1.ContentType = "multipart/html"
.Charset = "gb2312"
.Subject = Msg1.Subject
.HTMLBody = Msg1.HTMLBody
End With转换以后收到的邮件正文部分一切正常,但是它的subject却是乱码不能正常显示,很奇怪的事情,如果发送普通的文本邮件而不是html格式的,接收到邮件的subject就是正常中文字体