VFP如何在表单启动outlook中的宏?? - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → VFP如何在表单启动outlook中的宏??

标题：VFP如何在表单启动outlook中的宏??

只看楼主

fengmh

等　级：新手上路
帖　子：32
专家分：0
注　册：2018-3-18
结帖率：92.86%

楼主

已结贴√ 问题点数：20 回复次数：7

VFP如何在表单启动outlook中的宏??

VFP如何在表单启动outlook中的宏??宏名NewMail

搜索更多相关主题的帖子: VFP　表单　启动　 outlook　宏　

2019-05-08 09:18

星光悠蓝

来　自：山水甲天下
等　级：贵宾
威　望：48
帖　子：459
专家分：1116
注　册：2010-1-11

第 2 楼

得分:0

只试过WORD，没用过outlook，参考下面代码试试：
MyWord=CreateObject('Word.Application')
MyWord.Run("宏名称")

2019-05-08 10:24

fengmh

等　级：新手上路
帖　子：32
专家分：0
注　册：2018-3-18

第 3 楼

得分:0

回复 2楼星光悠蓝

不行啊

2019-05-09 10:31

schtg

来　自：https://t.me/pump_upp
等　级：贵宾
威　望：67
帖　子：1355
专家分：2534
注　册：2012-2-29

第 4 楼

得分:0

outlook，好像是：MyOutlook = CreateObject('OutLook.Application')
请自己试一下，我的电脑上没有outlook啦，无法测试哈。

2019-05-09 13:52

fengmh

等　级：新手上路
帖　子：32
专家分：0
注　册：2018-3-18

第 5 楼

得分:0

回复 4楼 schtg

不行，提示 OLE 错误码 0x80020006:unknown name

2019-05-09 22:43

shenkj001

来　自：河南安阳
等　级：论坛游侠
威　望：9
帖　子：340
专家分：147
注　册：2005-5-23

第 6 楼

得分: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

厨师王德榜

等　级：版主
威　望：183
帖　子：942
专家分：4724
注　册：2013-2-16

第 7 楼

得分: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