Public Sub sendmail()
Dim imsg As Object
Dim iconf As Object
Dim fields As Variant

Set imsg = CreateObject("CDO.Message")
Set iconf = CreateObject("CDO.Configuration")

iconf.Load -1 ' CDO Source Defaults
Set Flds = iconf.fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "from ID"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Password"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With
strbody = Message
attachFile = txtAttach.Text

With imsg
Set .Configuration = iconf
.To = "To Id"
.CC = ""
.BCC = ""
.From = "from ID"
.Subject = "Subject"
.Attachement = (attachFile)
.TextBody = strbody
.Send


End With

End Sub