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

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.

--
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 ...
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

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.

--
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 ...
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

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

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

Hi Judy, I'm trying to do the exact same thing as you, I've been looking
in CDO posts as well - no luck. I'm using redemption and even if I
display the properties using hrgetproplist, the form name isn't in the
list but I can see it when I look in Outlook.

Carol



*** Sent via Developersdex http://www.developersdex.com ***

Published forms aren't properties, they're hidden items, which Outlook Spy displays on the Associated Contents tab. In the case of the Personal Forms library, they're hidden items in a hidden folder, called IPM_COMMON_VIEWS in Outlook 2003. The sample at http://groups.google.com/group/micro...48d368f6040023 should work fine for CDO 1.21. I'll try to work up a sample using Redemption objects as well.

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


"Carol Marotta" wrote in message ...
Hi Judy, I'm trying to do the exact same thing as you, I've been looking
in CDO posts as well - no luck. I'm using redemption and even if I
display the properties using hrgetproplist, the form name isn't in the
list but I can see it when I look in Outlook.

Carol

Hi Sue, it would be great to see a sample for redemption. This is as
far as I've gotten so far:

Dim objStore As Redemption.RDOStore
Dim objSession As Redemption.RDOSession

Set objSession = CreateObject("Redemption.RDOSession")
objSession.Logon
Set objStore = objSession.Stores.DefaultStore

and then I'd like to check the Common Views folder, here it's #1, but
I'd have to loop through & check the name, anyhow when I check the
common folder hidden objects like this:

debug.print objStore.RootFolder.Folders(1).hiddenItems(i).Mess ageClass

none of the items are the forms designer message type.

Thanks,
Carol

*** Sent via Developersdex http://www.developersdex.com ***

Hi, it's me again. I think the reason why I'm not seeing this form in
Redemption is possibly because it's not published to Personal Folders,
it's published to Outlook Folders. If I publish it to Personal Forms,
then I can see it, no problem using this:

objstore.RootFolder.Folders(1).HiddenItems(4).Fiel ds(&H6800001E)

(it's in folder #1, item #4, this returns the form name)

Is it possible then to retrieve items published to another folder to
delete them?

Thanks!
Carol


*** Sent via Developersdex http://www.developersdex.com ***

Don't use an index value to get Common Views, that's not a good way. Once
you get the Store use the property PR_COMMON_VIEWS_ENTRYID (0x35E60102) to
get the EntryID of the Common Views folder and then get the folder the usual
way using RDOSession.GetFolderFromID.

If there are any forms published in the Personal Forms library they would
have a MessageClass of IPM.Microsoft.FolderDesign.FormsDescription and the
PR_MAILBEAT_BOUNCE_SERVER property (0x6800001E) would have the custom form
MessageClass.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"Carol Marotta" wrote in message
...
Hi Sue, it would be great to see a sample for redemption. This is as
far as I've gotten so far:

Dim objStore As Redemption.RDOStore
Dim objSession As Redemption.RDOSession

Set objSession = CreateObject("Redemption.RDOSession")
objSession.Logon
Set objStore = objSession.Stores.DefaultStore

and then I'd like to check the Common Views folder, here it's #1, but
I'd have to loop through & check the name, anyhow when I check the
common folder hidden objects like this:

debug.print objStore.RootFolder.Folders(1).hiddenItems(i).Mess ageClass

none of the items are the forms designer message type.

Thanks,
Carol

*** Sent via Developersdex http://www.developersdex.com ***