Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature currently requires accessing the site using the built-in Safari browser.
objMSG.From = ConfigurationSettings.AppSettings("EmailTo")
objMSG.To = ConfigurationSettings.AppSettings("EmailTo")
' set the subject and the body
objMSG.Subject = "Internet Enquiry"
objMSG.Body = "The following Membership Application has been filled in on the website: " & vbCrLf & vbCrLf & _
"Company - " & txtCompany.Text & vbCrLf & _
"Name - " & txtName.Text & vbCrLf & _
"Email - " & txtEmail.Text & vbCrLf & _
"Telephone - " & txtTelephone.Text & vbCrLf & _
"Fax - " & txtFax.Text & vbCrLf & _
"Address - " & txtAddress.Text & vbCrLf & _
"Enquiry - " & txtenquiry.text
objMSG.BodyFormat = Mail.MailFormat.Html
objMSG.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ConfigurationSettings.AppSettings("SMTPServer")
objMSG.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMSG.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMSG.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objMSG.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = ConfigurationSettings.AppSettings("SMTPUsername")
objMSG.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ConfigurationSettings.AppSettings("SMTPPasswprd")
' send the message
objSMTP.SmtpServer = ConfigurationSettings.AppSettings("SMTPServer")
objSMTP.Send(objMSG)