VB的实时问题！

Question

第一：这个程序必须是轮流检测库的，也就是时实的。可能用TIMER就可以做到。第二：就是这个程序在检测库的同时要对库进行操作改值。这也好做。最后就是，检测后对该库中的信箱字段值进行发信。。主要就是发信这块。最好是消费性能最少，发信速度最快为好。 以上是需求！1，用TIMER做实时监控好不好？还有没有更好的方法？
2，用VB实现发EMAIL用什么方法好？要求速度要很快才行！SOCKET还是MAPI，还是有其它的方法！·

Answer 1

主要就是发信这块。最好是消费性能最少，发信速度最快为好。 
//很多方法!可以用OutLook的VBA方法!MAPI,ShellExecute,CDO等等
贴个最简单的例子,ShellExecute 会调用默认邮件客户端!'-------------------------------------------
'      在程序中加入超链接和发送电子邮件
'-------------------------------------------
'         洪恩在线   求知无限
'-------------------------------------------
'程序说明：
'例子使用ShellExecute函数，调用默认的外部浏览器
'和电子邮件工具来浏览网页和发送电子邮件。
'-------------------------------------------
'【VB声明】
'  Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long'【说明】
'  查找与指定文件关联在一起的程序的文件名'【返回值】
'  Long，非零表示成功，零表示失败。会设置GetLastError'【参数表】
'  hwnd -----------  Long，指定一个窗口的句柄，有时候，windows程序有必要在创建自己的主窗口前显示一个消息框'  lpOperation ----  String，指定字串“open”来打开lpFlie文档，或指定“Print”来打印它'  lpFile ---------  String，想用关联程序打印或打开一个程序名或文件名'  lpParameters ---  String，如lpszFlie是可执行文件，则这个字串包含传递给执行程序的参数'  lpDirectory ----  String，想使用的完整路径'  nShowCmd -------  Long，定义了如何显示启动程序的常数值。
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPrivate Sub Command1_Click()    Call ShellExecute(Form1.hwnd, "Open", "mailto:[email protected]", "", App.Path, 1)End Sub

Answer 2

1，用TIMER做实时监控好不好？还有没有更好的方法？
//还可以吧!看你对时间的要求了!精度太高,Timer就不适合了!用其他方法,比如用API:SetTimer
2，用VB实现发EMAIL用什么方法好？要求速度要很快才行！SOCKET还是MAPI，还是有其它的方法！
//多快?基本上差不多!关键还有需要验证要支持ESMTP的http://www.21code.com/codebase/?pos=down&id=1572

Answer 3

http://www.21code.com/codebase/?pos=down&id=713

Answer 4

发信服务器暂不考虑吧！这个我也不太清楚。可能他们有自已的EMAIL服务器。
对于发信原理我不太清楚。谢谢虫子！别人还有没有好方法！