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"
1