【文件属性】：
文件名称：VB 发送邮件
文件大小：2KB
文件格式：RAR
更新时间：2016-11-21 15:29:13
VB 邮件 Email
VB 发送邮件
Option Explicit
Dim WebAddr$, Email
Private Sub Command1_Click()
WebAddr = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "youxiangdizhi@163.com" '你的邮箱地址
Email.To = "fawangdedizhi@163.com" '要发往的地址
Email.Subject = "你好这是测试" '主题
【文件预览】：
邮件发送器
----工程1.vbw(51B)
----MSSCCPRJ.SCC(190B)
----Form1.frx(784B)
----Form1.frm(2KB)
----工程1.vbp(641B)
----工程1.csi(146B)