Wrong Appointment Form.

[Guest]

I recently set up a custom form in Contacts and changed the code so that all
existing Conacts would use this form. This is working fine. However, now
when I pull up an existing Appointment in Calendar, it uses this Contact form
I created above. How do I change it back to the default Appointment?

 

[Milly Staples [MVP - Outlook]]

Right click on the calendar folder, select properties and select the default
form from the dropdown.

--
Milly Staples [MVP - Outlook]

Post all replies to the group to keep the discussion intact. Due to
the (insert latest virus name here) virus, all mail sent to my personal
account will be deleted without reading.

After furious head scratching, DDuke asked:

| I recently set up a custom form in Contacts and changed the code so
| that all existing Conacts would use this form. This is working fine.
| However, now when I pull up an existing Appointment in Calendar, it
| uses this Contact form I created above. How do I change it back to
| the default Appointment?

 

[Guest]

Milly,

Tried that...it shows that the form is the right one (Appointment), but it
pulls up that Contact form. Any other thoughts? I did change the code in
the custom contact form but I must confess that I cut and pasted it from a MS
site, so there may be some screwy code in that. Take a look:

Sub Item_Open

NewMC = "IPM.Contact.MyNewForm"
Set CurFolder = Application.ActiveExplorer.CurrentFolder
For I = 1 to CurFolder.Items.Count
Set CurItem = CurFolder.Items.Item(I)
If CurItem.MessageClass <> NewMC Then
CurItem.MessageClass = NewMC
CurItem.Save
End If
Next
MsgBox "Done."
End Sub

THanks!

DDuke

 

[Milly Staples [MVP - Outlook]]

Sorry - I am not a programmer type.

--
Milly Staples [MVP - Outlook]

Post all replies to the group to keep the discussion intact. Due to
the (insert latest virus name here) virus, all mail sent to my personal
account will be deleted without reading.

After furious head scratching, DDuke asked:

| Milly,
|
| Tried that...it shows that the form is the right one (Appointment),
| but it pulls up that Contact form. Any other thoughts? I did change
| the code in the custom contact form but I must confess that I cut and
| pasted it from a MS site, so there may be some screwy code in that.
| Take a look:
|
| Sub Item_Open
|
| NewMC = "IPM.Contact.MyNewForm"
| Set CurFolder = Application.ActiveExplorer.CurrentFolder
| For I = 1 to CurFolder.Items.Count
| Set CurItem = CurFolder.Items.Item(I)
| If CurItem.MessageClass <> NewMC Then
| CurItem.MessageClass = NewMC
| CurItem.Save
| End If
| Next
| MsgBox "Done."
| End Sub
|
| THanks!
|
| DDuke
|
| "Milly Staples [MVP - Outlook]" wrote:
|
|| Right click on the calendar folder, select properties and select the
|| default form from the dropdown.
||
|| --Â
|| Milly Staples [MVP - Outlook]
||
|| Post all replies to the group to keep the discussion intact. Due to
|| the (insert latest virus name here) virus, all mail sent to my
|| personal account will be deleted without reading.
||
|| After furious head scratching, DDuke asked:
||
||| I recently set up a custom form in Contacts and changed the code so
||| that all existing Conacts would use this form. This is working
||| fine. However, now when I pull up an existing Appointment in
||| Calendar, it uses this Contact form I created above. How do I
||| change it back to the default Appointment?

 

[Sue Mosher [MVP-Outlook]]

If you ran that code while the Calendar folder was displayed, then you
changed every item in that folder to use a contact form instead of the
appointment form. You can confirm that by display the By Category view or
another table view and using the Field Chooser to add the Message Class
field to the folder. To undo the mess, you'll need to repeat the process,
but this time set the message class to "IPM.Appointment."

--
Sue Mosher, Outlook MVP
Author of
Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers

Milly,

Tried that...it shows that the form is the right one (Appointment), but it
pulls up that Contact form. Any other thoughts? I did change the code in
the custom contact form but I must confess that I cut and pasted it from a
MS
site, so there may be some screwy code in that. Take a look:

Sub Item_Open

NewMC = "IPM.Contact.MyNewForm"
Set CurFolder = Application.ActiveExplorer.CurrentFolder
For I = 1 to CurFolder.Items.Count
Set CurItem = CurFolder.Items.Item(I)
If CurItem.MessageClass <> NewMC Then
CurItem.MessageClass = NewMC
CurItem.Save
End If
Next
MsgBox "Done."
End Sub

THanks!

DDuke

Right click on the calendar folder, select properties and select the
default
form from the dropdown.

--
Milly Staples [MVP - Outlook]

Post all replies to the group to keep the discussion intact. Due to
the (insert latest virus name here) virus, all mail sent to my personal
account will be deleted without reading.

After furious head scratching, DDuke asked:

| I recently set up a custom form in Contacts and changed the code so
| that all existing Conacts would use this form. This is working fine.
| However, now when I pull up an existing Appointment in Calendar, it
| uses this Contact form I created above. How do I change it back to
| the default Appointment?