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