| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
Reworld,下班在家制作游戏,1500万奖金等你拿编程微博 - 发现编程界的新鲜事
共有 356 人关注过本帖
标题:VFP如何在表单启动outlook中的宏??
只看楼主 加入收藏
fengmh
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2018-3-18
结帖率:90.91%
  已结贴   问题点数:20  回复次数:7   
VFP如何在表单启动outlook中的宏??
VFP如何在表单启动outlook中的宏??宏名NewMail
搜索更多相关主题的帖子: VFP 表单 启动 outlook  
2019-05-08 09:18
星光悠蓝
Rank: 8Rank: 8
来 自:山水甲天下
等 级:贵宾
威 望:36
帖 子:353
专家分:933
注 册:2010-1-11
  得分:0 
只试过WORD,没用过outlook,参考下面代码试试:
MyWord=CreateObject('Word.Application')  
MyWord.Run("宏名称")
2019-05-08 10:24
fengmh
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2018-3-18
  得分:0 
回复 2楼 星光悠蓝
不行啊
2019-05-09 10:31
schtg
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:30
帖 子:751
专家分:1081
注 册:2012-2-29
  得分:0 
outlook,好像是:MyOutlook = CreateObject('OutLook.Application')
请自己试一下,我的电脑上没有outlook啦,无法测试哈。
2019-05-09 13:52
fengmh
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2018-3-18
  得分:0 
回复 4楼 schtg
不行,提示 OLE 错误码 0x80020006:unknown name
2019-05-09 22:43
shenkj001
Rank: 3Rank: 3
来 自:河南安阳
等 级:论坛游侠
威 望:8
帖 子:328
专家分:132
注 册:2005-5-23
  得分:20 
试试
#DEFINE MAILITEM 0
 #DEFINE IMPORTANCELOW 0
 #DEFINE IMPORTANCENORMAL 1
 #DEFINE IMPORTANCEHIGH 2

oOutLookObject = CreateObject("Outlook.Application")
 oEmailItem = oOutLookObject.CreateItem(MAILITEM)

WITH oEmailItem
 .Recipients.Add("myyouxiang@)
 .Subject = "测试"
 .Importance = IMPORTANCENORMAL
 .Body = "测试vfp发送的数据,此数据由vfp发送"
 .Attachments.Add("c:\mywj.htm")
 .Send
 ENDWITH

RELEASE oEmailItem
 RELEASE oOutLookObject

shenkj001@
2019-05-09 23:50
厨师王德榜
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:83
帖 子:517
专家分:1964
注 册:2013-2-16
  得分:0 
以前发邮件用的 ,仅供参考(不涉及宏):
程序代码:
 
     wait wind '现在开始往 '+allt(myemail.dm)+space(2)+allt(myemail.mc)+' 发送邮件文件...' nowa
     #DEFINE MAILITEM 0
     #DEFINE IMPORTANCELOW 0
     #DEFINE IMPORTANCENORMAL 1
     #DEFINE IMPORTANCEHIGH 2
     oOutLookObject = CreateObject("Outlook.Application")
     oEmailItem = oOutLookObject.CreateItem(MAILITEM)
     sele myemail
     WITH oEmailItem
      .Recipients.Add(allt(myemail.yx))
      .Subject = allt(myemail.xsbgsmc)+'分公司:这是您分公司的网上划款或电汇数据!'
      .Importance = IMPORTANCENORMAL
      .Body = '分款注意事项及说明:'+chr(13)+;
              '  1、务请在收到本邮件次日上午12:00前将分解结果发回!'+chr(13)+;
              '    2、如有不明之处,请致电2688932咨询,谢谢合作!'
      .Attachments.Add('&df_yjm') 
      .Send
     ENDWITH
     RELEASE oEmailItem
     RELEASE oOutLookObject

 
2019-05-10 09:19
hyswcyh
Rank: 8Rank: 8
等 级:贵宾
威 望:20
帖 子:390
专家分:896
注 册:2004-11-23
  得分:0 
收藏,但不能运行!提示:
附件: 您没有浏览附件的权限,请 登录注册
2019-05-10 14:13
快速回复:VFP如何在表单启动outlook中的宏??
数据加载中...
 
   



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

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