Automating Email (using Gmail)
Sending with VBA

Sub SendEmail()

    Dim from, recipient, cc, bcc, password, subject, body, attachment As String, enable_html As Boolean

    'CONFIGURATION - EDIT THIS
    from = "sendermail@gmail.com" 'Insert your own email
    recipient = UserForm1.TextBox1.Text  ' Recipient 'Insert recipient 'email
    password = "myp@ssw0rd" 'Insert your Gmail password or App password '(if you have 2-factor authentication enabled)
    subject = UserForm1.TextBox2.Text 'Email subject
    body = UserForm1.TextBox3.Text 'The body text of the email
    enable_html = False 'Set to True if you want to add HTML to the body text of the email (optional)
'NO NEED TO EDIT ANYTHING BELOW THIS
    On Error GoTo Err
    Dim mailObj, configObj As Object, fields As Variant, msConfigURL As String

    msConfigURL = "http://schemas.microsoft.com/cdo/configuration"

    'Create objects
    Set mailObj = CreateObject("CDO.Message")
    Set configObj = CreateObject("CDO.Configuration")
    configObj.Load -1
    Set fields = configObj.fields

    'Set email properties
    With mailObj
        .subject = subject
        .from = from
        .to = recipient
    End With

    If enable_html = True Then
        With mailObj
            .htmlbody = body
        End With
    Else
        With mailObj
            .textbody = body
        End With
    End If
With fields
        .Item(msConfigURL & "/smtpusessl") = True
        .Item(msConfigURL & "/smtpauthenticate") = 1
        .Item(msConfigURL & "/smtpserver") = "smtp.gmail.com"
        .Item(msConfigURL & "/smtpserverport") = 465
        .Item(msConfigURL & "/sendusing") = 2
        .Item(msConfigURL & "/sendusername") = from
        .Item(msConfigURL & "/sendpassword") = password
        .Update
    End With

    mailObj.Configuration = configObj
    mailObj.Send

    Set mailObj = Nothing
    Set configObj = Nothing

    Exit Sub

Exit_Err:
    Set mailObj = Nothing
    Set configObj = Nothing
    End

Err:
    MsgBox "An error ocurred." & vbNewLine & Err.Number & ": " & Err.Description
    Resume Exit_Err
End Sub