说明: 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"
<elcasyc520> 上传 | 大小:2kb