&

admin

2017年10月21日 18:2 本文熱度 6001

首先，在工程里引用一個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 編輯過

關鍵字查詢

加密

郵件

發送

正在查詢...