Re: How to clean the Outlook forms cache in outlook 2002?

From: Sue Mosher [MVP-Outlook] (suemvp_at_outlookcode.com)
Date: 03/07/05 

Date: Mon, 7 Mar 2005 08:29:38 -0500

We simply don't know all the causes of forms cache corruption. 

-- 
Sue Mosher, Outlook MVP
Author of
     Microsoft Outlook Programming - Jumpstart for
     Administrators, Power Users, and Developers
     http://www.outlookcode.com/jumpstart.aspx
<cuentanewslabogel@nospam.nospam> wrote in message 
news:enjDyKuIFHA.1396@TK2MSFTNGP10.phx.gbl...
> Thanks Sue.
>
> I'¡ll try to put this in the logonscript of all my users.
>
> However, why should the form cache get corrupt?
>
> The only thing I'm doing is call via VBS a form.
>
> And inside the form the only thing I do by code is adding the CC: 
> depending on the value of some fields...
>
> ALl the PCs have the key that MS said was needed to recache the form in 
> the case of a corrupted cache.. but when a PC has the problem it nevers 
> load the cache, even with this registry key! The only solution is to clear 
> the cache forms...
>
> Any help will be very appreciated!
>
> PD: i write down some of the code if you could help me...
>
>
>
>
>
> VBS File used to call the form:
>
> ************************************************************
> Set ol = Wscript.CreateObject ("Outlook.Application")
> Set myNameSpace =ol.GetNameSpace("MAPI")
> Set myFolder = myNamespace.GetDefaultFolder(10)
> Set myItems = myFolder.Items
> Set myItem = myItems.Add("IPM.Note.SolicitudSoporteUsuario")
> MyItem.Display
>
> Set myOlApp = Nothing
> Set myNameSpace = Nothing
> Set myFolder = Nothing
> Set myItems = Nothing
> Set myItem = Nothing
> Set ol = Nothing
>
> ************************************************************
>
> Code inside the mail form:
> ************************************************************
>
> Sub OptionButton1_Click()
>
> Dim objNS
>
> Set objNS = Application.GetNamespace("MAPI")
>
> Dim objFolder
>
> Set myItem = Application.ActiveInspector.CurrentItem
>
> myItem.Userproperties.Find("InCidSopUsu") = "OptionButton1"
>
> Item.GetInspector.ModifiedFormPages("Mensaje").Controls("Frame").Visible = 
> True
>
> End Sub
>
> Sub OptionButton2_Click()
>
> Dim objNS
>
> Set objNS = Application.GetNamespace("MAPI")
>
> Dim objFolder
>
> Set myItem = Application.ActiveInspector.CurrentItem
>
> myItem.Userproperties.Find("InCidSopUsu") = "OptionButton2"
>
> Item.GetInspector.ModifiedFormPages("Mensaje").Controls("Frame").Visible = 
> False
>
> End Sub
>
> Function Item_Send()
>
>
> Dim objNS
>
> Set objNS = Application.GetNamespace("MAPI")
>
> Dim objFolder
>
> Set myItem = Application.ActiveInspector.CurrentItem
>
> Dim Inspector
>
> Set Inspector = myItem.GetInspector
>
> Dim Page
>
> Set Page = Inspector.ModifiedFormPages("Mensaje")
>
> Set OptionButton1 = Page.Controls("OptionButton1")
>
> Set OptionButton2 = Page.Controls("OptionButton2")
>
> Set OptionButton3 = Page.Controls("OptionButton3")
>
> Set OptionButton4 = Page.Controls("OptionButton4")
>
> Set OptionButton5 = Page.Controls("OptionButton5")
>
> Set OptionButton6 = Page.Controls("OptionButton6")
>
> Set Titulo = Page.Controls("Subject")
>
>
> 'Borramos los destinatarios (pueden quedar destinatarios parásitos en el 
> formulario)
>
> myItem.Recipients.Remove 1
>
>
> if Titulo.Value = "" Then
>
> Item_Send = False
>
> MsgBox("Por favor, Introduce un Asunto en el mensaje.")
>
> Set myRecipient = myItem.Recipients.Add ("xxx@xxx.es")
>
> Else
>
> If (OptionButton1.Value = False) AND (OptionButton2.Value) = False Then
>
> Item_Send = False
>
> MsgBox "Por favor, escoge si es una Solicitud/incidencia de Aplicaciones o 
> de Sistemas"
>
> Set myRecipient = myItem.Recipients.Add ("xxx@xxx.es")
>
> Else
>
> 'Si el checkbox está en aplic. sistemas enviamos el mensaje a 
> xxxx@xxxxx.es
>
> If Page.Controls("OptionButton2").Value = true then
>
> Set myRecipient = myItem.Recipients.Add ("xxxR@xxx.es")
>
> myRecipient.Resolve
>
> 'Añadimos un string al título para que los destinatarios puedan crearse 
> reglas según el asunto del mensaje
>
> myItem.Subject="Incid:" & myItem.Subject
>
> Else
>
>
>
> If (OptionButton3.Value= False) AND (OptionButton4.Value= False) AND 
> (OptionButton5.Value= False) AND (OptionButton6.Value= False)= True Then
>
> Item_Send = False
>
> MsgBox "Por favor, escoge el tipo de incidencia"
>
> Set myRecipient = myItem.Recipients.Add ("xxx@xxx.es")
>
> Else
>
> If Page.Controls("OptionButton3").Value = true then
>
> Set myRecipient = myItem.Recipients.Add ("xx@xx.es")
>
> MyItem.Importance = 2
>
> End If
>
> If Page.Controls("OptionButton4").Value = true then
>
> Set myRecipient = myItem.Recipients.Add ("x@x.es")
>
> End If
>
> If Page.Controls("OptionButton5").Value = true then
>
> Set myRecipient = myItem.Recipients.Add ("xx@xx.es")
>
> MyItem.Importance = 2
>
> End If
>
> If Page.Controls("OptionButton6").Value = true then
>
> Set myRecipient = myItem.Recipients.Add ("x@x.es")
>
> End If
>
> myRecipient.Resolve
>
> 'Añadimos un string al título para que los destinatarios puedan crearse 
> reglas según el asunto del mensaje
>
> myItem.Subject="Incid:" & myItem.Subject
>
> End If
>
> End If
>
>
> End If
>
> End If
>
> End Function
>
> Set objFolder = Nothing
>
> Set objNS = Nothing
>
> Set myRecipient = Nothing
>
> Set myItem = Nothing
>
> Set OptionButton1 = Nothing
>
> Set OptionButton2 = Nothing
>
> Set OptionButton3 = Nothing
>
> Set OptionButton4 = Nothing
>
> Set OptionButton5 = Nothing
>
> Set OptionButton6 = Nothing
>
> ************************************************************
>
>
>
> "Sue Mosher [MVP-Outlook]" <suemvp@outlookcode.com> escribió en el mensaje 
> news:ePAe%23GNIFHA.904@tk2msftngp13.phx.gbl...
>> Just write a script to delete the Frmcache.dat file. See 
>> http://www.sparnaaij.net/Downloads/clearformscache.htm for an example.
>>
>> -- 
>> Sue Mosher, Outlook MVP
>> Author of
>>     Microsoft Outlook Programming - Jumpstart for
>>     Administrators, Power Users, and Developers
>>     http://www.outlookcode.com/jumpstart.aspx
>>
>>
>> <cuentanewslabogel@nospam.nospam> wrote in message 
>> news:%236bIKCIIFHA.2784@TK2MSFTNGP09.phx.gbl...
>>> Hi, I'd like to clean programatically the Outlook forms of my users 
>>> since some forms get corrupted and cannot be run.
>>>
>>>
>>> How can I do it in Visual basic script? or from the command line?
>>>
>>> Thanks.
>>>
>>
>>
>
>