亚洲视频自拍偷拍,精品国产免费人成网站,91丝袜高跟

admin

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

首先，在工程里引用一個(gè)COM：Microsoft CDO for Windows 2000 Library

接著他應(yīng)該會(huì)自動(dòng)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服務(wù)器
''cdo.Configuration.Fields.item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
'' 設(shè)置外部SMTP服務(wù)器
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
'' 身份認(rèn)證
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"
'' 我就是不知道應(yīng)該這么寫所以整了半天
cdoObj.Configuration.Fields.Update()
'' 附件
cdoObj.AddAttachment("C:\\1010.txt", "", "")
'' 郵件內(nèi)容
cdoObj.To = "aaa@qq.com"
cdoObj.From = "bbb@163.com"
cdoObj.Subject = "cdo Test"
cdoObj.TextBody = "Send Email from vb.net using cdo"
'' 發(fā)送
cdoObj.Send()
cdoObj = Nothing
MsgBox("Done.")
End Sub

該文章在 2017/10/21 18:02:50 編輯過

關(guān)鍵字查詢

加密

郵件

發(fā)送

相關(guān)文章

正在查詢...

狠狠色丁香婷婷综合尤物/久久精品综合一区二区三区/中国有色金属学报/国产日韩欧美在线观看 - 国产一区二区三区四区五区tv