Sub email()
Const username = "abc@gmail.com"
cde = InputBox("Please Enter a Password", "login password")
Dim objEmail, objConfig
Set objEmail = CreateObject("CDO.Message")

objEmail.From = "abc@gmail.com"
objEmail.To = "xyz@gmail.com"
objEmail.Subject = "" & ActiveWorkbook.Name
objEmail.cc = "user2@email.com"
objEmail.Attachments.Add (Cells(703, k))



Do While Len(objEmail.TextBody) = 0
objEmail.TextBody = "please find the attach file" & vbCrLf & ""
Loop



Set objConfig = objEmail.Configuration

objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = username
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = password
objConfig.Fields.Update

objEmail.Send

Set objEmail = Nothing
Set objConfig = Nothing
End Sub