How to delete a form published in Calendar

[Amit]

I have publised a new form in Calendar folder using following code:

*************************
Dim filename As String
Dim Temp As String
Dim endpos As Integer
Dim mylength As Integer
Set myOlApp = GetObject("", "Outlook.Application")
' retrieve Outlook Templates
filename = Dir$("c:\RAC\*.oft", vbNormal)
Do Until filename = ""
mylength = Len(filename)
' strip off the extension from the filename. This will be thename of
the form.
endpos = InStr(1, filename, ".oft", 1)
strTemp = Trim(Mid(filename, 1, endpos - 1))
' publish all Outlook forms into the Personal Registry
Set olns = myOlApp.GetNamespace("MAPI")
Set MyTasksFolder = olns.GetDefaultFolder(olFolderCalendar)
'Set MyNewFolder = MyTasksFolder.Folders.Add("Amit")
Set myItem = myOlApp.CreateItemFromTemplate("C:\RAC\" & filename)
Set myForm = myItem.FormDescription
myForm.Name = strTemp
myForm.PublishForm olFolderRegistry, MyTasksFolder
filename = Dir$
Loop

*****************


Can anyone give me some idea how can I remove this form. Please help...

 

[Ken Slovak - [MVP - Outlook]]

In the UI it's easy, just open the forms manager. In code you cannot use the
Outlook object model you would have to use CDO 1.21 or Extended MAPI or
Redemption (www.dimastr.com/redemption). For a CDO 1.21 sample of getting
rid of a published form see
http://groups.google.com/group/micr...ms+library&hl=en&lr=&ie=UTF-8&c2coff=1&rnum=1