法一:先建議用殺軟掃描你PC 看是否有病毒
成都創(chuàng)新互聯(lián)公司2013年至今,先為清河等服務(wù)建站,清河等地企業(yè),進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為清河企業(yè)網(wǎng)站制作PC+手機(jī)+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問題。
法二(可能性更大):你可能遭到“backscatter"類型的垃圾郵件攻擊 你這種情況有可能是
攻擊者向微軟發(fā)送個(gè)根本無法接受成功的地址 但回復(fù)地址卻是寫著你的郵件地址 所以你會(huì)收到
N多微軟發(fā)送的“未送達(dá)”郵件通知(其實(shí)你從沒有發(fā)送過)不過這種攻擊一般持續(xù)時(shí)間很短且都是隨機(jī)性的 不大會(huì)超過一周的 因?yàn)楣粽甙l(fā)現(xiàn)你不去搭理他的郵件 便會(huì)把你從攻擊列表中去除 去尋找下個(gè)獵物
對(duì)付這種情況 從客戶端層面上 暫時(shí)沒啥好辦法 我能想到的只有做條郵件規(guī)則 暫時(shí)把這些進(jìn)來郵件移至他出
兩個(gè)原因
相信樓主不會(huì)發(fā)生 地址錯(cuò)誤的低級(jí)錯(cuò)誤
1,網(wǎng)速不穩(wěn)定 發(fā)送文件未能及時(shí)收到信息 發(fā)生延遲有的甚至丟失
2,文件內(nèi)容過多引起的 郵箱不支持超過最大容量的現(xiàn)象建議分幾部分發(fā)送
郵件發(fā)送失敗應(yīng)檢查郵箱設(shè)置:
1、打開outlook;
2、點(diǎn)擊文件選項(xiàng)卡;
3、點(diǎn)擊賬戶設(shè)置;
4、雙擊已設(shè)置的郵箱賬戶;
5、檢查郵箱賬戶密碼、服務(wù)器設(shè)置;
6、點(diǎn)擊其他設(shè)置,點(diǎn)擊發(fā)送服務(wù)器選項(xiàng)卡,檢查發(fā)送服務(wù)器設(shè)置;
7、點(diǎn)擊高級(jí)選項(xiàng)卡,檢查服務(wù)器端口設(shè)置。
發(fā)生這種情況的多半原因?qū)Ψ洁]箱的服務(wù)器或者網(wǎng)絡(luò)不正常才導(dǎo)致無法將你發(fā)送的郵件正確送達(dá),等一會(huì)兒在發(fā)送或者換一個(gè)郵箱試試...
出錯(cuò)的原因是:
Const Email_From = "郵箱" ?應(yīng)改為具體的郵箱:如:12345678@qq.com
Const Email_To = "收件郵箱" 應(yīng)改為具體的郵箱:如:12345678@qq.com
修改后的代碼:
Private Sub Command1_Click()
Dim CDO As Object
Const Email_From = "123@qq.com" '請(qǐng)修改
Const Password = "123456"'請(qǐng)修改
Const Email_To = "123@qq.com"'請(qǐng)修改
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 "無法發(fā)送郵件:" Err.Description
Else
? ?MsgBox "郵件發(fā)送成功", vbInformation
End If
End Sub