Diane Poremsky
Senior Member
- OS Version(s)
- MacOS
- Windows
- iOS
- Android
- Outlook version
- Outlook 2016 32 bit
- Email Account
- Office 365 Exchange
i think you want it like this - but i haven't spent a lot of time doing forms programming, so i could be wrong.
Sub CommandButton4_Click
Dim Str,Str1,
Dim myItem
myItem.GetInspector.ModifiedFormPages("P.2").Contr ols("TextBox20").Value = ""
myItem.GetInspector.ModifiedFormPages("P.2").Contr ols("TextBox7").Value = ""
Str = Item.GetInspector.ModifiedFormPages("General").Con trols("ComboBox7").Value
Str1 = Item.GetInspector.ModifiedFormPages("General").Con trols("ComboBox8").Value
Set myItem = Application.CreateItemFromTemplate ("C:\Users\Stoler Law\AppData\Roaming\Microsoft\Templates\Task Follow-Up.oft")
myItem.Display
myItem.GetInspector.ModifiedFormPages("P.2").Contr ols("TextBox20").Value = Str
myItem.GetInspector.ModifiedFormPages("P.2").Contr ols("TextBox7").Value = Str1
End Sub
Sub CommandButton4_Click
Dim Str,Str1,
Dim myItem
myItem.GetInspector.ModifiedFormPages("P.2").Contr ols("TextBox20").Value = ""
myItem.GetInspector.ModifiedFormPages("P.2").Contr ols("TextBox7").Value = ""
Str = Item.GetInspector.ModifiedFormPages("General").Con trols("ComboBox7").Value
Str1 = Item.GetInspector.ModifiedFormPages("General").Con trols("ComboBox8").Value
Set myItem = Application.CreateItemFromTemplate ("C:\Users\Stoler Law\AppData\Roaming\Microsoft\Templates\Task Follow-Up.oft")
myItem.Display
myItem.GetInspector.ModifiedFormPages("P.2").Contr ols("TextBox20").Value = Str
myItem.GetInspector.ModifiedFormPages("P.2").Contr ols("TextBox7").Value = Str1
End Sub