LOGO OA教程 ERP教程 模切知识交流 PMS教程 CRM教程 开发文档 其他文档  
 
网站管理员

VisualBasic使用CDO发送SSL加密邮件

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

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

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

  1. Imports CDO  
  2. Imports ADODB  

代码:

  1. Private Sub SendTestCDOMessage()  
  2.     Dim cdoObj As Object  
  3.     cdoObj = CreateObject("cdo.Message")  
  4.   
  5.   
  6.     '' TODO: 使用本地SMTP服务器  
  7.     ''cdo.Configuration.Fields.item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1  
  8.   
  9.   
  10.     '' 设置外部SMTP服务器  
  11.     cdoObj.Configuration.Fields.item _  
  12.         ("http://schemas.microsoft.com/cdo/configuration/sendusing") _  
  13.         = CDO.CdoSendUsing.cdoSendUsingPort  
  14.   
  15.   
  16.     cdoObj.Configuration.Fields.item _  
  17.         ("http://schemas.microsoft.com/cdo/configuration/smtpserver") _  
  18.         = "smtp.163.com"  
  19.   
  20.   
  21.     cdoObj.Configuration.Fields.item _  
  22.         ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _  
  23.         = 465  
  24.   
  25.   
  26.     cdoObj.Configuration.Fields.item _  
  27.         ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") _  
  28.         = CDO.CdoProtocolsAuthentication.cdoBasic  
  29.   
  30.   
  31.     '' 身份认证  
  32.     cdoObj.Configuration.Fields.item _  
  33.         ("http://schemas.microsoft.com/cdo/configuration/sendusername") _  
  34.         = "bbb@163.com"  
  35.     cdoObj.Configuration.Fields.item _  
  36.         ("http://schemas.microsoft.com/cdo/configuration/sendpassword") _  
  37.         = "password"  
  38.     cdoObj.Configuration.Fields.item _  
  39.         ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") _  
  40.         = "true"  
  41.   
  42.   
  43.     '' 我就是不知道应该这么写所以整了半天  
  44.     cdoObj.Configuration.Fields.Update()  
  45.   
  46.   
  47.     '' 附件  
  48.     cdoObj.AddAttachment("C:\\1010.txt""""")  
  49.   
  50.   
  51.     '' 邮件内容  
  52.     cdoObj.To = "aaa@qq.com"  
  53.     cdoObj.From = "bbb@163.com"  
  54.     cdoObj.Subject = "cdo Test"  
  55.     cdoObj.TextBody = "Send Email from vb.net using cdo"  
  56.   
  57.   
  58.     '' 发送  
  59.     cdoObj.Send()  
  60.   
  61.   
  62.     cdoObj = Nothing  
  63.     MsgBox("Done.")  
  64. End Sub  

该文章在 2017/10/21 18:02:50 编辑过
关键字查询
相关文章
正在查询...
点晴ERP是一款针对中小制造业的专业生产管理软件系统,系统成熟度和易用性得到了国内大量中小企业的青睐。
点晴PMS码头管理系统主要针对港口码头集装箱与散货日常运作、调度、堆场、车队、财务费用、相关报表等业务管理,结合码头的业务特点,围绕调度、堆场作业而开发的。集技术的先进性、管理的有效性于一体,是物流码头及其他港口类企业的高效ERP管理信息系统。
点晴WMS仓储管理系统提供了货物产品管理,销售管理,采购管理,仓储管理,仓库管理,保质期管理,货位管理,库位管理,生产管理,WMS管理系统,标签打印,条形码,二维码管理,批号管理软件。
点晴免费OA是一款软件和通用服务都免费,不限功能、不限时间、不限用户的免费OA协同办公管理系统。
Copyright 2010-2024 ClickSun All Rights Reserved