我用Access 写了一段程序,希望可以发送e-mail ,但每次运行到MyMail.SendMail的时候,Log 文件中总会显示
“VB Error 53: File doesn't exist” , 没有任何错误提示,也收不到e-mail。请各位高手指点,谢谢!!! Option Compare Database Public MyMail As MailDll ' need to declare this
Public strMail As String '
Dim strToServer, strTomail, strFromMail As String
Dim strContent As String
Dim strAttachment As String '=============================
Set MyMail = New MailDll
strToServer = "scmh1.nsc.com"
strTomail = "[email protected],[email protected],[email protected]"
strFromMail = "[email protected]"
MyMail.ToServer = strToServer
MyMail.ToMail = strTomail
MyMail.FromMail = strFromMail
MyMail.ToMessage = Content & vbCrLf & "======================"
MyMail.ToSubject = Subject
MyMail.Mail_Log = CurrentProject.Path & "\ePCPerf.txt" 'Log file path
MyMail.SendMail '=============================
Set MyMail = Nothing Exit Sub ErrorHandler:
Open CurrentProject.Path & "\ePCPerf.txt" For Append As #4 'Error file path
Print #4, Err.Description
Close #4
End Sub
对了,我的OS是win2003,并且我已经做过注册:
regsvr32 "MailDLLv13.dll"
“VB Error 53: File doesn't exist” , 没有任何错误提示,也收不到e-mail。请各位高手指点,谢谢!!! Option Compare Database Public MyMail As MailDll ' need to declare this
Public strMail As String '
Dim strToServer, strTomail, strFromMail As String
Dim strContent As String
Dim strAttachment As String '=============================
Set MyMail = New MailDll
strToServer = "scmh1.nsc.com"
strTomail = "[email protected],[email protected],[email protected]"
strFromMail = "[email protected]"
MyMail.ToServer = strToServer
MyMail.ToMail = strTomail
MyMail.FromMail = strFromMail
MyMail.ToMessage = Content & vbCrLf & "======================"
MyMail.ToSubject = Subject
MyMail.Mail_Log = CurrentProject.Path & "\ePCPerf.txt" 'Log file path
MyMail.SendMail '=============================
Set MyMail = Nothing Exit Sub ErrorHandler:
Open CurrentProject.Path & "\ePCPerf.txt" For Append As #4 'Error file path
Print #4, Err.Description
Close #4
End Sub
对了,我的OS是win2003,并且我已经做过注册:
regsvr32 "MailDLLv13.dll"
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货