O
Oskar Vaia
Hi,
i have develop a new task-form with the following code in it:
---
sub commandbutton5_click()
Const olSave = 0
Dim CB5Caption
CB5Source = 1
CB5Caption =
getinspector.modifiedformpages("Test").controls("commandbutton5").caption
Dim RetMsgBox
Select Case CB5Caption
Case "1. XXX"
item.userproperties("Mahnung1").Value = True
Item.GetInspector.ModifiedFormPages("Test").Controls("LabelMB1").Visible
= True
getinspector.modifiedformpages("Test").controls("commandbutton5").caption
= "2. sollecito"
Case "2. XXX"
item.userproperties("Mahnung2").Value = True
Item.GetInspector.ModifiedFormPages("Test").Controls("LabelMB2").Visible
= True
GetInspector.ModifiedFormPages("Test").Controls("CommandButton5").Caption
= "3. sollecito"
End Select
CB5Source = 0
Item.Close olSave
end sub
---
The form does close but than Outlook always crashes and restart.
Is the use of "Item.Close olSave" in this mode correct in my code?
thx & bye
Oskar
i have develop a new task-form with the following code in it:
---
sub commandbutton5_click()
Const olSave = 0
Dim CB5Caption
CB5Source = 1
CB5Caption =
getinspector.modifiedformpages("Test").controls("commandbutton5").caption
Dim RetMsgBox
Select Case CB5Caption
Case "1. XXX"
item.userproperties("Mahnung1").Value = True
Item.GetInspector.ModifiedFormPages("Test").Controls("LabelMB1").Visible
= True
getinspector.modifiedformpages("Test").controls("commandbutton5").caption
= "2. sollecito"
Case "2. XXX"
item.userproperties("Mahnung2").Value = True
Item.GetInspector.ModifiedFormPages("Test").Controls("LabelMB2").Visible
= True
GetInspector.ModifiedFormPages("Test").Controls("CommandButton5").Caption
= "3. sollecito"
End Select
CB5Source = 0
Item.Close olSave
end sub
---
The form does close but than Outlook always crashes and restart.
Is the use of "Item.Close olSave" in this mode correct in my code?
thx & bye
Oskar