Private Sub btnSendEmail_Click()
Dim Mail As New Message
Dim Config As Configuration
Set Config = Mail.Configuration

Config(cdoSendUsingMethod) = cdoSendUsingPort
Config(cdoSMTPServer) = "smtp.gmail.com"
Config(cdoSMTPServerPort) = 25
Config(cdoSMTPAuthenticate) = cdoBasic
Config(cdoSMTPUseSSL) = True
Config(cdoSendUserName) = "xxx"
Config(cdoSendPassword) = "xxx"
Config.Fields.Update

Mail.To = "xxx"
Mail.From = Config(cdoSendUserName)
Mail.Subject = "Email Subject"
Mail.HTMLBody = "<h>myname1</h>"
Mail.AddAttachment "C:\Users\Indika\Desktop\VBA¥img¥Range.bmp"
Mail.HTMLBody = "<h>myname2</h>"
Mail.AddAttachment "C:\Users\Indika\Desktop\VBA¥img¥Range.bmp"
On Error Resume Next

Mail.Send

If Err.Number <> 0 Then
MsgBox Err.Description, vbCritical, "There was an error"
Exit Sub
End If

MsgBox "Your email has been sent", vbInformation, "Sent"
End Sub