关于VB用CDO发送邮件
我用CDO发送邮件，但是后来发现发送一点都不稳定，最差的情况是发送10次只有5次是成功的。请问是什么原因呢。
或者是还有什么好的方法可以保证发送邮件可以保证稳定呢？（不要安装其他控件的情况下，即其他用户使用的时候不需要安装其他控件）
以下是我的代码
Dim objEmail As ObjectDim strName As StringPrivate Sub Command2_Click() Open "D:\问卷调查.txt" For Append As #1 txtBody.Text = txtAn1 & "哈" & txtAn2 & "哈" & txtAn3 & "哈" & txtAn4 & "哈" & txtAn5 & "哈" & txtAn6 & "哈" & txtAn7 & "哈" & txtAn8 & "哈" & txtAn9 Print #1, txtBody.TextPrint #1,Close #1MsgBox "问卷结果已经保存在您的D盘，文件名是“问卷调查.txt”"EndEnd SubPrivate Sub Form_Load() strName = "http://schemas.microsoft.com/cdo/configuration/" Set objEmail = CreateObject("CDO.Message")End SubPrivate Sub Command1_Click() Me.Caption = "Sending..." Command1.Enabled = False txtBody.Text = txtAn1 & "哈" & txtAn2 & "哈" & txtAn3 & "哈" & txtAn4 & "哈" & txtAn5 & "哈" & txtAn6 & "哈" & txtAn7 & "哈" & txtAn8 & "哈" & txtAn9 objEmail.From = "harry17@sohu.com" objEmail.To = "yrkj2009@qq.com" objEmail.Subject = "收集问卷" objEmail.Textbody = txtBody.Text objEmail.Configuration.Fields.Item(strName & "sendusing") = 2 objEmail.Configuration.Fields.Item(strName & "smtpserver") = "smtp.sohu.com" objEmail.Configuration.Fields.Item(strName & "smtpserverport") = 25 objEmail.Configuration.Fields.Item(strName & "smtpauthenticate") = 1 objEmail.Configuration.Fields.Item(strName & "sendusername") = Left("harry17@sohu.com", InStr("harry17@sohu.com", "@") - 1) objEmail.Configuration.Fields.Item(strName & "sendpassword") = "XXXXX" objEmail.Configuration.Fields.Update objEmail.Send Command1.Enabled = True Me.Caption = "Send OK!" MsgBox "再次感谢您的参与,再见！^_^" EndEnd Sub