Within module "SendEmail" the following code is included:
Private Sub UserForm_Activate() Form_Personalized = FindWindowA(vbNullString, Me.Caption) STYLE = StartWindow(Form_Personalized, STYLE_CURRENT) STYLE = STYLE Or WS_CX_MINIMIZAR STYLE = STYLE Or WS_CX_MIXIMIZAR MoveWindow Form_Personalized, STYLE_CURRENT, (STYLE) End Sub
When the above code is executed, it does result with the display of the frmSendEmail but the form that is displayed does not include the display of the Maximize and Minimize functions on the userform which would be included if the Private Sub UserForm_Activate() was executed when the frmSendEmail.show is ran.
Answer = MsgBox("Do you wish to check report details before producing email and attachment?", vbYesNo, "Mailbox Check") If Answer = vbYes Then frmSendEmail.Show Exit Sub Else End If
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.