7,763
社区成员
发帖
与我相关
我的任务
分享
Function JmailSend(Subject, HtmlBody, MailTo)
Dim JmailMsg As New jmail.Message
Dim duix As New Attachment
With JmailMsg
.Encoding = "GBK"
.MailServerUserName = "yk000" 'smtp 验证用户名
.MailServerPassWord = "111111" 'smtp 验证密码
.AddRecipient MailTo '"yk000@sina.com" '收件人
' .AddRecipientCC "yk000@sina.com" '抄送
' .AddRecipientBCC "broodwar@2911.net" '暗送
.From = "yk000@163.com"
.FromName = "库存警报"
.Charset = "GBK"
.ContentType = "text/html"
'.Priority = 1 '重要级别
.Logging = True '为 True,可用 JmailMsg.Log 获得与服务器交互的详细日志信息
.Silent = True '为 True,出错时会有 JmailMsg.ErrorMessage 回送消息
.Subject = Subject '设置邮件标题
'.Body = HtmlBody '作为纯文本内容发送,设置 Body 属性
.HtmlBody = HtmlBody '用这个可以发送 Html 内容
.AddAttachment "d:\总表.xls" '发送附件
If .Send("smtp.163.com") Then '指定邮件服务器
JmailSend = "发送成功"
Else
JmailSend = JmailMsg.ErrorMessage
End If
MsgBox JmailMsg.Log
duix.SaveToFile
.Close
End With
Set JmailMsg = Nothing
End Function