| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1366 人关注过本帖
标题:[求助]VFP如何发Email
只看楼主 加入收藏
mercury111
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-5-23
收藏
 问题点数:0 回复次数:4 
[求助]VFP如何发Email

求教各位大虾,VFP如何发Email
是用代码,而不是在表单上放个什么控件
不胜感激!
搜索更多相关主题的帖子: VFP Email 
2006-05-23 16:21
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
当然要先放控件,然后才做代码啊.
而且,用VFP发送EMAIL有很多严苛的要求:有MAPI控件,有OUTLOOK EXPRESS,且对SMTP和POP3服务器正确设置,还需要MSMAPI32.OCX.
有这个功夫,用IE早发完了。

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-05-23 23:11
mercury111
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-5-23
收藏
得分:0 

这个我也知道,但现在一定要用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编辑过]

2006-05-24 08:16
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
看来你的电脑无法收发EMAIL了

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-05-24 11:47
mercury111
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-5-23
收藏
得分:0 

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

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
2006-05-26 16:16
快速回复:[求助]VFP如何发Email
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.055182 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved