VB发邮件（只要发送）源码有哪些？
1个回答
展开全部
jmail组件发邮件看能不能达到你的满意~： Sub SendMail()
Dim jmail As Object
Set jmail = CreateObject("JMAIL.Message") ';建立发送邮件地对象
jmail.Silent = True ''一般不用改
jmail.Charset = "gb2312" ''信件地语言编码
jmail.ContentType = "text/html" ''信件地格式html或纯文本
jmail.From = "****@163.com" ''发信人邮箱
jmail.FromName = "****" ''发信人姓名
jmail.Subject = "" ''信件主题
jmail.AddRecipient "****" ''收信人地址
jmail.Body = "" ''信件正文
jmail.MailServerUserName = "****" ''服务器登陆用户名(您地邮件地址)
jmail.MailServerPassWord = "****" ''服务器登陆密码(您地邮件密码)
jmail.Send ("smtp.163.com") ''服务器地址
jmail.Close
Set jmail = Nothing
End Sub
Dim jmail As Object
Set jmail = CreateObject("JMAIL.Message") ';建立发送邮件地对象
jmail.Silent = True ''一般不用改
jmail.Charset = "gb2312" ''信件地语言编码
jmail.ContentType = "text/html" ''信件地格式html或纯文本
jmail.From = "****@163.com" ''发信人邮箱
jmail.FromName = "****" ''发信人姓名
jmail.Subject = "" ''信件主题
jmail.AddRecipient "****" ''收信人地址
jmail.Body = "" ''信件正文
jmail.MailServerUserName = "****" ''服务器登陆用户名(您地邮件地址)
jmail.MailServerPassWord = "****" ''服务器登陆密码(您地邮件密码)
jmail.Send ("smtp.163.com") ''服务器地址
jmail.Close
Set jmail = Nothing
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
摩杜云
2024-07-09 广告
判断一个发送邮件api公司的好坏，不只是看价格，还要考虑很多因素。建议可以多对比几个看看。您可以到摩杜云了解下。摩杜云成立于2019年，依托于公司多年技术沉淀和强大的云计算研发实力，面向全世界各个国家和地区、企业组织和个人开发者,提供全球的...
点击进入详情页
本回答由摩杜云提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
