在xp下运行的程序，在win7下报错，提示配置不可用
代码如下：
oMSG = CREATEOBJECT('cdo.message')
oMSG.To = 'me@'
oMSG.From = 'me'
oMSG.Subject = 'Hello Email'
oMSG.TextBody = 'This is an easy way to create an email'
oMSG.Send()
release oMSG
因为我以前是在outlook express里设好账号的,win7下没有outlook，用的是foxmail。
我启用了smtp服务，并在iis里设置了账号信息。不管用
我又尝试用Configuration对象更新fields，但是在update的时候也同样出错。
有什么办法能解决吗？特来请教

邮件好像离我很遥远了吧，我几年没用过了，好像与世隔绝了一样。
cdosys.dll
这个你看看，是不是这个的原因。
system32文件夹下

这个文件有的，不然createobject的时候就出错了吧。
我还用regsvr32注册了一下，也没用。

在运行到send()命令时出错，说配置不可用
如果使用ｃｄｏ的Configuration对象设置邮件账号，在update()时也会出错

问题解决了，走了很多弯路，还是用配置Configuration的办法，网上的代码有个错误，填发件人的地方填服务器地址就对了。真是奇怪，因为还有一个SMTP服务器地址也要填同样的地址。

也需要这个，能公开你的代码吗？

我的代码在办公室电脑上，我参考的是下面这段代码。
#define USERNAME \'your name\' && 这里填你登录的账号
#define MAILPASSWORD \'your pass\' && 这里填你登录的口令
#define MAILFROM USERNAME + \'@\' && 这里填你邮箱后缀
#define MAILTO MAILFROM
#define MAILACCOUNT MAILFROM
TRY
m.oMsg = NEWOBJECT( \'CDO.Message\' )
CATCH
m.oMsg = NULL
ENDTRY
IF ISNULL( m.oMsg )
MESSAGEBOX( \'无法创建邮件对象!\', 16, \'错误\' )
RETURN .F.
ENDIF
m.oConfg = NEWOBJECT( \'CDO.Configuration\' )
m.oFields = m.oConfg.Fields
m.cSchemas = \'http://schemas.\'
WITH m.oFields
.item( m.cSchemas + \'sendusing\' ) = 2
.item( m.cSchemas + \'smtpserverport\' ) = 25
.item( m.cSchemas + \'smtpaccountname\' ) = MAILFROM
.item( m.cSchemas + \'sendusername\' ) = MAILACCOUNT
.item( m.cSchemas + \'sendpassword\' ) = MAILPASSWORD
.item( m.cSchemas + \'smtpauthenticate\' ) = 1
.item( m.cSchemas + \'languagecode\' ) = 0x0804
.item( m.cSchemas + \'smtpserver\' ) = \'smtp.\'
.Update()
ENDWITH
m.oMsg.Configuration = m.oConfg
WITH m.oMsg
.Subject = \'客户端软件升级报告\'
.From = MAILFROM
.To = MAILTO
.TextBody = \'客户端软件升级报告\'
AA = SYS(5) + SYS(2003) + \'\\datasetup.ini\' &&附件地址及名称
.ADDATTACHMENT(AA)
ENDWITH
TRY
m.oMsg.Send()
m.cMsg = \'邮件已发送.\'
m.oErr = NULL
CATCH TO m.oErr
TEXT TO m.cMsg NOSHOW TEXTMERGE
邮件发送失败!
<<oErr.Message>>
ENDTEXT
ENDTRY
STORE NULL TO m.oConfog, m.oMsg
MESSAGEBOX( m.cMsg )

myfll.fll里有专门用于邮件收发的函数，虽没用过，但看示例感觉更方便、易用，而且是vfp专用的。建议参考一下。