VisualBasic使用CDO发送SSL加密邮件

admin

2017年10月21日 18:2 本文热度 5681

首先，在工程里引用一个COM：Microsoft CDO for Windows 2000 Library

接着他应该会自动imports俩组件，如果没有的话你自己写：

[vb] view plain copy print?

Imports CDO
Imports ADODB

代码：

[vb] view plain copy print?

Private Sub SendTestCDOMessage()
Dim cdoObj As Object
cdoObj = CreateObject("cdo.Message")
'' TODO: 使用本地SMTP服务器
''cdo.Configuration.Fields.item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
'' 设置外部SMTP服务器
cdoObj.Configuration.Fields.item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") _
= CDO.CdoSendUsing.cdoSendUsingPort
cdoObj.Configuration.Fields.item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
= "smtp.163.com"
cdoObj.Configuration.Fields.item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
= 465
cdoObj.Configuration.Fields.item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") _
= CDO.CdoProtocolsAuthentication.cdoBasic
'' 身份认证
cdoObj.Configuration.Fields.item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") _
= "bbb@163.com"
cdoObj.Configuration.Fields.item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") _
= "password"
cdoObj.Configuration.Fields.item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") _
= "true"
'' 我就是不知道应该这么写所以整了半天
cdoObj.Configuration.Fields.Update()
'' 附件
cdoObj.AddAttachment("C:\\1010.txt", "", "")
'' 邮件内容
cdoObj.To = "aaa@qq.com"
cdoObj.From = "bbb@163.com"
cdoObj.Subject = "cdo Test"
cdoObj.TextBody = "Send Email from vb.net using cdo"
'' 发送
cdoObj.Send()
cdoObj = Nothing
MsgBox("Done.")
End Sub

该文章在 2017/10/21 18:02:50 编辑过

关键字查询

加密

邮件

发送

正在查询...