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

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

不行啊

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

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

试试
#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

以前发邮件用的 ，仅供参考（不涉及宏）：

 
     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

 

收藏，但不能运行！提示: