Public Function sendmail(mails As String, mailt As String) As Integer
On Error GoTo error_1
strName = "http://schemas.microsoft.com/cdo/configuration/"
Dim objEmail As Object
Set objEmail = CreateObject("CDO.Message")
objEmail.From = mailfrom '"[email protected]" 'from
'objEmail.To = "[email protected]" 'to
objEmail.To = mailto '"[email protected]" 'to
objEmail.Subject = mails '郵件主題
'objEmail.Textbody = mailt '郵件正文
objEmail.HtmlBody = mailt 'html格式發送
'qq oupgitmtklxyciej aidrphzvlfdechda
objEmail.Configuration.Fields.Item(strName & "sendusing") = 2
objEmail.Configuration.Fields.Item(strName & "smtpserver") = mailsmtp '"smtp.vip.163.com" 'smtp服務器
objEmail.Configuration.Fields.Item(strName & "smtpserverport") = mailport
objEmail.Configuration.Fields.Item(strName & "smtpauthenticate") = 1
objEmail.Configuration.Fields.Item(strName & "smtppusessl") = mailssl '是否使用ssl接連
objEmail.Configuration.Fields.Item(strName & "sendusername") = mailuser
objEmail.Configuration.Fields.Item(strName & "sendpassword") = mailpass
objEmail.Configuration.Fields.Update
objEmail.send
Set objEmail = Nothing
sendmail = 1
t1 = 0
Exit Function
error_1:
Call xlog("sendmail " & Err.Description & " " & Err.Number)
'If Err = -2147220973 Then
sendmail = 0
t1 = 0
'End If
End Function
Public Function sendmailf(mails As String, mailt As String, n As Integer) As Integer
On Error GoTo error_1
strName = "http://schemas.microsoft.com/cdo/configuration/"
Dim objEmail As Object
Set objEmail = CreateObject("CDO.Message")
objEmail.From = mailfrom '"[email protected]" 'from
'objEmail.To = "[email protected]" 'to
objEmail.To = mailto '"[email protected]" 'to
objEmail.Subject = mails '郵件主題
'objEmail.Textbody = mailt '郵件正文
objEmail.HtmlBody = mailt 'html格式發送
Select Case n
Case 1
File2.Path = "C:\bak"
objEmail.AddAttachment "C:\bak\" + File2.List(File2.ListCount - 1)
Case 2
File1.Path = "C:\bak2"
objEmail.AddAttachment "C:\bak2\skm.bmp" ' + File1.List(File1.ListCount - 1)
End Select
objEmail.Configuration.Fields.Item(strName & "sendusing") = 2
objEmail.Configuration.Fields.Item(strName & "smtpserver") = mailsmtp '"smtp.vip.163.com" 'smtp服務器
objEmail.Configuration.Fields.Item(strName & "smtpserverport") = mailport
objEmail.Configuration.Fields.Item(strName & "smtpauthenticate") = 1
objEmail.Configuration.Fields.Item(strName & "smtpusessl") = mailssl
objEmail.Configuration.Fields.Item(strName & "sendpassword") = mailpass
objEmail.Configuration.Fields.Update
objEmail.send
Set objEmail = Nothing
sendmailf = 1
t1 = 0
Exit Function
error_1:
Call xlog("sendmailf " & Err.Description & " " & Err.Number)
sendmailf = 0
' End If
End Function
這兩個發送郵件的程序，smtp服務器是smtp.vip.163.com，vip163郵箱，實際運行時，五封間隔1分鐘一封的郵件只能收到兩封帶附件的，沒帶附件的一封沒收到，有時還奇怪的收到一封不帶附件的
錯誤資訊基本都在sendmail這個程序里，err.number是－2147220973
ó?·t???÷μ?′?ê?á??óêü?￡
-2147220973
uj5u.com熱心網友回復：
不是加不加附件的事，試了其它幾個郵件加上附件一樣收不到，難道是郵件內容的事？都一樣是html表格啊uj5u.com熱心網友回復：
http://blog.sina.com.cn/s/blog_6cc953fd010190fu.html估計網路穩定性不好，微軟的網站本來訪問就慢
uj5u.com熱心網友回復：
uj5u.com熱心網友回復：
strName = "http://schemas.microsoft.com/cdo/configuration/"
難道這個是微軟的中轉？每次發郵件要先發到微軟，再用微軟的服務器發出來？
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/69965.html
標籤：VB基礎類