Email prompt to enter an email address

[jjake]

Hello,

I have a form that has some check boxes on that when selected, email a report to them. Is it possible to another another check box at the bottom of the list the says something like "Email address not on list" and when selected it will open another form where i can enter and email address to send the report to?

The email address doesn't have to be stored but at least i have the option to send it to someone who isn't on the list.

Thanks.

 

[cyanidem]

Dim strAdditionalEmail As String
If Me.cbAdditionalEmail Then 'if your additional email check box is ticked then
    strAdditionalEmail = InputBox("Please provide email address") 'open input box to provide email
End If
'then do something with provided email address