Private Sub WebViewAbout_OverrideUrl (Url As String) As Boolean
'Offer a pre-populated email message from my 'About' page to the user - they still need to press 'Send'
'Requires iPhone library
'There is only one link in my read-me page so no need to filter or check the link
'I merely wish to offer a pre-populated mail for feedback
Dim mailc As MailComposer
mailc.Initialize("")
mailc.SetToRecipients(Array("[email protected]"))
mailc.SetCcRecipients(Array("[email protected]"))
mailc.SetSubject("iOS Application Feedback")
mailc.SetBody("This will be the body of any message",True)
mailc.Show(AboutPage)
Return True 'Consume the event
End Sub