文件名称: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)