vb6测试过程
Private Sub cmdIMail_Click() On Error Resume Next Dim objServer As New IMailServer cmdIMail.Enabled = False 'objServer.Connect GetHostName, txtIMailUserName.Text, txtIMailPassWord.Text objServer.Connect "thinkpad-x22", "root@talkcn.com", "test" If Err.Number = 0 Then MsgBox "连接成功", vbInformation, "IMail连接测试" Else MsgBox "连接失败", vbExclamation, "IMail连接测试" End If cmdIMail.Enabled = True Err.Clear End Sub
发表评论:
名称(*)
邮箱
网站链接
验证(*)
正文(*)(留言最长字数:1000)
记住我,下次回复时不用重新输入个人信息
◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。