报错 “ole idispatch 异常代码 0 出自 CDO.Message.1:与服务器的传输连接失败。”
请问是哪里出了问题？

当时还没有  木瓜老师的库，依稀记得是用的Outlook的MSAPI控件，代码写得很笨重，就不献丑了。
后来有了木瓜老师的库，这个变得简单了，两个函数就搞定了。
一个SmtpNewMail(hSmtpHdl,cSender,cReceiver,cSubject,cBody[,cFileList])
一个 SmtpSend(hSmtpHdl,cServer,cUserName,cPassword)
你可以搜索一下木瓜的第三方库，所以这个代码你自己摸索一下，不难的。
在这里 再次感谢木瓜老师的奉献。

用木瓜的MyFll

关键是要取得发送邮件服务器POP3许可，现在大部分邮件服务商不开放这个许可，所以不容易实现。以前很多免费邮箱都开放POP3和SMTP，前者是发送邮件的服务器，后者是接收邮件的服务器，将这些设置的OUTLOOK中，在VFP中添加MS的相关控件，就可以用下列代码发送邮件了。

thisform.OleMsess.signon                                    &&打开电子邮件句柄
thisform.olemmess.sessionid = thisform.olemsess.sessionid   &&将句柄传给邮件编辑程序
thisform.                                   &&构成一个消息
thisform.olemmess.msgnotetext = ""                      &&组成邮件内容
thisform.olemmess.msgsubject = " "                  &&指定邮件标题
thisform.olemmess.MsgIndex = -1
thisform.olemmess.RecipAddress = "xx@       &&邮箱地址
thisform.olemmess.send()                                    &&发送邮件
thisform.olemsess.signoff                                   &&关闭电子邮件句柄