Sending emails from a web form

Private Function SendEmail(ByVal strSendToThisEmailAddress As String, ByVal strEmailSubject As String, ByVal strEmailBody As String) As Boolean
        Dim oUserName       As String     = "GMAIL USERNAME WITHOUT @GMAIL.COM"
        Dim oPassword       As String     = "ENTER YOUR PASSWORD HERE"
        Dim oServerAddress  As String     = "smtp.gmail.com"
        Dim oUseSSL         As Boolean    = True
        Dim oFromEmail      As String     = oUserName & "@gmail.com"
        Dim blnResult       As Boolean    = False


        Dim oSMTP As New SmtpClient()

                Dim message As New MailMessage() 'Create new Mail Message Item
                    message.To.Add(New MailAddress(strSendToThisEmailAddress)) 'This is passed into the function so create a new recipient and add it to the message.
                    message.From = New MailAddress(oFromEmail) 'This is set above so we will use it to crate a new email address object.

                With oSMTP
                    .Host = oServerAddress
                    .EnableSsl = oUseSSL
                    .DeliveryMethod = SmtpDeliveryMethod.Network
                    .Credentials = New NetworkCredential(oUserName, oPassword)
                    .Timeout = 5000
                End With

                With message 'Set the message content and a few other things.              
                    .Subject = strEmailSubject
                    .Body = strEmailBody
                    .IsBodyHtml = True
                    .BodyEncoding = Encoding.Default
                End With
                
             Try 
                
                Me.Cursor = Cursors.WaitCursor

                oSMTP.Send(message) 'Send the message    
                    
                MsgBox("Test Was Successful.  Verify receipt of the email", vbInformation, "Successfully Sent Email")    
                          
                blnResult = True 'Set the result of the function to true so you know if it worked or not.

                Me.Cursor = Cursors.Default 'Stop the busy cursor      

            Catch smtpEx As SmtpException 'This is to catch any SMTP error.

                Me.Cursor = Cursors.Default 'Stop the busy cursor.

                MsgBox("SMTP ERROR:  " & smtpEx.ToString() ,vbCritical)

                blnResult = False 'Didn't work, but you will already know what because you will get a message box, but I recommend disabling that once you get it working.

            Catch Ex As Exception 'This is for any general error that occured that was NOT because of an SMTP error.
   
                MsgBox("GENERAL FAILURE: " & Ex.ToString() ,vbCritical)   
             
                blnResult = False 'Didn't work, but you will already know what because you will get a message box, but I recommend disabling that once you get it working.

        End Try  

        Me.Cursor = Cursors.Default 
        
        Return blnResult 'Return the results of your email message.

End Function

Select all Open in new window

Then to call it:

             

       
            If SendEmail("EmailAddressToSendToHere@test.com","This is the Subject","This is the body") then

                  'IT WORKED

            End If

End Function

Select all Open in new window

I just tested it and it worked perfectly.   If you get an error 5.5.1 when you first try it, log into gmail and check your mail.  You will have an email in there saying that your account was accessed and that you need to enable "Less Secure" applications.    Once you do that you will be good to go.  You will want to wait a minute or two.   For a synopsis of this step see: Click Here for Explaination


Let me know if you are still having issues.