Dim strMailto As String

        strMailto = Me.ToEmailAddress

        Dim strMailFrom As String

        strMailFrom = Me.MailFromAddress

        Dim strSubject As String

        strSubject = Me.Subject

        Dim StrBody As String

        StrBody = Me.Body

        Dim strCC As String

        If IsNull(Me.emailcc) = False Then

            strCC = Me.emailcc

        End If

        Dim strBCC As String

        If IsNull(Me.emailbcc) = False Then

            strBCC = Me.emailbcc

        End If

'Now begins the code to actually send the email

        Dim msg As Object

        Set msg = CreateObject("CDO.Message")

        msg.FROM = strMailFrom

        msg.To = strMailto

        msg.Subject = strSubject

        msg.TextBody = StrBody

        msg.Cc = strCC

        msg.bcc = strBCC

        msg.replyto = strMailFrom

'Optionally, our Access form allowed the user to attached 3 files to the email        

        If IsNull(Me.attachment) = False Then

             Dim strAttachment As String

             strAttachment = Me.attachment

             msg.addattachment "file://" & strAttachment & ""

        End If

        If IsNull(Me.Attachment2) = False Then

             Dim strAttachment2 As String

             strAttachment2 = Me.Attachment2

             msg.addattachment "file://" & strAttachment2 & ""

        End If

        If IsNull(Me.Attachment3) = False Then

             Dim strAttachment3 As String

             strAttachment3 = Me.Attachment3

             msg.addattachment "file://" & strAttachment3 & ""

        End If

'Now send it

        

         msg.configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"

        msg.configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465

        msg.configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

        msg.configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "yourname@gmail.com"

        msg.configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "yourgmailpassword"

        msg.configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

        msg.configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

        

        msg.configuration.Fields.Update

        msg.Send