P
Phenix
Hi
I use Outlook 2003
I've a Custom Form (type Messagge) with two Tab (the standard tab and the
custom tab)
I open my custom form (the custom tab is selected), I compile it and I click
to the Send button.
The body text is compose automatically.
When I recive the mail, I don't want see the custom tab, but only the
standard tab.
Is it possible?
With my script I see both
My script is:
Function Item_Open()
Dim objInsp 'As Object
strNameTab = "P.2"
' show custom tab
Set objInsp = Item.GetInspector
objInsp.SetCurrentFormPage strNameTab
' set controls collection(s)
Set objControls = objInsp.ModifiedFormPages(strNameTab).Controls
Set txtData = objControls("txtData")
Set objInsp = Nothing
End Function
Function Item_Send()
Dim objInsp 'As Object
'Set Mail Text and Format *
With Item
.BodyFormat = 3
.Body = txtData.Text & Chr(10) & .Body
End With
'Hide Tab *
Set objInsp = Item.GetInspector
objInsp.HideFormPage strNameTab
Set objInsp = Nothing
End function
I use Outlook 2003
I've a Custom Form (type Messagge) with two Tab (the standard tab and the
custom tab)
I open my custom form (the custom tab is selected), I compile it and I click
to the Send button.
The body text is compose automatically.
When I recive the mail, I don't want see the custom tab, but only the
standard tab.
Is it possible?
With my script I see both
My script is:
Function Item_Open()
Dim objInsp 'As Object
strNameTab = "P.2"
' show custom tab
Set objInsp = Item.GetInspector
objInsp.SetCurrentFormPage strNameTab
' set controls collection(s)
Set objControls = objInsp.ModifiedFormPages(strNameTab).Controls
Set txtData = objControls("txtData")
Set objInsp = Nothing
End Function
Function Item_Send()
Dim objInsp 'As Object
'Set Mail Text and Format *
With Item
.BodyFormat = 3
.Body = txtData.Text & Chr(10) & .Body
End With
'Hide Tab *
Set objInsp = Item.GetInspector
objInsp.HideFormPage strNameTab
Set objInsp = Nothing
End function