Cannot close custom form in outlook 2007

njcooley · Jun 1, 2007

I am having trouble closing a custom form that I coded. It doesn't
matter if I use "Item.Close 0", "Item.Close(0)", or
"Item.getInspector.Close 0" I still have an Outlook closes improperly
error. All it does is generate an error report and then restarts
Outlook. Here's the code :

'Set a field equal to the user name
Function Item_Open()
Set myNameSpace = Application.GetNameSpace("MAPI")
Set Owner1 = UserProperties("RequestedBy")
If Owner1 = "" Then
Item.UserProperties.Find("RequestedBy").Value =
myNamespace.CurrentUser.Name
End If
End Function

' This processes the code when the Submit button is clicked
Function btnSubmit_Click()
If UserProperties("RequestedBy").Value = "" then
msgbox("You must enter your name in the Requested By field.")
Exit Function
End If
If UserProperties("FName").Value = "" then
msgbox("You must enter the Employee's name in the Full Name field.")
Exit Function
End If
If UserProperties("Loctn").Value = "" then
msgbox("You must enter the office location in the Location field.")
Exit Function
End If
If UserProperties("StrDt").Value = "None" then
msgbox("You must enter a start date in the Start Date field.")
ExitFunction
End If
Item_Write()
End Function

'Writes the email and checks what programs are needed
Function Item_Write()
On Error Resume Next
If UserProperties("Saved") = True then
Item.Save
Exit Function
End If

Dim ProgramList
Dim PrinterList
Dim MapDriveList
Dim OtherNotesList

PrinterList = "None"
MapDriveList = "None"
OtherNotesList = "None"

If UserProperties("Autodesk Civil3D") = True then
ProgramList = ProgramList & " Autodesk Civil3D, "
End If

If UserProperties("Autodesk Land Desktop") = True then
ProgramList = ProgramList & " Autodesk Land Desktop, "
End If

If UserProperties("Autodesk AutoCAD") = True then
ProgramList = ProgramList & " Autodesk AutoCAD, "
End If

If UserProperties("Microsoft Project") = True then
ProgramList = ProgramList & " Microsoft Project, "
End If

If UserProperties("Microsoft Publisher") = True then
ProgramList = ProgramList & " Microsoft Publisher, "
End If

If UserProperties("Adobe Acrobat Professional") = True then
ProgramList = ProgramList & " Adobe Acrobat Professional, "
End If

If UserProperties("Adobe Acrobat Standard") = True then
ProgramList = ProgramList & " Adobe Acrobat Standard, "
End If

If UserProperties("Microstation") = True then
ProgramList = ProgramList & " Microstaion, "
End If

If UserProperties("Staad") = True then
ProgramList = ProgramList & " Staad, "
End If

If UserProperties("RAMSteel") = True then
ProgramList = ProgramList & " RAMSteel, "
End If

If UserProperties("ArcView") = True then
ProgramList = ProgramList & " ArcView, "
End If

If UserProperties("OtherPrograms").Value <> "" then
ProgramList = ProgramList & UserProperties("OtherPrograms").Value +
"."
End If

If Right(ProgramList,2) = ", " then
ProgramList = Left(ProgramList, Len(ProgramList) - 2)
End If

If UserProperties("OtherPrinters").Value <> "" then
OtherPrinterList = UserProperties("OtherPrinters").Value
End If

If UserProperties("OtherDrives").Value <> "" then
MapDriveList = UserProperties("OtherDrives").Value
End If

If UserProperties("Other Notes").Value <> "" then
OtherNotesList = UserProperties("Other Notes").Value
End If

Set newEmployeeItem = Application.CreateItem(0)
Set myRecipients = newEmployeeItem.Recipients
myRecipients.Add("(e-mail address removed)")
'myRecipients.Add("(e-mail address removed)")
'myRecipients.Add("(e-mail address removed)")

'Writing the email
With newEmployeeItem
.Subject = "New employee " + UserProperties("FName").Value + "
setup information."
.HTMLBody = .HTMLBody + "RequestedBy: " +
UserProperties("RequestedBy").Value
.HTMLBody = .HTMLBody + "Employee Name: " + CStr(UserProperties("FName").Value)
.HTMLBody = .HTMLBody + "Start Date: " + CStr(UserProperties("StrDt").Value)
.HTMLBody = .HTMLBody + "Location: " + CStr(UserProperties("Loctn").Value)
.HTMLBody = .HTMLBody + "Programs needed:" + CStr(ProgramList)
.HTMLBody = .HTMLBody + "Additional printers needed: " + CStr(PrinterList)
.HTMLBody = .HTMLBody + "Additional printers needed: " + CStr(MapDriveList)
.HTMLBody = .HTMLBody + "Additional notes: " + CStr(OtherNotesList)
.Send
End With
UserProperties("Saved").Value = True
Item_Close()
End Function
'Closes the form
Function Item_Close()
Item.getInspector.Close 0
End Function

Thanks for the help.
Nathaniel

Roady [MVP] · Jun 1, 2007

Known issue. See;
http://support.microsoft.com/kb/937212

--
Robert Sparnaaij [MVP-Outlook]
Coauthor, Configuring Microsoft Outlook 2003

-----

njcooley · Jun 1, 2007

It's still not working. The Save and Close button now works, but not
the line of code Item.Close or Item.GetInspector.Close

njcooley · Jun 1, 2007

It's still not working. The Save andClosebutton now works, but not
the line of code Item.Closeor Item.GetInspector.Close

By the way, I'm using a command button in my form to do this operation.

njcooley · Jun 13, 2007

am having trouble closing a custom form that I coded. It doesn't
matter if I use "Item.Close 0", "Item.Close(0)", or
"Item.getInspector.Close 0" I still have an Outlook closes improperly
error. All it does is generate an error report and then restarts
Outlook. Here's the code :

'Set a field equal to the user name
Function Item_Open()
Set myNameSpace = Application.GetNameSpace("MAPI")
Set Owner1 = UserProperties("RequestedBy")
If Owner1 = "" Then
Item.UserProperties.Find("RequestedBy").Value =
myNamespace.CurrentUser.Name
End If
End Function

' This processes the code when the Submit button is clicked
Function btnSubmit_Click()
If UserProperties("RequestedBy").Value = "" then
msgbox("You must enter your name in the Requested By field.")
Exit Function
End If
If UserProperties("FName").Value = "" then
msgbox("You must enter the Employee's name in the Full Name
field.")
Exit Function
End If
If UserProperties("Loctn").Value = "" then
msgbox("You must enter the office location in the Location
field.")
Exit Function
End If
If UserProperties("StrDt").Value = "None" then
msgbox("You must enter a start date in the Start Date field.")
ExitFunction
End If
Item_Write()
End Function

'Writes the email and checks what programs are needed
Function Item_Write()
On Error Resume Next
If UserProperties("Saved") = True then
Item.Save
Exit Function
End If

Dim ProgramList
Dim PrinterList
Dim MapDriveList
Dim OtherNotesList

PrinterList = "None"
MapDriveList = "None"
OtherNotesList = "None"

If UserProperties("Autodesk Civil3D") = True then
ProgramList = ProgramList & " Autodesk Civil3D, "
End If

If UserProperties("Autodesk Land Desktop") = True then
ProgramList = ProgramList & " Autodesk Land Desktop, "
End If

If UserProperties("Autodesk AutoCAD") = True then
ProgramList = ProgramList & " Autodesk AutoCAD, "
End If

If UserProperties("Microsoft Project") = True then
ProgramList = ProgramList & " Microsoft Project, "
End If

If UserProperties("Microsoft Publisher") = True then
ProgramList = ProgramList & " Microsoft Publisher, "
End If

If UserProperties("Adobe Acrobat Professional") = True then
ProgramList = ProgramList & " Adobe Acrobat Professional, "
End If

If UserProperties("Adobe Acrobat Standard") = True then
ProgramList = ProgramList & " Adobe Acrobat Standard, "
End If

If UserProperties("Microstation") = True then
ProgramList = ProgramList & " Microstaion, "
End If

If UserProperties("Staad") = True then
ProgramList = ProgramList & " Staad, "
End If

If UserProperties("RAMSteel") = True then
ProgramList = ProgramList & " RAMSteel, "
End If

If UserProperties("ArcView") = True then
ProgramList = ProgramList & " ArcView, "
End If

If UserProperties("OtherPrograms").Value <> "" then
ProgramList = ProgramList &
UserProperties("OtherPrograms").Value +
"."
End If

If Right(ProgramList,2) = ", " then
ProgramList = Left(ProgramList, Len(ProgramList) - 2)
End If

If UserProperties("OtherPrinters").Value <> "" then
OtherPrinterList = UserProperties("OtherPrinters").Value
End If

If UserProperties("OtherDrives").Value <> "" then
MapDriveList = UserProperties("OtherDrives").Value
End If

If UserProperties("Other Notes").Value <> "" then
OtherNotesList = UserProperties("Other Notes").Value
End If

Set newEmployeeItem = Application.CreateItem(0)
Set myRecipients = newEmployeeItem.Recipients

'Writing the email
With newEmployeeItem
.Subject = "New employee " + UserProperties("FName").Value + "
setup information."
.HTMLBody = .HTMLBody + "RequestedBy: " +
UserProperties("RequestedBy").Value
.HTMLBody = .HTMLBody + "Employee Name: " + CStr(UserProperties("FName").Value)
.HTMLBody = .HTMLBody + "Start Date: " + CStr(UserProperties("StrDt").Value)
.HTMLBody = .HTMLBody + "Location: " + CStr(UserProperties("Loctn").Value)
.HTMLBody = .HTMLBody + "Programs needed:" + CStr(ProgramList)
.HTMLBody = .HTMLBody + "Additional printers needed: " + CStr(PrinterList)
.HTMLBody = .HTMLBody + "Additional printers needed: " + CStr(MapDriveList)
.HTMLBody = .HTMLBody + "Additional notes: " + CStr(OtherNotesList)
.Send
End With
UserProperties("Saved").Value = True
Item_Close()
End Function
'Closes the form
Function Item_Close()
Item.getInspector.Close 0
End Function

Thanks for the help.

Sue Mosher [MVP-Outlook] · Jun 13, 2007

You can call Microsoft support and tell them you want the hotfixes described in the KB articles at http://support.microsoft.com/kb/937212/ and http://support.microsoft.com/kb/935517/ . Judging by the file version numbers, I think the April fix is the same as the April public update -- http://support.microsoft.com/kb/933493/ -- and is included in the May fix. If that's the case, then all you'll need is the May update, but you should ask to be sure.

FYI, there is a newsgroup specifically for Outlook forms issues "down the hall" at microsoft.public.outlook.program_forms or, via web interface, at http://www.microsoft.com/office/com...spx?dg=microsoft.public.outlook.program_forms

pages don't work in Firefox?	2	Jan 12, 2010
Display Active Directory Users in a ListBox	2	Dec 6, 2006
Insert Recepient's name in .oft template	0	May 31, 2013
Howto enforce unified formatting of Outlook signatures?	2	May 29, 2008
Exporting from Outlook to Excel Folder Problem	12	Jan 10, 2008
Outlook Custom Message Form In Outlook	0	Jun 15, 2012
Sending Email	0	Apr 15, 2009
Spam Filter Does Not Work	6	Jul 18, 2005

Cannot close custom form in outlook 2007

njcooley

Roady [MVP]

njcooley

njcooley

njcooley

Sue Mosher [MVP-Outlook]

Ask a Question

Similar Threads