你为什么不直接在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 .SendEnd With