主题：UDPClients代码请教

你为什么不直接在foxtable里面做个界面发邮件？

Dim ol = CreateObject("Outlook.Application")
Dim t = ol.CreateItem(0)
With t
    .To = "xxx@xxx.com"  
    .CC = "xxx@xxx.com"
    .Subject = "预警"
    .Body = "yujingla "
    .Display
    .Send
End With

如果要在vba里实现udp、tcp通信，1楼的代码是不能用的。

http://blog.chinaunix.net/uid-194025-id-35803.html

那个要你配置的。

在Excel中，因为该控件不是自带的控件，如果使用者的电脑上没有安装VB的话，需要做一定的设置才能在Excel中使用Winsock控件。下面介绍一下使用的步骤： 1. 先复制MSWinsck.OCX文件到C:\Windows\System32目录下，使用者可以在互联网上搜索该OCX文件，或从下面的链接下载：MSWinsck控件 2. 上面的文件中同时包括一个注册表文件，双击该文件可以导入MSWinsck控件的Licence Key到注册表中，这样在使用控件时就不会出现下面的提示窗口。 （在打开包含Winsock控件时出现） （在新添加控件时出现） 3. 完成前面的步骤以后，打开VBE窗口，添加用户窗体（Winsock控件需要保持连接，因此一般在窗体中使用），单击菜单“工具”->“引用”，打开“引用对话框”，单击“浏览”按钮，从System32目录下选择MSWinsck.OCX文件，然后单击“确定”按钮。

vba的知识都去excelhome里面找

http://club.excelhome.net/thread-867492-1-1.html

http://club.excelhome.net/thread-325127-1-1.html

http://club.excelhome.net/thread-391593-1-1.html