VB发送邮件代码（不使用任何控件）

最新推荐文章于 2024-07-11 16:57:16 发布

SkyZone_H

最新推荐文章于 2024-07-11 16:57:16 发布

阅读量6.1k

点赞数

分类专栏： Visual Basic 文章标签： vb 邮件服务器 email c

本文链接：https://blog.csdn.net/SkyZone_H/article/details/6628516

版权

该博客介绍了如何在VB中使用CDO.Message对象发送电子邮件，无需任何控件。通过设置邮件的From、To、Subject和Textbody属性，以及配置SMTP服务器和认证信息，实现了邮件的发送功能。

摘要由CSDN通过智能技术生成

On Error GoTo errinfo

NameSpace = "http://schemas.microsoft.com/cdo/configuration/"

Set Email = CreateObject("CDO.Message")

Email.From = "619123143@qq.com" '你的邮箱地址

Email.To = "495511306@qq.com" '要发往的地址

Email.Subject = "Artilect Help" '邮件主题

Email.Textbody = Text1.Text '邮件内容

'Email.AddAttachment "c:\1.txt" '附件，可以添加多个这里必须是完整本地路径例如 "c:\1.txt" 如果不需要附件可以删掉此行

With Email.Configuration.Fields

.Item(NameSpace & "sendusing") = 2

.Item(NameSpace & "smtpserver") = "smtp.qq.com" '发送邮件服务器

.Item(NameSpace & "smtpserverport") = 25

.It