主题：求證 用狐表做个邮件发送按钮

我想做按钮,,当录入人员把数据输入完毕后,单击按钮,,,自动发邮件告诉相关人员,,,XXX天的数据已输入完成,请审核............

不知道能不能实现,

求思路...........

你是说,,文件做成两种,服务器版与客户版...

,,服务器中打开服务器版.,当 员工保存后,服务器获得录入人员 保存的 信息,然后将保存信息  发送给 相关人员...

是不是这样一个意思?

饿......网络侦听......我找找资料看看...

謝謝狐爸....OK了

以下是引用baoxyang在2010-10-27 17:05:00的发言：

可以参考，编程成动态键接库.dll文件，在Foxtable中引用，估计可以实现。

下载信息  [文件大小：90.0 KB  下载次数：2]

点击浏览该文件:c_ socket编写的简单聊天通信程序.rar

看幫助中的MailSender  ,,實現這一功能太簡單了..

狐爸

不知道為什麼,我用局域網郵箱測試成功

用外部郵箱測試,結果失敗

Dim m As New MailSender
m.Host = "smtp.gmail.com"
m.Account = "wangyanqiu827"
m.Password = "wyq7758520"
m.From = "wangyanqiu827@gmail.com"
m.AddReceiver("amy@kinghorn-cn.com")
m.AddReceiver("steve@kinghorn-cn.com")
m.AddReceiver("fszyhzg@kinghorn-cn.com")
m.Title = " foxtable发送邮件 外部测试 XXX 明天来北京 ,,,,,,收到请回复AAAA!!"
m.C
m.SendAsync()

我能用IE登錄郵箱啊,不知道那裡有問題..你看一下.

我是這樣做的,

我先改為 這樣 ;

Dim m As New MailSender
m.Host = "smtp.gmail.com"
m.Account = "wangyanqiu827"
m.Password = "wyq7758520"
m.From = wangyanqiu827@gmail.com

m.To = amy@kinghorn-cn.com '我不知道第一次連接外部郵箱,為什麼設置為這樣成功

m.To = steve@kinghorn-cn.com

m.AddReceiver("amy@kinghorn-cn.com")
m.AddReceiver("steve@kinghorn-cn.com")
m.AddReceiver("fszyhzg@kinghorn-cn.com")
m.Title = " foxtable发送邮件 外部测试 XXX 明天来北京 ,,,,,,收到请回复AAAA!!"
m.SendAsync()

測試成功!

然後又改為之前的那種方式

Dim m As New MailSender
m.Host = "smtp.gmail.com"
m.Account = "wangyanqiu827"
m.Password = "wyq7758520"
m.From = wangyanqiu827@gmail.com

m.AddReceiver("amy@kinghorn-cn.com")
m.AddReceiver("steve@kinghorn-cn.com")
m.AddReceiver("fszyhzg@kinghorn-cn.com")
m.Title = " foxtable发送邮件 外部测试 XXX 明天来北京 ,,,,,,收到请回复AAAA!!"
m.C
m.SendAsync()

又測試成功了...

Dim Str1 As String = " 用户: " & User.Name  & Date.Today() & " 的数据输入完成,请查阅 " & Vars("内容") & Vars("日期")

狐爸!

這行代码显示效果 所有的文字都在一行.

我想分行显示怎么搞?

用户: " & User.Name

 & Date.Today() & " 的数据输入完成,请查阅 " & Vars("内容") & Vars("日期")

我觉得  通过判断能不能连接邮箱服务器   应该可以做到..

Dim m As New MailSender
m.Host = "smtp.gmail.com"
m.Account = "wangyanqiu827"
m.Password = "wyq7758520"
m.From = wangyanqiu827@gmail.com

m.To = amy@kinghorn-cn.com '我不知道第一次連接外部郵箱,為什麼設置為這樣成功

m.AddReceiver("amy@kinghorn-cn.com")
m.Title = " foxtable发送邮件 外部测试 XXX 明天来北京 ,,,,,,收到请回复AAAA!!"
m.SendAsync()

改为这样看看,,,,我就是这样测试成功的.