寻一段VB代码，功能：给出发信箱、用户名、SMTP服务器，验证一下填写是否正确，即是否能正常发信

千问 · 2011-4-6 07:21:12

<pre id=\"best-answer-content\" class=\"reply-text mb10\">l iceSendMail 邮件发送vb版
<a href=\"http://dl.icese.net/src.php?f=iceSendMail.src.rar\" target=\"_blank\">http://dl.icese.net/src.php?f=iceSendMail.src.rar</a>

<h4 class=\"ask\">追问

<pre class=\"replyask-text\" id=\"content-3693302\">不是要发送邮件，只是检测一下发信箱、用户名、SMTP服务器是否填写正确，可以正常发邮件

千问 · 2011-4-6 07:21:12

<pre class=\"replyask-text\" id=\"content-3693633\">用字符串查找即可
发信箱看有没有@和点.即可
用户名、字母数字个别标点符号为合法
SMTP服务器看有没有点.即可

千问 · 2011-4-6 07:21:12

<pre class=\"replyask-text\" id=\"content-3693742\">不是简单的查看格式是否正确，还要探测是否可以正常发信，只要验证一下可以正常发信即可。网页版本的类似 <a href=\"http://www.beloveoo.com\" target=\"_blank\">http://www.beloveoo.com</a> ，写好发信箱、用户名、SMTP服务器，验证一下是否可以正常发信。

千问 · 2011-4-6 07:21:12

<pre class=\"replyask-text\" id=\"content-3694164\">extern \"C\" __declspec(dllexport)
int WINAPI icePub_smtpAuth(unsigned int *handleSocket,char *strusername,char *strpwd,char *strsmtpsever,int port)

把上边vc函数改成vb的声明即可
retCode = icePub_smtpAuth(sock_Client, strUsername, strPassword, strSmtpServer,25);
if retCode = 0 Then
\'ok
endif

\'dll就用上边下载的即可

晕倒，dll得用新版...

<a href=\"http://dl.icese.net/dev.php?f=icePubDll.rar\" target=\"_blank\">http://dl.icese.net/dev.php?f=icePubDll.rar</a>
下载即可

千问 · 2011-4-6 07:21:12

<pre class=\"replyask-text\" id=\"content-3694763\">高手，可以留下QQ吗，加你详细请教一下

千问 · 2011-4-6 07:21:12

<pre class=\"replyask-text\" id=\"content-3695308\">冒汗，找俺朋友吧,正宗icepubdll专家，8 7 7 4 8 5 3 6 7-龙芯发烧友

这样，你重新下载<a href=\"http://dl.icese.net/dev.php?f=icePubDll.rar\" target=\"_blank\">http://dl.icese.net/dev.php?f=icePubDll.rar</a>

Private Declare Function icePub_checkSmtp Lib \"icePubDll.dll\" (ByVal strusername As String, ByVal strPassword As String, ByVal strSmtpServer As String) As Integer

Dim a2 As Integer

a2 = icePub_checkSmtp(\"ahuinuli\", \"112233\", \"smtp.tom.com\")
if a2 = 0 then
\'ok
endif

\'即可完成检测