28,391
社区成员
发帖
与我相关
我的任务
分享
''发送电子邮件函数
'siteEmail 发送方邮箱
'smtp 邮箱主机地址
'emailUserName 邮箱用户名
'emailUserPWD 邮箱密码
'inceptEmail 接受邮件的邮箱地址
'sendName 发送人的名称
'sendTitle 邮件标题
'sendContent 邮件正文
sub EmailSend(siteEmail,smtp,emailUserName,emailUserPWD,inceptEmail,sendName,sendTitle,sendContent)
dim jmail
set jmail = CreateObject ("jmail.message") ''创建对象
jmail.Silent = true ''一般不用改
jmail.Charset = "gb2312" ''信件的语言编码
jmail.ContentType = "text/html" ''信件的格式html或纯文本
jmail.From = siteEmail ''发信人邮箱
jmail.FromName = sendName ''发信人姓名
jmail.Subject = sendTitle ''信件主题
jmail.AddRecipient inceptEmail ''收信人地址
jmail.Body = sendContent ''信件正文
jmail.MailServerUserName = emailUserName ''服务器登陆用户名(您的邮件地址)
jmail.MailServerPassWord = emailUserPWD ''服务器登陆密码(您的邮件密码)
jmail.Send(smtp) ''服务器地址
jmail.Close
set jmail = nothing
end sub