关于VB用CDO发送邮件
我用CDO发送邮件，但是后来发现发送一点都不稳定，最差的情况是发送10次只有5次是成功的。请问是什么原因呢。
或者是还有什么好的方法可以保证发送邮件可以保证稳定呢？（不要安装其他控件的情况下，即其他用户使用的时候不需要安装其他控件）
以下是我的代码
VB code:
Dim objEmail As Object
Dim strName As String
Private Sub Command2_Click()
Open "D:\问卷调查.txt" For Append As #1
txtBody.Text = txtAn1 & "哈" & txtAn2 & "哈" & txtAn3 & "哈" & txtAn4 & "哈" & txtAn5 & "哈" & txtAn6 & "哈" & txtAn7 & "哈" & txtAn8 & "哈" & txtAn9
Print #1, txtBody.Text
Print #1,
Close #1
MsgBox "问卷结果已经保存在您的D盘，文件名是“问卷调查.txt”"
End
End Sub
Private Sub Form_Load()
strName = "http://schemas.microsoft.com/cdo/configuration/"
Set objEmail = CreateObject("CDO.Message")
End Sub
Private Sub Command1_Click()
Me.Caption = "Sending..."
Command1.Enabled = False
txtBody.Text = txtAn1 & "哈" & txtAn2 & "哈" & txtAn3 & "哈" & txtAn4 & "哈" & txtAn5 & "哈" & txtAn6 & "哈" & txtAn7 & "哈" & txtAn8 &
相关问答：
希望大家能够帮我下.感谢了..
源码传在大米盘 VB6 的源码 http://www.damipan.com/file/3wNoKLW.html
转为VB.NET源码.
小弟完全是新手 不懂的说.麻烦各位帮忙一下
我的EMAIL是:4452 ......
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害，回答基本都是爆料级的
大胡子升级真快啊，这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......
为什么我用form.show和form.hide多次连接了两个窗口只能互换链接两次啊？
代码看看
照道理form.show 没次数限定的吧
我也快疯了。
楼主知道怎么发贴么？
引用
我也快疯了。
楼主知道怎么发贴么？
楼主也 ......
为什么我想循环自动发送邮件的时候,就只有第一封能自动发送,其它后面的邮件都只能创建,不能自动发送
Private Sub send_mail_Click() '发送邮件通知
Do While Not TDBG_Dept.EOF
If A> ......
现在我想根据treeview上每个节点的权限，没有权限的节点不能被选中，而且成灰色，怎么实现，在线等。。。
这个？。。。
貌似没法。
试试能不能改某些node的颜色，记录下上次的nodeclick里的node。
下次点击的如� ......
