VB代码自动发送邮件

时间:2016-04-01 09:46:14
【文件属性】:

文件名称:VB代码自动发送邮件

文件大小:2KB

文件格式:RAR

更新时间:2016-04-01 09:46:14

VB 自动发送 邮件

VB代码自动发送邮件 Me.Visible = False Dim objEmail As Object Set objEmail = CreateObject("CDO.Message") objEmail.From = "elcasyc530@163.com" objEmail.Subject = "调查资料" 'objEmail.To = InputBox("请修改接收数据的邮箱名", "getch", "***@163.com") objEmail.To = "***@163.com"


【文件预览】:
自动发送邮件
----Form1.frm(2KB)
----hzwlbox.vbw(52B)
----MSSCCPRJ.SCC(192B)
----hzwlbox.vbp(715B)

网友评论

  • 感谢分享,无私奉献
  • 很好用,可以借鉴
  • 好用好用!项目已成功
  • 有点复杂亲
  • 感谢楼主提供代码,很好用!!
  • 非常有用,用起来也很方便