求教各位大虾,VFP如何发Email
是用代码,而不是在表单上放个什么控件
不胜感激!

当然要先放控件,然后才做代码啊.
而且，用VFP发送EMAIL有很多严苛的要求:有MAPI控件,有OUTLOOK EXPRESS,且对SMTP和POP3服务器正确设置，还需要MSMAPI32.OCX.
有这个功夫,用IE早发完了。

这个我也知道，但现在一定要用VFP发，而且不希望出现窗体，该怎么做？

我知道有个办法，但那需要office的outlook，我的服务器上没装，也不希望装，如果是用IE的Outlook，该怎么做？

office的outlook可以这么做：

ole_outlook=createobject("Outlook.Application")
ole_item = ole_outlook.CreateItem(0)
ole_attach = ole_item.Attachments
ole_attach.add("附件")
ole_item.Subject = "主题"
ole_item.Body = "内容"
ole_item.To = "XXX@163.com"
ole_item.cc = "XXXX@163.com"
ole_item.Send

[此贴子已经被作者于2006-5-24 8:30:32编辑过]

看来你的电脑无法收发EMAIL了

呵呵，我还是找到了办法，贴出来与大家分享：

oMAPISession = create("MSMAPI.MAPISession")
oMAPIMessages= create("MSMAPI.MAPIMessages")
with oMAPISession
.logonui=.T.
.DownloadMail = .F.
.signon()
if .SessionID <= 0
messagebox('登录失败!')
return .f.
endif
endwith
with oMAPIMessages
.sessionid = oMAPISession.sessionid
*清除缓冲区
.compose()
.recipIndex = .recipCount
.recipDisplayname= "Email发送人"
.recipaddress = "Email目标地址"
.reciptype=1 &&--1=收件者(內定值)
.ResolveName()
.msgsubject= "标题"
.msgNoteText = "内容"
*Attach the files.
.AttachmentIndex = 0
.AttachmentPathName = '附件文件名'
.AttachmentName = '附件显示的文件名'
.send(0)
endwith