法一：先建议用杀软扫描你PC 看是否有病毒
成都创新互联公司2013年至今，先为清河等服务建站，清河等地企业，进行企业商务咨询服务。为清河企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
法二（可能性更大）：你可能遭到“backscatter"类型的垃圾邮件攻击 你这种情况有可能是
攻击者向微软发送个根本无法接受成功的地址 但回复地址却是写着你的邮件地址 所以你会收到
N多微软发送的“未送达”邮件通知（其实你从没有发送过）不过这种攻击一般持续时间很短且都是随机性的 不大会超过一周的 因为攻击者发现你不去搭理他的邮件 便会把你从攻击列表中去除 去寻找下个猎物
对付这种情况 从客户端层面上 暂时没啥好办法 我能想到的只有做条邮件规则 暂时把这些进来邮件移至他出
两个原因
相信楼主不会发生 地址错误的低级错误
1，网速不稳定 发送文件未能及时收到信息 发生延迟有的甚至丢失
2，文件内容过多引起的 邮箱不支持超过最大容量的现象建议分几部分发送
邮件发送失败应检查邮箱设置：
1、打开outlook；
2、点击文件选项卡；
3、点击账户设置；
4、双击已设置的邮箱账户；
5、检查邮箱账户密码、服务器设置；
6、点击其他设置，点击发送服务器选项卡，检查发送服务器设置；
7、点击高级选项卡，检查服务器端口设置。
发生这种情况的多半原因对方邮箱的服务器或者网络不正常才导致无法将你发送的邮件正确送达，等一会儿在发送或者换一个邮箱试试...
出错的原因是：
Const Email_From = "邮箱" 应改为具体的邮箱：如：12345678@qq.com
Const Email_To = "收件邮箱" 应改为具体的邮箱：如：12345678@qq.com
修改后的代码：
Private Sub Command1_Click()
Dim CDO As Object
Const Email_From = "123@qq.com" '请修改
Const Password = "123456"'请修改
Const Email_To = "123@qq.com"'请修改
Set CDO = CreateObject("CDO.Message")
CDO.Subject = "From Demon wang "
CDO.From = Email_From
CDO.To = Email_To
CDO.TextBody = "Hello world!"
'cdo.AddAttachment = "C:\hello.txt"
Const schema = ""
With CDO.Configuration.Fields
.Item(schema "sendusing") = 2
.Item(schema "smtpserver") = "smtp.qq.com"
.Item(schema "smtpauthenticate") = 1
.Item(schema "sendusername") = "123" '注意：是123，而不是Email_From
.Item(schema "sendpassword") = Password
.Item(schema "smtpserverport") = 25
.Item(schema "smtpusessl") = True
.Item(schema "smtpconnectiontimeout") = 60
.Update
End With
CDO.Send
If Err.Number 0 Then
MsgBox "无法发送邮件：" Err.Description
Else
MsgBox "邮件发送成功", vbInformation
End If
End Sub
