View Single Post
  #5  
Old February 11th 08, 06:41 PM posted to microsoft.public.outlook.program_forms
Judy Voyles[_2_]
external usenet poster
 
Posts: 5
Default How do I remove a published form programatically?

I have looked all over in the Redemption object model and for sample code to
try to figure out just exaclty how to access the Forms folders with
Redemption. I have downloaded OutlookSpy and can find the information using
that so I know it must be something accessible. Maybe I'm just not
understanding something. I just don't see anything that references that
'Personal Forms' or any other forms folder. On the Microsoft support site I
found something about a form viewer in MAPI but I can't find anything like
that in Redemption.

Perhaps someone could point me in the right direction?


"Sue Mosher [MVP-Outlook]" wrote:

Given that CDO 1.21 is not supported in .NET, Redemption would be the better choice, IMO.

--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54


"Judy Voyles" wrote in message ...
Can I use CDO is VBscript or will I need to use Redemption with my ..Net IDE?

"Sue Mosher [MVP-Outlook]" wrote:

Unless you have Outlook 2007, that task requires a low-level API such as CDO 1.21 or Redemption, which can access the hidden form definition item. See http://www.outlookcode.com/article.aspx?ID=35 for code samples.



"Judy Voyles" wrote in message ...
I have a published form that I have distributed to several users and they
have published it in there 'Personal Forms Library'. I am needing to remove
this form from the 'Personal Forms Library' with a script file so that I can
publish another form with the same name but a different message class.

I use the following code to locate the form description object but nothing I
have tried from this point will allow me to remove it.

Set objOL = CreateObject("Outlook.Application")
set olns = objOL.GetNameSpace("MAPI")

Set myfldr = olns.GetDefaultFolder(6)
numitms = myfldr.items.Count
for I = 1 to numitms
set myitem = myfldr.items(I).formdescription
if myitem.messageclass = "IPM.Note.ADS Request" then

?????????????????

end if
next
msgbox "Done"

If anyone has any suggestions....

Thanks



Ads