各位高手:
我要在outlook2000中自定义一个form模板,在里面添加一些文本框,发布后,用这个模板发邮件给别人,然后用VB做的一个小程序能取得里面的信息.
现在的问题是:我能取到比如subject、to等等系统原有的属性的信息,可是却取不到我自己定义的textbox里的信息。代码如下:
Set olApp = CreateObject("outlook.application")
Set olSession = olApp.GetNamespace("MAPI")
gEmailFolderPersonal = "Personal Folders"
gEmailFolderRev = "inbox"
Set olStartFolder = olSession.Folders(gEmailFolderPersonal).Folders(gEmailFolderRev) i = olStartFolder.UnReadItemCount Set olTempItem = olStartFolder.Items(olStartFolder.Items.Count)
olStartFolder.Items.Item (i)
MsgBox olTempItem.To
MsgBox olTempItem.subject
MsgBox olTempItem.textbox1最后一个msgbox则打不出来。我觉的应该和我的代码没有问题,是定制文本控件的问题,不知道问题在哪,请问如何处理?!
我这里先谢了!!
我要在outlook2000中自定义一个form模板,在里面添加一些文本框,发布后,用这个模板发邮件给别人,然后用VB做的一个小程序能取得里面的信息.
现在的问题是:我能取到比如subject、to等等系统原有的属性的信息,可是却取不到我自己定义的textbox里的信息。代码如下:
Set olApp = CreateObject("outlook.application")
Set olSession = olApp.GetNamespace("MAPI")
gEmailFolderPersonal = "Personal Folders"
gEmailFolderRev = "inbox"
Set olStartFolder = olSession.Folders(gEmailFolderPersonal).Folders(gEmailFolderRev) i = olStartFolder.UnReadItemCount Set olTempItem = olStartFolder.Items(olStartFolder.Items.Count)
olStartFolder.Items.Item (i)
MsgBox olTempItem.To
MsgBox olTempItem.subject
MsgBox olTempItem.textbox1最后一个msgbox则打不出来。我觉的应该和我的代码没有问题,是定制文本控件的问题,不知道问题在哪,请问如何处理?!
我这里先谢了!!
msgbox olTempItem.UserProperties.Item("textbox1")